• 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