SUBROUTINE GETDIR (CFGDIR)
C-----------------------------------------------------------------------
C   This routine returns the name of the directory in which the
C   main configuration file (NVSSlist.cfg) is located.  If a
C   configuration file is not found in the current working directory
C   then this directory is searched.
C   THIS FILE SHOULD BE EDITED BEFORE NVSSlist IS INSTALLED
C   Output:
C      CFGDIR C*? The name of the directory in which the file
C                 NVSSlist.cfg is installed.  This should contain
C                 whatever characters are necessary to fully define the
C                 file when prepended to the file name, e.g.
C                 "/home/mydir/nvssinstall/"
C-----------------------------------------------------------------------
      CHARACTER CFGDIR*(*)
C-----------------------------------------------------------------------
C                                       Set directory name
C   EDIT THIS LINE:
      CFGDIR = '/some/bogus/directory/'
C
C   REMOVE THIS
      WRITE(0,1000) 'ERROR: config.f MUST BE EDITED TO GIVE THE' //
     *   ' CONFIGURATION FILE DIRECTORY'
 1000 FORMAT (A)
      RETURN
      END