CALL SEQUENCE...
       lpprint  INLP INPUT OUTPUT [ -kind VAL1 -a VAL2 -label VAL3 ]
 
 
      DESCRIPTION...
       lpprint - PRINTS VALUES OF ANY SIZE (MAX 361X180) ARRAY
 
 
      AUTHOR   - M.Lazare, JUN 22/84.
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/lpprint.ptn,v 4.18 2014/09/25 20:20:50 dugas Exp $
 
 
      PURPOSE  - PRINTS VALUES FROM INLP FILE, ONE RECORD AT A TIME.
                 THE PRINTOUT IS CLASSIFIED BY LATITUDE (AND POSSIBLY
                 LONGITUDE), FOR EASY READING.
 
      NOTES    - 1) THE PROGRAM DOES NOT CHECK FOR NAME, LEVEL OR
                    TIMESTEP NUMBER.
                 2) THE MAXIMUM SIZE ALLOWABLE CORRESPONDS TO GRID OF
                    1X1 DEGREE RESOLUTION.
                 3) THE PROGRAM WILL NOT ABORT; IT WILL TERMINATE WITH A
                    MESSAGE IF:
                    a) - THERE IS A PROBLEM IN OBTAINING THE RECORD.
                    b) - AN ATTEMPT IS MADE TO OPERATE ON A SPECTRAL FILE.
 
 
      INPUT FILE...
       INLP = LAT-LONG, GAUSSIAN GRID, ZONAL FIELDS WITH EQUALLY-SPACED
              LATITUDES, OR ZONAL FIELDS WITH GAUSSIAN LATITUDES FILE
              OR FOURIER COEFFICIENTS OR STRAIGHT DATA RECORDS.
              RPN L- AND Z-TYPE ARRAYS ARE ALSO SUPPORTED.
 
 
      INPUT PARAMETERS...
 
       NTYP   = DETERMINES THE TYPE OF ARRAYS FOUND IN CCCma FILES:
       (kind)   0 OR ' ' DEFAULTS TO GAUSSIAN G-TYPE GRIDS
                1 OR 'A' STANDS FOR RPN/CMC A-TYPE GRIDS
                2 OR 'B' STANDS FOR RPN/CMC B-TYPE GRIDS
       SCALE  = REAL NUMBER BY WHICH THE VALUES ARE TO BE MULTIPLIED BEFORE
       (a)      BEING PRINTED IN A F9.2 FORMAT (DEFAULTS TO AUTOSCALE)
       LABEL  = 80 CHARACTER LABEL PRINTED BELOW LISTING OF DATA
 
       READ( 5,5010 ) NTYP,SCALE
       READ( 5,5020 ) LABEL
 5010  FORMAT(10X,I5,E10.0)
 5020  FORMAT(20A4)
 
 
      EXAMPLE OF INPUT CARDS...
 
  LPPRINT.    0       1.0
   LLPHYS=IPHS1LP.  GROUND TEMPERATURE FOR DECEMBER. UNITS DEC C.
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
 
      FATAL CONDITION...
        1 PROBLEM READING FILE INLP
        2 ERROR ABORT READING LABEL CARD
 
      NON-FATAL CONDITIONS...
      101 EMPTY INLP FILE
      102 UNSUPPORTED DATA TYPE