%N intpini %F $MIR/src/subs/intpio.for
%D Initialize the interpolation i/o routines.
%: interpolation, regridding
%B
        subroutine IntpIni(n1,n2,BlcTrc)

        implicit none
        integer n1,n2
        real BlcTrc(4)

  Initialize the interpolation routines.

  Input:
    n1,n2      Size of the output image.
    BlcTrc     A real array of 4 elements, giving xlo,ylo,xhi,xhi,
               in the coord. system of the input, of the pixels which
               correspond to (1,1) and (n1,n2) in the output.
