Previous: fitpo4 Up: ../plot79_f.html Next: fitsf

FITRG

       SUBROUTINE  FITRG (G,MGX,MGY, NGX,NGY, F,MFX,MFY,NFX,NFY, KX,KY)
 C$    (Regular Grid)
 C$    Given a function F(x,y) on a coarse rectangular grid,  such
 C$    as a low-resolution graphics image, return a new dense  new
 C$    function G(x,y) which is linearly interpolated from F(x,y),
 C$    having KX times as  many x values, and  KY times as many  y
 C$    values.  For image display, this should produce a  smoother
 C$    zoomed image than  hardware zoom  (which simply  replicates
 C$    pixels KX x KY times) is capable of.
 C$
 C$    The output arguments are:
 C$
 C$    G(*,*).........Interpolated function array.
 C$    NGX,NGY........Extent of G(*,*) used.  Provided MGX and MGY
 C$                   are sufficiently large,  these will  be 1  +
 C$                   (NFX-1)*KX and 1 + (NFY-1)*KY  respectively.
 C$                   If any of the arguments are in error or  are
 C$                   inconsistent, or if  the size  of G(*,*)  is
 C$                   not larger than that of F(*,*), these values
 C$                   will be returned as zero.  This is the  only
 C$                   error indication returned.
 C$
 C$    The input arguments are:
 C$
 C$    MGX,MGY........Actual declared dimensions of G(*,*).
 C$    F(*,*).........Original function array.
 C$    MFX,MFY........Actual declared dimensions of F(*,*).
 C$    NFX,NFY........Extent of F(*,*) used.
 C$    KX.............Zoom factor  in  x.   If MGX  is  not  large
 C$                   enough, then the  smaller value  MGX/(NFX-1)
 C$                   will be used.  The case  KX =  1 is  handled
 C$                   specially, so that NGX = NFX.
 C$    KY.............Zoom factor  in  y.   If MGY  is  not  large
 C$                   enough, then the  smaller value  MGY/(NFY-1)
 C$                   will be used.   The case KY  = 1 is  handled
 C$                   specially, so that NGY = NFY.
 C$
 C$    (10-OCT-85)