SUBROUTINE CSM8A
C	PRINT SPECIFICATIONS
	INTEGER PRINT,TEST8,OU
	COMMON/FLAGS/KEY7,IDUM(6),TEST8
	COMMON/DATA/DT,DTS2,TTOT,DUM(33),TSAMP
	COMMON/PRNT/NK,PRINT(20),LEN,K,ISTART
	COMMON/ODEVIM/OU
	COMMON/NOSTOP/ITHROU
	ISTART=0
	IF(ITHROU.EQ.1)GOTO 135
	WRITE(5,10)
10	FORMAT(/10X,'OUTPUT CONTROL'/)
C	PRINT INTERVAL SPECIFICATION
20	WRITE(5,30)
30	FORMAT('$PRINT INTERVAL=')
	TSAMP=FINPUT(0,IERR)
	IF(IERR.NE.0)GOTO 20
	IF(FINPUT(-1,IERR).NE.0.)GOTO 20
	IF(TSAMP.GE.DT)GOTO 50
	WRITE(5,40)
40	FORMAT(' PRINT INTERVAL CANNOT BE LESS THAN INTEGRATION ',
	1 'INTERVAL')
	GOTO 20
C	PRINT VARIABLES SPECIFICATION
50	WRITE(5,60)
60	FORMAT(' INPUT THE BLOCK #S OF UP TO 20 BLOCKS TO BE OUTPUT')
	J=0
	NK=0
	DO 90 I=1,20
70	PRINT(I)=KINPUT(0,IERR)
	IF(IERR)80,85,50
80	J=J+1
	IF(J-1)70,70,100
85	IF(PRINT(I).LT.1)GOTO 80
	IF(PRINT(I).LE.200)GOTO 90
	WRITE(5,86)
86	FORMAT(' NOT A LEGAL BLOCK')
	GOTO 50
90	NK=NK+1
100	IF(NK.EQ.0)GOTO 50
C	LEN=NUMBER OF DATA POINTS PER VARIABLE
	LEN=(TTOT/TSAMP+.5)+1
	J=NK
	K=0
	IF(KEY7.NE.1)GOTO 110
C	PRINT OUTPUT
	K=4
	IF(OU.NE.5)K=9
	J=J-K
	IF(J.LE.0)J=0
110	IF(J*LEN.LE.1000)GOTO 130
	WRITE(5,120)
120	FORMAT(' TOO MANY ITEMS TO SAVE. REDUCE NUMBER OF BLOCKS TO ',
	1 'PRINT.')
	GOTO 50
130	K=MIN0(K,NK)
	GOTO 150
135	IF(KEY7.NE.1.AND.TEST8.EQ.2)GOTO 150
	WRITE(OU,140)(PRINT(I),I=1,K)
140	FORMAT('1'/5X,'TIMES ',9(4X,'BLOCK',I4:))
C	TEST8=1 UNTIL FIRST TIME THROUGH CSM8A
C	TEST8=2 AFTER FIRST TIME THROUGH CSM8A
150	TEST8=2
	RETURN
	END
	SUBROUTINE CSM13
C	BLOCK OUTPUT INTERROGATION
	COMMON/NUMS/IDUM(1201),DUM(200,3),C(201)
	WRITE(5,10)
10	FORMAT (/10X,28H OUTPUT INTERROGATION OPTION/)
20	WRITE(5,30)
30	FORMAT(7H BLOCK=$)
	I=KINPUT(0,IERR)
	IF (IERR) 90,40,50
40	IF (FINPUT(-1,IERR).NE.0.0) GO TO 50
	IF (I) 50,90,70
50	WRITE(5,60)
60	FORMAT(5H WHAT)
	GO TO 20
70	IF (I.GT.200) GO TO 50
	WRITE(5,80) I,C(I)
80	FORMAT(16H OUTPUT OF BLOCK,I3,4H IS ,G15.8)
	GO TO 20
90	RETURN
	END