Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/ranfor.rel
There is 1 other file named ranfor.rel in the archive. Click here to see a list.
 (R0(R@	 0}RANDOM    RANTST.DATDSK  APPEND    DSK  	 $APPEND    DSK  RANFOR.ERRAPPEND    DSK  RANDOM    RANTS ,T.DATDSK  RANDOM    RANBIN.DATDSK   @(	 p(I5)(10I5)(10I5)(' I= ',I2,' J= ',I2,' ARRAY= ',I3)(' I= ',I5,' J=',I5,' IAR	 yRAY=',I5,' KARRAY=',I5)(1H ,'++++	ERROR TEST RANTST.FOR FILE RANFOR.CTL		++++',/,'+	 +++	FAILURE IN FORTRAN RANDOM ASCII INTEGER  IO	++++',/,'++++	ERROR TEST RANTST.FOR			 
		++++',/)(' ','++++	ERROR TEST RANTST.FOR FILE RANFOR.CTL		++++',/,'++++	FAILURE IN 	 FORTRAN RANDOM BINARY IO		++++',/,'++++	ERROR TEST RANTST.FOR END MESSAGE		++++',/)	 *+ -< $ D <, <, <, <, _D8ZDo 	 DU  &$&.o *$
o"(.(. H6*d:o; 8+  <, 	*
@ _F7ZF4 &$4.& <,:4; 7+, &/& F3 <, *_F6ZF4 &$4.& <,	D"e5$J`TUR`TUR`TUR`TUR`20Jc_<F
` R`20J	*DP:4; 6+,*d <, $ D3 D3 Do <,"& $ (/	(
 % H4 <, _H5ZHo ($o.4 <,:o; 5+(, <,*EP. _H5ZHo ($o.4 <,:o; 5+/,	D"c_<F
` R`@\: `TUR#`zR&c_<F
*` R,`20J-c_<F
1	"U(T*4/$8&$ _DnZDo ZD4 4$&.o 62H{+*d7:o; n+6	 
<+ <,, <, <,  &/& F <, _F;ZF4"(E &$4.& <,:4; ;+E, <, <,	D"` R3`20J=` R>`@\:?`TUR@`AwBCc_<F
G` RI`20JJ	(Q K*dA"& $ (/ H4 <, _H:ZH4 ($4.4 <,:4	*U(T; :+Q, <, <,/$8&M _D9ZDo ZD4 4$&.o	* 
\ 62H{+*dZ:o; 9+Z+ <,, <, $$4.o < e,	D"c_<F
K`8BOc_<F
S` RU`20JVc_<F
W`20Ja` Ra`20Jb	 Ue <,@^^~ DpX	*(*n^!~#X^$~%H^&^(~)X	  vq$6Pq3$6	 (`@^*^,~-DpP @ r$'{Xq$'{@	@$=@L>@\`@
e@
\g@,h@<l@Lo@\r@|v@<y@{@D~@|@,@d@$
@T
	 X{`@^.	*P^0~1DpP$6X	" p$pP$'{X	  )p$pXX"(1v$o$4$6${	D"c_<F
e`	WJfa;vl8m
3
34
4P85	D"P75P76P66P67P57P58P48PL9PK9	D"PK:PJ:PJ;PI;W8m<PInPHno	o	D"&Wjp	qGp _"
sr K
opp7Sl	D"VAW#E?hVa`/D+gWr{S	D"gAG	hA:So2?[+SG	D"?73zA
bA=
3((	D"cA{tAw$,'3c,0O+-;~	D"'['&Z!$e&kZ{
>&C,/)	D"@T@l@|@,@l@	@	,"@	l$@
,'@
\)@
l,@
-@
$0@
L38 ((62