Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - 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