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
/
conrel.ftn
< prev
next >
Wrap
Text File
|
1990-04-02
|
405b
|
22 lines
SUBROUTINE CONREL(NUM,FLAG,LOW,HIGH,RANGE)
INCLUDE 'COMMND.COM/-LI'
LOGICAL*1 FLAG,RANGE
REAL NUM,LOW,HIGH
FLAG=.TRUE.
RANGE=.TRUE.
CMD(1)=' '
IF(CMD(2).NE."15)GOTO 10000
FLAG=.FALSE.
NUM=0
GOTO 10003
10000 DECODE(CNT-1,10001,CMD,END=10004,ERR=10002)NUM
10001 FORMAT(G<CNT-1>.0)
FLAG=.TRUE.
IF((NUM.GE.LOW).AND.(NUM.LE.HIGH))GOTO 10003
10002 RANGE=.FALSE.
10003 RETURN
10004 CALL EXIT
END