home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / getrel.ftn < prev    next >
Text File  |  1990-04-02  |  506b  |  25 lines
  1.     SUBROUTINE GETREL(NUM,FLAG,LOW,HIGH,VALID)
  2.  
  3.     INCLUDE 'BUFFER.COM/-LI'
  4.     LOGICAL*1 FLAG,VALID
  5.     REAL NUM,LOW,HIGH
  6.     INTEGER NCHRS
  7.  
  8.     VALID=.TRUE.
  9.     FLAG=.TRUE.
  10.     READ(1,10001,END=10009,ERR=10007)NCHRS,(IBUF(I),I=1,15)
  11. 10001    FORMAT(Q,15A1)
  12. 10002    IF(NCHRS.NE.0)GOTO 10003
  13.     NUM=0.0
  14.     FLAG=.FALSE.
  15.     GOTO 10008
  16. 10003    IF(NCHRS.GT.15)GOTO 10007
  17.     DECODE(15,10004,IBUF,ERR=10007)NUM
  18. 10004    FORMAT(G<NCHRS>.0)
  19.     IF((NUM.GE.LOW).AND.(NUM.LE.HIGH))GOTO 10008
  20. 10007    VALID=.FALSE.
  21.     FLAG=.FALSE.
  22. 10008    RETURN
  23. 10009    CALL EXIT
  24.     END
  25.