PICINPT

PICINPT

---

{{{ SUBROUTINE PICINPT(PICNM,Z0,KK,DN,ESZ) }}}

•  CHARACTER*12          PICNM
  

  Name of the image. It opens and reads the image file. This can optionally use a template file. They are stored in directory TEMPLATES with extension .RAW. Passed in.

•  INTEGER               Z0(2)
  

  Centeral pixel/line of the image Passed in.

•  INTEGER               KK
  

  Pixel/line spaceing of the image Passed in.

•  INTEGER               DN(-1300:1300,-1300:1300)
  

  Output array -- the DN of the image is loaded into this array Set in this routine.

•  INTEGER               ESZ
  

  Passed in.

---

categorySubroutine