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)