Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	SUBROUTINE READC (IB,B,LIST,N)
C		READS FROM CARDS N CATEGORIES SPECIFIED BY
C		LIST(I),I=1,N, INTO IB. SSWITCH 6 IS SET ON END OF FILE

	DIMENSION IB(1), IPAR(10),IFRMAT(1), LIST(1), B(1)
	COMMON IPAR, IFRMAT
C				TURN OFF END OF FILE SWITCH
	C A L L   S S W I C H (6,2)

	D O   1 0   I = 1,N
C
	J=LIST(I)
	K1=ISUB(1,J)
	INDX=IFRMAT(K1)
	NWPC=IFRMAT(K1 + 1)+INDX -1
	MODE=IFRMAT(K1 + 2)
	GO TO (1,2,3), MODE

1	READ 101, IB(1), (IB(K), K=INDX,NWPC)
101	FORMAT(8I10)
	G O   T O   5

2	READ 102, IB(1), (B(K), K=INDX,NWPC)
102	FORMAT(I10,7F10.0/(8F10.0))
	G O   T O   5

3	READ 100, IB(1), (IB(K), K=INDX,NWPC)
100	FORMAT(I10,14A5/(16A5))

5	CONTINUE
	IF(.NOT.EOFC(2)) GO TO 10
C				TURN ON END OF FILE SWITCH
	C A L L   S S W I C H (6,1)

	R E T U R N

10	C O N T I N U E

	R E T U R N
	E N D