c-----------------------------------------------------------------------
c --- COMMON BLOCK /FILNAM/ -- File names                       CTGCOMP
c-----------------------------------------------------------------------
      character*132 runinp,complst,ctgfil,compfil
      logical lcfiles

      common /FILNAM/ runinp,complst,ctgfil,compfil
      common /FILLOG/ lcfiles

c-----------------------------------------------------------------------
c     DEFINITIONS  [i]=integer   [r]=real   [l]=logical   [c]=character
c-----------------------------------------------------------------------
c runinp         Path & filename for the control file                [c]
c                (default: CTGCOMP.INP)
c complst        Path & filename for the output CTGCOMP list file    [c]
c                (default: CTGCOMP.LST)
c ctgfil         Path & filename for the input CTG data file         [c]
c                (default: CTG.DAT)
c compfil        Path & filename for output compressed CTG data file [c]
c                (default: CTGCOMP.DAT)
c lcfiles        Switch indicating if all characters in the          [l]
c                filenames are to be converted to lower case
c                letters (LCFILES=T) or converted to UPPER
c                case letters (LCFILES=F).
c-----------------------------------------------------------------------
