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 / getint.ftn < prev    next >
Text File  |  1990-04-02  |  353b  |  19 lines
  1.     SUBROUTINE GETINT(NUM,FLAG,LOW,HIGH,VALID)
  2.  
  3.     LOGICAL*1 FLAG,VALID
  4.     INTEGER*2 NUM,LOW,HIGH
  5.  
  6.     VALID=.TRUE.
  7.     FLAG=.TRUE.
  8.     READ(1,10001,END=10008,ERR=10006)NCHRS,NUM
  9. 10001    FORMAT(Q,I5)
  10.     IF(NCHRS.NE.0)GOTO 10002
  11.     FLAG=.FALSE.
  12.     GOTO 10007
  13. 10002    IF((NUM.GE.LOW).AND.(NUM.LE.HIGH))GOTO 10007
  14. 10006    VALID=.FALSE.
  15.     FLAG=.FALSE.
  16. 10007    RETURN
  17. 10008    CALL EXIT
  18.     END
  19.