== 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