DIMENSION I(11,148),NAME(11),TEXT(3),IPRFA(6),L(149)
	ISTA=1000
	ISTE=101+ISTA
	ISTL=26+ISTA
	CALL RTAPE(1,-ISTL,149,L)
	LANF=L(149)
	CALL RTAPE(1,-ISTE,1628,I)
	DO 10 K1=1,148
10	WRITE(1,20)(I(K2,K1),K2=1,13)
20	FORMAT(13I3)
	END