perm filename TRAIL.F4[NET,GUE] blob sn#034280 filedate 1973-04-14 generic text, type T, neo UTF8
00100	      DIMENSION I(59)
00200	      DO 1 J=1,59
00300	1	I(J)=J
00400		type(23,2) (i(k),k=1,59)
00500	2	FORMAT(59(I4))	
00600		END