Trailing-Edge
-
PDP-10 Archives
-
decus_20tap5_198111
-
decus/20-0137/csmp/csmp4.for
There is 1 other file named csmp4.for in the archive. Click here to see a list.
00100 SUBROUTINE CSM12
00200 IMPLICIT INTEGER (A-Z)
00300 C GIVES COMMANDS
00400 WRITE (30,1)
00500 IF(RSAC(10)) RETURN
00600 WRITE (30,2)
00700 IF(RSAC(10)) RETURN
00800 WRITE(30,3)
00900 IF(RSAC(10)) RETURN
01000 WRITE(30,4)
01100 IF(RSAC(10)) RETURN
01200 WRITE(30,5)
01300 IF(RSAC(10)) RETURN
01400 WRITE (30,6)
01500 IF(RSAC(10)) RETURN
01600 WRITE (30,7)
01700 IF(RSAC(10)) RETURN
01800 WRITE(30,8)
01900 IF(RSAC(10)) RETURN
02000 WRITE (30,9)
02100 IF(RSAC(10))RETURN
02200 WRITE(30,11)
02300 11 FORMAT(/,' TTY IS THE ONLY DEVICE WHICH MAY BE USED',/,
02400 1 ' FOR MORE THAN ONE OF THE THREE I/O FUNCTIONS(INPUT,',/,
02500 1 ' OUTPUT,OR MODEL OUTPUT)AT ONE TIME. IT MAY BE USED',/,
02600 1 ' FOR ANY 1, 2, OR 3.',/)
02700 WRITE(30,12)
02800 12 FORMAT(' EXIT IS THE ONLY WAY TO SAVE OUTPUT OR PUNCH FILES',/)
02900 C NO WARNING FOR NON-EXISTANT COMMANDS
03000 C WRITE(30,10)
03100 RETURN
03200 1 FORMAT (//' TO STOP PRINTING TYPE A RIGHT ARROW'/
03300 1' TO STOP EXECUTION TYPE ''^'''//,T4,'COMMAND',T26,'ACTION'/)
03400 2 FORMAT (1H ,T5,'HELP',T21,'TYPES THIS LISTING'
03500 1,/,T5,'LOOK',T21,'INTERROGATES BLOCK OUTPUTS')
03600 3 FORMAT (1H ,T5,'CONFIGURATION',T21,'ALLOWS CHANGES OR ADDITIONS
03700 1 TO MODEL',/,T5,'PARAMETERS',T21,'ALLOWS THE ENTRY OF
03800 2 PARAMETERS')
03900 4 FORMAT(1H ,T5,'FUNCTION',T21,'ALLOWS FUNCTIONS TO BE DEFINED',
04000 1/T5,'PUNCH',T21,'OUTPUTS MODEL TO DESIGNATED DEVICE')
04100 5 FORMAT(1H ,T5,'INTEGRATION',T21,'ALLOWS ENTRY OF INTEGRATION
04200 1 PARAMETERS'/,T5,'OUTPUT',T21,'DETERMINES OUPUT PARAMETERS')
04300 6 FORMAT(1H ,T5,'GOES',T21,'STARTS RUN OF MODEL'/,T5,
04400 1'FILES',T21,'ALLOWS I/O DEVICES AND FILES TO BE CHANGED')
04500 7 FORMAT(1H ,T5,'RESTART',T21,'CLEARS MODEL AND STARTS AGAIN'/,
04600 1T5,'EXIT',T21,'RETURNS CONTROL TO MONITOR')
04700 8 FORMAT(1H ,T5,'TIME',T21,'GIVES RUN AND ELAPSED TIME'/,
04800 1T5,'PRINT',T21,'CAUSES OUTPUT TO BE PRINTED IN TABLES')
04900 9 FORMAT(1X,T5,'PLOT(DEFAULT)',T21,'CAUSES OUTPUT TO BE PLOTTED',
05000 *' FOR TERMINAL',/,T21,'OR LINE PRINTER'/,
05100 *T5,'GRAPH',T21,'SIMILAR TO "PLOT", BUT OUTPUTS TO GRAPHICS',/,
05200 *'TERMINALS AND PLOTTERS',/,
05300 1 T5,'RUN',T21,'DOES ALL OF THE ABOVE NECSSARY TO DO A GOES'/,
05400 *T5,'INPUT',T21,'READS IN THE SPECIFIED MODEL WITHOUT ECHOING',
05500 2//T5,'ALL COMMANDS MAY BE SHORTENED TO 3 CHARACTERS',/,
05600 3T5,'FILE NAMES ARE FIVE CHARACTERS IN LENGTH WITH "DAT"'
05700 4,' AS THE EXTENSION',/)
05800 10 FORMAT(1H ,T5,'WARNING!!! USE RELEASE AT YOUR OWN RISK',
05900 1/T5,'IT CLOSES ALL FILES SO THAT AN OUTPUT FILE ON'
06000 2,/T5,'DSK MIGHT BE WRITTEN OVER IF THE NAME ISN''T CHANGED',///)
06100 C SNOW WHITE WAITING FOR A PRINCE TO REIMPLIMENT -RELEASE-
06200 C 2/,T5,'RELEASE',T21,'RELEASES ALL UNITS TO ENTER A NEW NAME',
06300 END
06400 FUNCTION BLOCKA(A,B,C,D,E,F,JUMP)
06450 LOGICAL JUMP
06475 JUMP = .FALSE.
06500 IF(A.LE.0)GO TO 1
06600 BLOCKA=ALOG(A)
06700 RETURN
06800 1 TYPE 2
06900 2 FORMAT(/,' ATTEMPT TO TAKE LOG OF NON-POSITIVE NUMBER',/)
07000 JUMP = .TRUE.
07010 RETURN
07100 END
07200 FUNCTION BLOCKC(A,B,C,D,E,F,JUMP)
07220 LOGICAL JUMP
07240 JUMP = .FALSE.
07300 DATA PI/3.14159265/
07400 BLOCKC=COS(A+D*PI)
07500 RETURN
07600 END
07700 FUNCTION BLOCKE(A,B,C,D,E,F,JUMP)
07720 LOGICAL JUMP
07740 JUMP = .FALSE.
07800 BLOCKE=EXP(A)
07900 END