SUBROUTINE CSM13
C	BLOCK OUTPUT INTERROGATION
	DIMENSION C(75)
	COMMON REALS(395),INTS(547)
	EQUIVALENCE (REALS(2),C(1))
	WRITE(4,10)
10	FORMAT (/10X,28H OUTPUT INTERROGATION OPTION/)
20	WRITE(4,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(4,60)
60	FORMAT(5H WHAT)
	GO TO 20
70	IF (I.GT.75) GO TO 50
	WRITE(4,80) I,C(I)
80	FORMAT(16H OUTPUT OF BLOCK,I3,4H IS ,G15.8)
	GO TO 20
90	RETURN
	END