C*	C36OTC	- OUTPUT CONSTANTS IN DATA STATEMENT FORMAT FOR 36O VERSION
C
	SUBROUTINE C36OTC
C
C	FOR /360 VERSION -
C	APPEND '$' GENERATED DATA STATEMENTS TO PRIMAY OUTPUT FILE AND APPEND
C	SECONDARY OUTPUT FILE TO PRIMARY.
C
	INCLUDE  'C36CM.FTN/NOLIST'
	INCLUDE 'C36BCM.FTN/NOLIST'
C
	IF (L360) GO TO 50
	GO TO 400
C
 50	CONTINUE
	NOUTFI = NOUTU			! FLIP OUTPUT LUN BACK TO PRIMARY
D	WRITE (5, 501)NDATA, (IDATA(I),I=1,NDATA)
D501	FORMAT (' ',I7)
	IF (NDATA .LE. 0) GO TO 275
C
C	SORT CONSTANTS IN ASCENDING ORDER
C
	IF (NDATA .EQ. 1) GO TO 200
	N = NDATA - 1
C
	DO 130 I=1, N
	M = NDATA - I
        DO 120 J = 1, M
          IF (IDATA(J) - IDATA(J+1)) 120, 120, 115
 115      ITEMP = IDATA(J)
          IDATA(J) = IDATA(J+1)
          IDATA(J+1) = ITEMP
 120    CONTINUE
 130	CONTINUE
C
 200	CONTINUE
C
C	MOVE IN 'DATA' KEYWORD
C
	CALL SFCHR (B, 1, MXCBF, ' ')
	CALL SMCHR ('DATA', 1, B, 1, 4)
	J = 6
C
C	LOOP TWICE, FIRST PASS $CONSTANT, SECOND PASS CONSTANT
C
	DO 250 II=1, 2
C
	DO 210 I=1, NDATA
	IF (II .EQ. 2) GO TO 205
	B(J) = '$'
	J = J + 1
 205	ENCODE (5, 510, B(J)) IDATA(I)
 510	FORMAT (I5)
	CALL STBLK (B(J), B(J), 5)
	J = IRNSC (B, J, 5) + J
	IF (I .EQ. NDATA) GO TO 230
	B(J) = ','
	J = J + 2
 210	CONTINUE
C
C	PUT IN '/'
C
 230	CONTINUE
	B(J) = '/'
	J = J + 2
 250	CONTINUE
C
	B(J-1) = 0
	CALL C36BRK (IDUM, .TRUE.)
C
C	APPEND SCRATCH OUTPUT FILE TO PRIMARY
C
 275	CONTINUE
	ENDFILE NUSCRA
	REWIND NUSCRA
C
 300	CONTINUE
	READ (NUSCRA, 560, END=350) IBUF
 560	FORMAT (40A2)
	CALL C36OT (IBUF)
	GO TO 300
C
 350	CONTINUE
 400	CONTINUE
	RETURN
	END