CALL SEQUENCE...
       slice  IN SLOUT INPUT OUTPUT [ -a VAL1 -kind VAL2 -n VAL3
                      -dlon1 VAL4 -dlat1 VAL5 -dlon2 VAL6 -dlat2 VAL7 ]
 
 
      DESCRIPTION...
       slice   - SELECTS A COLUMN OR ROW FROM EACH FIELD IN A FILE.
 
 
      AUTHOR   - J.D.Henderson, MAR 30/82.
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/slice.ptn,v 4.15 2014/09/25 20:20:52 dugas Exp $
 
 
      PURPOSE  - SELECTS ONE COLUMN OR ROW FROM EACH FIELD IN FILE IN AND
                 PUTS THE RESULTS ON FILE SLOUT.
      NOTES    - 1) IF FILE IN CONTAINS MULTI-LEVEL GRID SETS THEN SLOUT
                    FILE WILL CONTAIN ZONAL OR MERIDIONAL CROSS-SECTIONS.
                 2) SUPERLABELS ARE RETAINED IF PRESENT IN FILE IN.
                 3) INPUT ZONAL TYPE OF ARRAYS ARE NOT PERMITTED.
 
 
      INPUT FILE...
       IN = SERIES OF MULTI-LEVEL REAL OR COMPLEX GRID SETS
 
      OUTPUT FILE...
       SLOUT = CROSS-SECTIONS
 
 
      INPUT PARAMETERS...
 
       ICR (a)    = COLUMN OR ROW TO BE SELECTED (DEFAULTS TO 1)
       KCR (kind) = (0,1,2) TO SELECT (COLUMN,ROW,OTHER)
 
      IF ABS(KCR)=2, ICR IS IGNORED AND THE FOLLOWING PARAMETERS ARE USED:
 
       N           = EVEN NUMBER OF EQUALLY SPACED POINTS
                     IN THE SLICE (HAS TO BE MORE THAN 2)
       DLON1,DLAT1 = BEGINNING LONGITUDE/LATITUDE PAIR
       DLON2,DLAT2 = ENDING LONGITUDE/LATITUDE PAIR
 
       THE SLICE FOLLOWS A LINE IN LAT/LONG SPACE AND PROCEEDING EASTWARD,
       INTERPOLATES FROM (DLON1,DLAT1) TO (DLON2,DLAT2). IF KCR IS NEGATIVE,
       LINEAR INTERPOLATION IS DONE, OTHERWISE CUBIC IS USED.
 
       READ(5,5010) ICR,KCR,N,DLON1,DLAT1,DLON2,DLAT2
 5010  FORMAT(10X,3I5,4E10.0)
 
 
 EXAMPLE OF INPUT CARD...
 
  SLICE      25    1    0       0.0       0.0       0.0       0.0
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 FOUND COMPLEX DATA TYPE OR ZONAL DATA
        2 UNABLE TO RETRIEVE FIRST SET
        3 MORE THAN ONE SIZE FOR ARRAY SETS IN FILE IN
        4 UNKNOW PROCESSING OPTIONS SPECIFIED IN KCR
        5 ERROR READING INPUT PARAMETERS
        6 PREMATURE EOF ON FILE IN
        7 ILLEGAL PARAMETER SET WITH KCR=2
        8 ILLEGAL COMPLEX GRID WITH KCR=2