Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/csmp4.f4
There are no other files named csmp4.f4 in the archive.
	SUBROUTINE CSM12
	IMPLICIT INTEGER (A-Z)
C	GIVES COMMANDS
	WRITE (30,1)
	IF(RSAC(10)) RETURN
	WRITE (30,2)
	IF(RSAC(10)) RETURN
	WRITE(30,3)
	IF(RSAC(10)) RETURN
	WRITE(30,4)
	IF(RSAC(10)) RETURN
	WRITE(30,5)
	IF(RSAC(10)) RETURN
	WRITE (30,6)
	IF(RSAC(10)) RETURN
	WRITE (30,7)
	IF(RSAC(10)) RETURN
	WRITE(30,8)
	IF(RSAC(10)) RETURN
	WRITE (30,9)
	IF(RSAC(10))RETURN
	WRITE(30,11)
11	FORMAT(/,'       TTY IS THE ONLY DEVICE WHICH MAY BE USED',/,
     1	' FOR MORE THAN ONE OF THE THREE I/O FUNCTIONS(INPUT,',/,
     1	' OUTPUT,OR MODEL OUTPUT)AT ONE TIME. IT MAY BE USED',/,
     1	' FOR ANY 1, 2, OR 3.',/)
	WRITE(30,12)
12	FORMAT(' EXIT IS THE ONLY WAY TO SAVE OUTPUT OR PUNCH FILES',/)
C	NO WARNING FOR NON-EXISTANT COMMANDS
C	WRITE(30,10)
	RETURN
1	FORMAT (//'   TO STOP PRINTING TYPE A RIGHT ARROW'/
	1'   TO STOP EXECUTION TYPE ''^'''//,T4,'COMMAND',T26,'ACTION'/)
2	FORMAT (1H ,T5,'HELP',T21,'TYPES THIS LISTING'
	1,/,T5,'LOOK',T21,'INTERROGATES BLOCK OUTPUTS')
3	FORMAT (1H ,T5,'CONFIGURATION',T21,'ALLOWS CHANGES OR ADDITIONS
	1 TO MODEL',/,T5,'PARAMETERS',T21,'ALLOWS THE ENTRY OF
	2 PARAMETERS')
4	FORMAT(1H ,T5,'FUNCTION',T21,'ALLOWS FUNCTIONS TO BE DEFINED',
	1/T5,'PUNCH',T21,'OUTPUTS MODEL TO DESIGNATED DEVICE')
5	FORMAT(1H ,T5,'INTEGRATION',T21,'ALLOWS ENTRY OF INTEGRATION
	1 PARAMETERS'/,T5,'OUTPUT',T21,'DETERMINES OUPUT PARAMETERS')
6	FORMAT(1H ,T5,'GOES',T21,'STARTS RUN OF MODEL'/,T5,
	1'FILES',T21,'ALLOWS I/O DEVICES AND FILES TO BE CHANGED')
7	FORMAT(1H ,T5,'RESTART',T21,'CLEARS MODEL AND STARTS AGAIN'/,
	1T5,'EXIT',T21,'RETURNS CONTROL TO MONITOR')
8	FORMAT(1H ,T5,'TIME',T21,'GIVES RUN AND ELAPSED TIME'/,
	1T5,'PRINT',T21,'CAUSES OUTPUT TO BE PRINTED IN TABLES')
9	FORMAT(1X,T5,'PLOT(DEFAULT)',T21,'CAUSES OUTPUT TO BE PLOTTED',
     *' FOR TERMINAL',/,T21,'OR LINE PRINTER'/,
     *T5,'GRAPH',T21,'SIMILAR TO "PLOT", BUT OUTPUTS TO GRAPHICS',/,
     *'TERMINALS AND PLOTTERS',/,
	1 T5,'RUN',T21,'DOES ALL OF THE ABOVE NECSSARY TO DO A GOES'/,
     *T5,'INPUT',T21,'READS IN THE SPECIFIED MODEL WITHOUT ECHOING',
	2//T5,'ALL COMMANDS MAY BE SHORTENED TO 3 CHARACTERS',/,
	3T5,'FILE NAMES ARE FIVE CHARACTERS IN LENGTH WITH "DAT"'
	4,' AS THE EXTENSION',/)
10	FORMAT(1H ,T5,'WARNING!!!  USE RELEASE AT YOUR OWN RISK',
	1/T5,'IT CLOSES ALL FILES SO THAT AN OUTPUT FILE ON'
	2,/T5,'DSK MIGHT BE WRITTEN OVER IF THE NAME ISN''T CHANGED',///)
C	SNOW WHITE WAITING FOR A PRINCE TO REIMPLIMENT -RELEASE-
C	2/,T5,'RELEASE',T21,'RELEASES ALL UNITS TO ENTER A NEW NAME',
	END
	FUNCTION BLOCKA(A,B,C,D,E,F,*)
	IF(A.LE.0)GO TO 1
	BLOCKA=ALOG(A)
	RETURN
1	TYPE 2
2	FORMAT(/,' ATTEMPT TO TAKE LOG OF NON-POSITIVE NUMBER',/)
	RETURN 7
	END
	FUNCTION BLOCKC(A,B,C,D,E,F,*)
	DATA PI/3.14159265/
	BLOCKC=COS(A+D*PI)
	RETURN
	END
	FUNCTION BLOCKE(A,B,C,D,E,F,*)
	BLOCKE=EXP(A)
	END