        SUBROUTINE DLOHI(BNDFIL,OUTFIL,ERRCD,ERRMSG)
C
C       FUNCTION:
CF
CF
C       USAGE:
CU
CU
C       INPUTS:
CI
CI
C       OUTPUTS:
CO
CO
C       ALGORITHM:
CA
CA
C       MACHINE DEPENDENCIES:
CM
CM
C       HISTORY:
CH
CH      written by:
CH      date:
CH      current version:
CH      modifications:
CH				added dpcom: 7/16/88 jdb
CH
C       ROUTINES CALLED:
CC
CC
C       COMMON MEMORY USED:
CM
CM      DPCOM -- see dpcommon.f and dpcom.f
CM
C----------------------------------------------------------------------
C       written for:    The CASCADE Project
C                       Oak Ridge National Laboratory
C                       U.S. Department of Energy
C                       contract number DE-AC05-840R21400
C                       subcontract number 37B-07685C S13
C                       organization:   The University of Tennessee
C----------------------------------------------------------------------
C       THIS SOFTWARE IS IN THE PUBLIC DOMAIN
C       NO RESTRICTIONS ON ITS USE ARE IMPLIED
C----------------------------------------------------------------------
C
C
        INCLUDE         'Parameter.f'
C
        CHARACTER*(*)            BNDFIL
        CHARACTER*(*)            OUTFIL
        CHARACTER*(*)            ERRMSG
C
        DOUBLE PRECISION        BOUND
        DOUBLE PRECISION        FREQ
        DOUBLE PRECISION        WCMIN
        DOUBLE PRECISION        WCMAX
C
        INTEGER                 ERRCD
        INTEGER                 NBNDSL
        INTEGER                 NBNDSH
C
	INCLUDE			'dpcom.f'
C
        OPEN (UNIT=UNIT1,FILE=BNDFIL,STATUS='OLD',ERR=9999)
          READ (UNIT1,*,END=9999,ERR=9999) BOUND,FREQ
          READ (UNIT1,*,END=9999,ERR=9999) NBNDSL
          READ (UNIT1,*,END=9999,ERR=9999) BOUND,FREQ
          WCMIN = 10.0D0 ** (BOUND/20.0D0) *  FREQ
          NBNDSL = NBNDSL - 1
 10       IF (NBNDSL .GT. 0) THEN
            READ (UNIT1,*,END=9999,ERR=9999) BOUND,FREQ
            WCMIN = MIN (WCMIN,10.0D0 ** (BOUND/20.0D0) * FREQ)
            NBNDSL = NBNDSL - 1
            GO TO 10
          END IF
          READ (UNIT1,*,END=9999,ERR=9999) NBNDSH
          IF (NBNDSH .LT. 1) NBNDSH = 1
          DO 20, I = 1, NBNDSH
            READ (UNIT1,*,END=9999,ERR=9999) BOUND,FREQ
 20       CONTINUE
          READ (UNIT1,*,END=9999,ERR=9999) WCMAX
        CLOSE (UNIT=UNIT1)
C
C--find wcmax/wcmin; if it's greater than 4.0, use low; else use high
C
        OPEN (UNIT=UNIT1,FILE=OUTFIL,ERR=9998)
C
        IF (WCMAX/WCMIN .LT. 4.D0) THEN
          WRITE (UNIT1,*) ' HIGH'
        ELSE
          WRITE (UNIT1,*) ' LOW'
        END IF
C
        CLOSE (UNIT=UNIT1)
C
C--     THE END
C
        RETURN
C
C--error handling
C
9998    ERRCD=2
        ERRMSG = 'DLOHI: Fatal error opening '//OUTFIL
        RETURN
9999    ERRCD=1
        ERRMSG = 'DLOHI: Fatal error reading bounds file '//BNDFIL
        CLOSE (UNIT=UNIT1)
        RETURN
        END