CKSUBS    CKSUBS    CKSUBS    CKSUBS    CKSUBS    CKSUBS    CKSUBS    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKSUBS (LINE, LOUT, NDIM, SUB, NFOUND, KERR)
Returns an array of substrings in a character string with blanks
or tabs as delimiters

INPUT
LINE      - Character string; length determined by calling routine.
LOUT      - Integer scalar, formatted output file unit.
NDIM      - Integer scalar, dimension of a character string array.

OUTPUT
SUB(*)    - Character string array, the character substrings of
            LINE; dimension SUB at least NDIM.
NFOUND    - Integer scalar, count of substrings found in LINE.
KERR      - Logical, error flag; dimensioning errors will result in
            KERR = .TRUE.