%N intprd %F $MIR/src/subs/intpio.for
%D Read a row of interpolated data
%: interpolation, regridding
%B
        subroutine IntpRd(lu,jj,Out,IntpGet)

        implicit none
        integer lu,jj
        real Out(*)
        external IntpGet

  The user-called routine to return a row of interpolated data.

  Input:
    lu         Some user-defined value for its action routine.
    jj         The row of the output that we want.
    IntpGet    The action routine to return a row of the input.
  Output:
    Out        The interpolated output.
