      INTEGER*4 DMIN,DMAX,ID
      OPEN(UNIT=3,FILE='mtlyell.asc',READONLY)
      DMIN=370
      DMAX=0
   10 READ(3,100,END=20) ID
  100 FORMAT(17X,I3)
      IF (ID .LT. DMIN) DMIN=ID
      IF (ID .GT. DMAX) DMAX=ID
      GOTO 10
   20 CONTINUE
      WRITE(*,200) DMIN,DMAX
  200 FORMAT(2I4)
      END
