Describe EXTRACT_DATA_PIC here.


      SUBROUTINE EXTRACT_DATA_PIC(NTMP,QSZ,SCALE,PICNM,IPL,
     .                     V,UX,UY,UZ,HUSE,HT,CP,SP,EUSE,ETOL,
     .                     FINV,DPIC_DLOC,DIDH,DJDH,Z0,KK,ESZ,DN, DNX)



*      INTEGER               NTMP
  NTMP is a global compile parameter that defines the maximum size of maplets (it allocates memory)
  Standard value is 128

*      INTEGER               QSZ
  QSZ is the half size of maplet.  width = QSZ * 2 + 1
  It is derived from [[READ_MAP]]

*      DOUBLE PRECISION      SCALE
  The scale (both horizontally x and y, as well as verticlally).  The values in the [[MAPLET]] should be multiplied by this value to get its actual value.  Units are in km.
  It is derived from [[READ_MAP]]

*      CHARACTER*12          PICNM
  The name of the image that you want to use.  The file is read in (again) in this program)

*      DOUBLE PRECISION      IPL(2)
  IPL = Image Pixel Line.  Scaling factor to translate from physical to image frame.
  Comes from [[V2IMGPLV]]



*      DOUBLE PRECISION      V(3)
*      DOUBLE PRECISION      UX(3)
*      DOUBLE PRECISION      UY(3)
*      DOUBLE PRECISION      UZ(3)
*      DOUBLE PRECISION      CP(3)
*      DOUBLE PRECISION      SP(3)
*      LOGICAL               EUSE
*      DOUBLE PRECISION      ETOL, FINV
*      DOUBLE PRECISION      DPIC_DLOC(2,3)
*      DOUBLE PRECISION      DIDH
*      DOUBLE PRECISION      DJDH
*      INTEGER               Z0(2)
*      INTEGER               KK, ESZ
*      INTEGER               DN(-1300:1300,-1300:1300)
*      REAL*4                DNX(-NTMP:NTMP,-NTMP:NTMP)