Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50552/forsem.rel
There are no other files named forsem.rel in the archive.
 )W0)W@ H`H`H`H`H`H`H`H`H`H`H`	 R\Q|X>x1zx-" Dp^& &&`=(
.C8$.$ Dp Q~Y|,~@TB
TB	 R\Q|X>x1zx-" Dp p B, x1D+ p, x Dp	(@++ pC&W, p Dp p, p xp W,p x  l,	"(  p, x Dp $*C&i (@}. A$(F0&++ O Dp p ), p x,Q~Y|,~@rwPrwW	 " ,R\Q|X>x1zx-" Q, Q, xB$4D` Q, x,	"T**5 x DR R L, x DP R M ( *, x DQ P,0 P	(
Q
=,1 xB$4DT P,3 x3D:+Q P,@ x,4 x DS S,	 T(P(F x0D+I Q ;,+M Q Dp S,E p x,H P Dp S	(*"N, p x,+R Q ;,L P,+= R @,7 x,B x	(Q 
W,C x DS R Dp S,K p xp S,p x,  Q,S(_+0Q~Y|,~@5)-5),  aR\Q|X>x1zx-"/ U &,Q~Y|,~@X@bCTa "gR\Q|X>x1zx-"d U &,eQ~Y|,~@CRhhpSg mH`	 nXwXwXwXwXwXw \Q|X>x1zx-"j O, x1D+'	 Pv,, $, $ C( *, O,t x & (,C$ &	 ,, $ &&C(i (@}.  A&(H0(@B$4D, O	 T*
, x Dg@@f g1D+' g,W x DS f&$0F+,w S	*P (C&W, WC&X,C$C&X * ,C& * , V Dp S	(" ,! p x wC( *
C,f,C$ wC& f *
, & (, T
! & (/f,  O, x Dg f.$ Df+	,Q~Y|,~ )VNDFound  variables not explicitly declared (D,h#sq,h#vn,h#wm@@@)@)@d*@T.	  .XwXwXwXwXwXw \Q|X>x1zx-"s O,{ x1D+\	(PP7,v $,x,' $ C( *,z O,5 x & (,}C$ &	*
?,, $ &&C(i (@}.  A&(H0(@B$4DG, O	(T*
H, x Dg@@f g1D+\ g, x DS f&$0F+P,8+R	(*T
PC$ & (," SC&W, WC&X,C$PC&X * , O,#"E Y x Dg f.$ Df+J,OQ~Y|,~ ^AICFound  variables being assigned a value of a different typeD,h#j2,h#v/,h#w.@~@^@$^@l_	  eXwXwXwXwXwXw \Q|X>x1zx-"4 N,< x1D+	(PPm,7 $,8,\ $ C( *,; N,k x & (,>C$ &	*@*E"v,?,@C$UC& * ,W,o N,H x Dg@@f g1D+	 f	 UP(~&$0F+,y+C$w & (,RC$ g (, N,X x Dg	(T f.$ Df+|, $ &&C(i (@}.  A&(H0(@B$*4D,GQ~Y|,~ IDVFound  lines with integer divisionsOffending line numbers:D,h#mh,h#ve,h#we@@@@

@T@| XwXwXwXwXwXw \Q|X>x1zx-"jQ~Y|,~D,h#s,h#v,h#w	 *@ R\Q|X>x1zx-" `4D O,r x &1D@ ( **C,i	 ) (@}.

 

0A*(L(0,@Ap O,%p x *1H@
	 @
1 , . C0i (@}. @A.(P800@

A
Gp N,.p	  : x *1H@
 , ."C0i (@}. @A.(P800@

A
G	"@Bp N,9p x *1H@
 , .$C0i (@}. @A.(P8	 *K00@

A
G Fp WC&X,U a1D+WC$C& * ,yC&X	 @ @S * ,RC& * ,T $ &&C(i (@}.  A&(H0(	 Q\@B$Ap4Dg,	C$C& *
 ,VC&XpC$X &,p x	"d *,` & (,,^C$ aC( *,C$C& * ,e,	(@ m@@a $*C&i (@}. A$(F0&+s,q $ C&i (@}.	 u A$(F0&+x,2 $"C&i (@}. A$(F0&+~,h	"Q*~ $$C&i (@}. A$(F0&+, p4DC$j,l,- U	"*, O, O, N, N,	 $&C&i (@}. A$(F	""U"0&+,,@@a $  Dh0d-+ h 9 Fl:h+ $$ Dh0d'	*U(@
+ h 9 Fl:h++ a.$ Da $ C( *,q,v@@`  Q~Y|,~	 ! ...   ... warnings for module  error detected.EESExtraneous END statement. * Ignored@CG!~^+ H?x-@- H?x*@,x@@*!@*T"@+t#@-

%@-,&@3T'@3\'	 *+R\Q|X>x1zx-"# `4D4 a.$ Da $ C( *,,	**U
3,! U, UC&^, ^ Dg U,4 UC&^,6 $ g2F3@	"*Q*< & ^0H@A4D@ K DW+A ^ DW $ D` WC&X,NC$	  DC& * ,lC&X * ,FC& * ,H S W, x DR*(M R g (,^ $, R H ( *,: x DQQ~Y|,~ UMESMissing END statement. Supplied free of chargeModule  ... @L@67+L@6?+H?x0W@8@@@@6U@6U@8LZ@9

[	 (U*\R\Q|X>x1zx-"- UC&Y, UC&^,` ^2D>+e UC&Z	*U*A*d,a+f@@Z ^2D=+h g D^ U Y, x DS ^2D=+r S	*TT*m ; 7,N S B ( *,R x DQ+ Z0D+} S B,U	 Q T*u x0D+z O Dp S,) p x,* S ; (,n+ S B	 E*P(~ ( *,p x DQ S ; Z,| T Y, x DR R0D+		** T Y, x DR+ R J,u x1D+ a.$ Da $ 	 P
EC( *,2 Y,C$ &,v,3 R Dp S,Z p xp S	((,p x, Q Dp R,x p x,R R @ ( *, x	"A((  Dp S, p x,P R D ( *, x Dp R,! p x	*A (," R I ( *,% x Dp, p x,( R I ( *,+	 ((1 x Dp, p x,. R C ( *,0 x DQ R J ( *	(TT9,6 x DQ R D ( *,9 x DQ R L ( *,= x DP(B@@cQ~Y|,~ DDUPDuplicate entry name: . Earlier definition ignored@GN \GN \@~@AlD@AtD@BG	 (U"JR\Q|X>x1zx-"^,h `B$4DX 2 D^ UC&^, ; D^*U*TR E D^ UC&^,Q,+ UC&^,d UC&^,VQ~Y|,~@9JY{J	 *E*ZR\Q|X>x1zx-"L UC&^,X c.$ Dc ^2D?+c P :	*T*A"b,+y U ^,i x DS S H,
 x1D+p a.$ Da $	 Uk C( *, ^,C$ &
,,+t S H ( *,@ x*E
sDQ~S@;@(,P DpS,'RpQx,bQ~Y|,~ {DUMDummy argument3Qalreadywasadummy@GG:a?	 T R\Q|X>x
1zx-"Q$X$p*$p UC&\,^ $ 
;"
!&@	")F( <"!*@

)J8GGGG 
\)F(0&@B$5D7U	*P"PC&],  p Dp p	"! 
pQ%0X$p*$p2h+0Of 

A,",0(F0J(J}.*p 

A,"

	 A)(D0d(H}.(p3HAfGD 82(+0\ x @ 9-GF(E
pGp	 @ 2GpppGpGpp	Q$pX$p*$p+

 $  Dp0d-+@ pC&p  "D:(@}. A$(F0&+? p \ Fl:p+8Q~Y|,~ B@@JLJL@~@V

B@RLD@RDD	 *T ER\Q|X>x1zx-"
 UC&^, U ^,d x G ( *,"M x DQQ~Y|,~@GaazEGaaE	 *U(PR\Q|X>x1zx-"G UC&\,I UC&^,T V^ 
\,Q~ XY|,~@NgPNoP *PYR\Q|X>x1zx-"R UC&^,U ^ DhQ~Y|,~@Cu	ZJ{Y	 *T*`R\Q|X>x1zx-"\ UC&^,9 U ^,J x DS S ^p*i S,p x,uQ~Y|,~@KraKr`	 *U*mR\Q|X>x1zx-"c UC&^,d ^2D<+w UC&^,] ; D^	*U
U(uUC&^,TU^,fxxDSS^ph,kSpB,gx1D	*P*~+a.$rDae$lC(e*,l^,mC$&,o,o+@~@`

@`@`<	 *T(R\Q|X>x1zx-"o UC&],t UC&\, $ \2F9@ &(*@ ]0H@A4D 8 D\ UC&\,vQ~Y|,~@O4'	O4'	 *P*!R\Q|X>x1zx-" UC&^, ^k)F0&++ ^ , D^	*T" *@@^+/ U ^,x x, x D^ $ D^ UC&^,Q~Y|,~@S$3	"S$3!	 *U*2R\Q|X>x1zx-"$ UC&],% UC&[,6 UC&\,8 ]3d\	*U
;+= ] D^+> \ D^ $ ^2F9@ & [2H>@A4DI N	" (C Dp,, p x$&Pp,2p x.,z@@^ UC&^,0Q~Y| L,~@$	3S&J{2	 *U*LR\Q|X>x1zx-"5 UC&^,9 UC&^,P 7 D^@@^ UC&^(U,JQ~Y|,~@#a<MS;L	 *U"WR\Q|X>x1zx-"O UC&],R UC&\,[ ].\1D+c a	"*U _.$ Da $ C( *

,, 8 D^@@^ UC&^,UQ~Y|,~ hICCIllegal COMPLEX constant@F/l	WF/lW@x@lh@lh	 *E*kR\Q|X>x1zx-"Y UC&^,\ ^0D+n UC&^,o T ^(Q
Ts, x C,| x,V x D^@@^ UC&^,fQ~Y|,~@S#mIkS#mKk {H`	 *"{R\Q|X>x1zx-"m VC&C(e, $ Dg $ e/&3fg@	*Q   g.(. ( 1F@A4D g.$ Dg g/$^& {	 T

&&`=(
g. '.C8h+ g Dp0d+ p^&	(P {&&`=( (.C8h:p+C$C&p ( *@

@O	 A" @,C$6D $4D) a.$ Da $ C( *,bC$p & g	 *&/(,C$ &
,,c+:  g.&. & 0D@  
g	 
..*. * 'C, (@}.

 

0A((L 0,@
A4F7,+8  7, $,C$p &,C$@,Q~Y|,~ =FNFINCLUDE-file "" not found. Ignored@@@Jtg|Jtk{@@@t,=@t4=@tt?@v

A	 *U
CR\Q|X>x1zx-"~ UC&],r UC&^,G ^3D+f U ^	(T
K,, x DS S, x Dp S ^ p,{ S J ( *, x	*A@T DQ S A ( *,S x DQ $ 
:"
!&@)F( :"!*	 Q"\@

)J8GG 
])F(0&@B$4Df ]3Dp+f O Dp S, @e p x,HQ~Y|,~ h@E:$CE:/C@`@yh (hR\Q|X>x1zx-"E S A ( *,V x DQQ~Y|,~@Ce4iX3h	 
QpR\Q|X>x31zx-"k@@p UC&^,H ^1D+| p.$ Dp p	(*U*y ^. F UC&^,u+u _4D UC&^,{+ UC&^,q U	**U ^,K x DS _4D S ^ 7,P S H,u x0D+9 S	(**
 G ( *,m x DQ T ^,s x DS S0D+ T ^,	"A** x DS S & (, S D, x DQ Q0D+ S D (	"(P
 *, x DQ Q &, Q Dp3 Q,v p3 x.&, S C	(Q("#, x DP P0D+* S C ( *, x DP P, P Dp3	*", R,d p3 x,y P Dp3,F p3 x,. P p,1 p Dg1$*A*@4+8 P g. ,2>g+4+9@@PQ~Y|,~@z#qFp 
;R\Q|X>x1zx-"s $ D_,qQ~Y|,~@#4;P3; (AR\Q|X>x1zx-"=@@_,qQ~Y|,~@q4AH#83A	 *E*FR\Q|X>x1zx-"C UC&^,~ ^0D+I UC&^,J U ^	(TT
O, x DS S H ( *,( x DQ S, x Dp S ; p*PW, UC&^,yQ~Y|,~@utGK\l3F	 [XwXwXwXwXwXw \Q|X>x1zx-"Ip Hp Jp Lp ;	**Q(c D^C$^p, V^ 
<,W T ^, x DS S M ( *	( l,R x p," S L ( *,l x p,m S C ( *,p @t x p,qQ~Y|,~DwWm^wWm[wWm[	 TwR\Q|X>x1zx-"`   ( 
9 

9,^   ( 
9 

9	( 	,^   ( 
8 

8,^   ( 
8 

9,^   ( 
9	*( 	 

9,^   ( 
9 

9,^   ( 
8 

9,^   (	*@*(	 
9 

8,^   ( 
9 

8,^   ( 
8 

9,^  	"P
@*	 ( 
9 

8,^   ( 
9 

9,^   ( 
9 

9,^ 	 TP
	"  ( 
8 

9,^   ( 
9 

9,^   ( 
9 

9,^	 T	*   ( 
8 

8,^  \( 
9 

9,^  \( 
9 

9	( 	3,^  \( 
9 

9,^  \( 
9 

9,^  \( 
8	*( 	; 

8,^  \( 
9 

9,^  \( 
9 

9,^  \(	*@*(	D 
9 

9,^  \( 
9 

9,^  \( 
8 

8,^  	"P
@*	L ( 
9 

9,^   ( 
9 

9,^   ( 
8 

8,^ 	 TP
	U  ( 
9 

9,^   ( 
9 

9,^   ( 
9 

9,^	 T	]   ( 
8 

8,^   ( 
8 

8,^   ( 
9 

9	( 	f,^   ( 
9 

9,^   ( 
8 

8,^   ( 
8	*( 	n 

8,^   ( 
8 

8,^   ( 
9 

9,^   (	*@*(	w 
8 

8,^   ( 
8 

8,^   ( 
9 

9,^  	"P
@*	 ( 
9 

9,^   ( 
8 

8,^   ( 
8 

8,^ 	 TP

  ( 
9 

9,^   ( 
9 

9,^   ( 
8 

8,^	 T
   ( 
8 

8,^   ( 
9 

9,^   ( 
9 

9	( 
,^   ( 
9 

9,^   ( 
8 

8,^   ( 
9	*( 
! 

9,^   ( 
8 

8,^   ( 
8 

8,^   ("@

* * 

9,^   ( * 

9,^Q~Y|,~	 
0ABS   IABS  DABS  CABS  FLOAT IFIX  SNGL  DBLE  DFLOA	 
8TAIMAG CMPLX AINT  INT   IDINT AMOD  MOD   DMOD  	 
AAMAX0 AMAX1 MAX0  MAX1  DMAX1 AMIN0 AMIN1 MIN0  MIN1 	 
I DMIN1 SIGN  ISIGN DSIGN DIM   IDIM  EXP   DEXP  	 
RCEXP  ALOG  ALOG10DLOG  DLOG10CLOG  SQRT  DSQRT CSQRT	 
Z SIN   SIND  DSIN  CSIN  COS   COSD  DCOS  CCOS  	 
cASIN  ACOS  ATAN  DATAN ATAN2 DATAN2CONJG RAN   TIM2G 
kO@^}FIx^}FSw@	A4
0A,
0Ad
1A\
1A
2A

2AD
3A<
3At
4Al
4A$
5A
5AT
6AL
6A
7A|
7A4
8A,
8@	Ad
9A\
9A
:A

:AD
;A<
;At
<Al
<A$
=A
=AT
>AL
>A
?A|
?A4
@A,
@Ad
AA\
A@	A
BA

BAD
CA<
CAt
DAl
DA$
EA
EAT
FAL
FA
GA|
GA4
HA,
HAd
IA\
IA
JA

J@	AD
KA<
KAt
LAl
LA$
MA
MAT
NAL
NA
OA|
OA4
PA,
PAd
QA\
QA
RA

RAD
SA<
S@	At
TAl
TA$
UA
UAT
VAL
VA
WA|
WA4
XA,
XAd
YA\
YA
ZA

ZAD
[A<
[At
\Al
\@	A $
]A 
]A T
^A L
^A!
_A |
_A!4
`A!,
`A!d
aA!\
aA"
bA"

bA"D
cA"<
cA"t
dA"l
dA#$
eA#
e@pA#T
fA#L
fA$
gA#|
gA$4
hA$,
hA$d
iA$\
iA%
jA%

jA%D
kA%<
k	 E 
lR\Q|X>x1zx-"z Dp Fp p DU p DVC$'C&iC( *,	(

tC$M  ,eC$M  ,
vC$L  ,
xC$L  ,
zC$K	 P(

}  ,
|C$K  ,
~C$J  ,C$J  ,C$I 	"A P( ,C$I  ,C$H  ,C$H  ,
C$G  	*A ,

C$G  ,C$F  ,C$F  ,C$E  ,	(
C$E  ,C$D  ,C$D  ,C$C  ,C$C	 P(
  ,C$B  , C$B  ,"C$A  ,$C$A 	"A ' ,&C$@  ,( VC& (, x D@ VC& (,, x	*( 0 D? VC& (,/ x D? VC& (,2 x D> VC& (,5	"A
(8 x D> VC& (,8 x D= VC& (,; x D= VC& (	(P"A
A,> x D3 VC& (,A x D2 VC& (,D x D6 VC&	"P"I (,G x D< VC& (
,J x D< VC& (	,M x D; V	 ERC& (,P x D; VC& (,S x D: VC& (,V x D:	( EZ VC& (,Y x D9 VC& (,\ x D9 VC& (,_ x	*( c D8 VC& (,b x D8 VC& (,e x D7 VC& (,h	"Q
(k x D7 VC&F (,k x D6 VC& (,n x D6 VC& (	(P"A
t,q x D5 VC& (,t x D5 VC& (,w x D4 VC&	"P| (	,z x D4 VC& (,} x D3 6"!$@)D  

6"

	 

!(@
)H0GG 

5"

!(@
)H0GG 

5"

!(@
)H0	 @@

GG 

4"

!(@
)H0GG 

4"

!(@
)H0GG 

3	 *U*

"

!(@
)H0GGk 6 9 F, 6 9 F, 5 8 F, 5	*U*Q


 7 F, 4 : F, 4 : F, 3 : F, $  Dh0d-+

( h 9	*D*U

' Fl:h+

% $$ Dh0d'+

- h 9 Fl:h+

) V, x &t,	"D(

/ x DT T &x,

/ x DU G &x, x DT D &x,

4 x DS	**E 

8 V T,,x V U,

9 S E, x DS S B ( *,t	"P"P"

@ x DO S K ( *,

@ x DO S F ( *,

C x DN S(*@

I A ( *,

G x DN@@a@@`@@` U,Q~Y|,~	 

PListing of the FORTRAN-10 source fileargclaargcouargs  argtypbadas	 

Xnblock.changedefinddeflindefpagdummy entrieextern	 

aglobalintdivlibdefmain. misc. modulenumrefrefs  type 	 

i typed undvarunivarused  who   @(@)@*@/Function	 

rSubroutineEntryBlockProgramInteger_ConstantArray_IdentifierIntrinsic_Ident	 

zifierFunctioneIdentifierIdentifierStringLabelIntegerRealDoubleComplex	 
lMB`S
l@	A.4

PA.\

TA.T

TA.|

UA.t

UA/

VA/

VA/<

WA/4

WA/\

XA/T

XA/|

YA/t

YA0

ZA0

ZA0<

[A04

[A0\

\@	A0T

\A0|

]A0t

]A1

^A1

^A1<

_A14

_A1\

`A1T

`A1|

aA1t

aA2

bA2

bA2<

cA24

cA2\

dA2T

dA2|

e@	A2t

eA3

fA3

fA3<

gA34

gA3\

hA3T

hA3|

iA3t

iA4

jA4

jA4<

kA44

kA4\

lA4T

lA4|

mA4t

mA5

n@	A5

nA54

oA5d

oA6

pA6D

pA6t

qA7$

rA7T

sA8

sA84

tA=T

uA9

wA9D

yA9t

{A:$

}A:T

~A;

A;4

@@A;d
A?Dt(XwXwXw \Q|X>x1zx-"
nC$D,C$	"Pi1(@}. A$(F0&+	 
@ ( *+C,i (@}.

 

0A*(L(0,@A4FpC$X &,cp x *,
C,e,C$' wC& e *
,(,Qd' d (, & (,
C,e,w	"
A* e *
,P,<+,d0D+
"J,+Qa.$ DaS,,xDS+[FVRSRT Sorting global symbol table][FVRVTR Writing .VTR attribute file]D7~

	 
XwXwXwXwXw'\Q|X>x1zx-"C& (
	(`@C*gC,,g.$^&S	((") B ( *,

J x DQ S J ( *,* x DQ g0D+5 S	"A*1 Dp S, p x 7,W+= S Dp S,2 p xp V w	 (Q(: C& (
,

p x,4C$' &,C$', Fg S M ( *	(UB,. x g,u S L ( *,B x DP S F ( *,F x	*A

K DQ S M ( *,J x DPC$' &,>C$9 1D+xC$' w	  AS C& (
C*gC,,!Yg.$^&	 E\C8h g1D+t P Dp V w C& (
,; p x,7C$9	 U(*d 0D+h P <,c+mC$9 0D+l P ;,g+m P ;	*
m,kC$9 C& (@}. A$(F0&+tC$' &,PC$9 "E u1D+xC$' &,t+PC$',Q~Y|,~ {@

D^|'^|.^|/@~Ad{Aj\}Aml	  XwXwXwXwXw \Q|X>x1zx-"C$,C$C& * 	*T(U	,,@@g T,
+C$X&Y(,XSC&W,	Fg.$tDguS,sxlDS+DO1^O1^O1^@`Aq#	 
&XwXwXwXwXwXw \Q|X>x1zx-" a1D+/C$ ,!	( P*/C$.C& * ,C$ aC( *,iC$1 &. (,,. a0D	*P
7+9@@g+EC$4C& * ,1C$C& (C8 *S
@

@O	"UQ@@,C$,yC$C&= (C*g@

,V g1D+^& &&`	*(A(H=(HC8=$0D+L,+C$=,C$E,  DLC$=C&E,C$=	"@T*Q,C$'C&= (@
@

@O@,@ T, x DSC$'C&X (	(U YC*gC,,DC$WX,*C$9C& * ,; $ w D $ S1F	"*Tb@C&'6F &B&A4D SC&V, W V, x0$0d+	"P*E*j+ S J, x0D+n,C$'C&X (C*gC,Z,ZC$WX,\	*"U"s S, x DS+ S,s x DS+C$',AC$'C&X (C*gC,p	*U*{,qC$WX,r+@x@k@u+` w 4DC$\C& * ,^*P,6C$,+/Q~Y|,~	 [FVRUDS  undefined external referenceSearch: TTY:/U/IVTR  Found nothing here.DSNV>*SNV>'SNV?&HA`A}(H?xuAv@xAu|Av,AwAwD

AwTA{TB$	 XwXwXwXwXwXw \Q|X>x1zx-",C$C& * ,	(
D",C$&,C$&,,T,VxDS@@pS1D+L*S	*UA*#C&W,fWC&X,C$^C&X*,&&(,5S&J,l$x	"@"Q,0D+7C$&C&&*(,(DDpSD,+x,? p xC$D (,4 &	"N (,G Dp S D,I x,J p xC$L (,M & (,N S	** V L,P x DP P,

P,p V Dp P,[ p x wC( *
C,e,	 E*g wC& e *
,FPP,xB$4DoC$g & (,^+	((U(pC$m & (,o,6 S C,Z x DQ Q,Y@@c Q,k xB$	*D*T*x4D3 Q,c x,@ xC&W,B Q,j QC&b, QC&d,~ P	(QE*,u $ d2Fd@ D $ d Fp Dg2dp+ Q gC&O, g	 P"T
	 &p P,yp x2HO@A_ F_ P,w xB$4D P,}	*E
T:g+ _B$4D2 c.$ Dc WC&X,CC$pC& * ,iC&X	 A"@" * , & (,q b (,TC$C& * , $ d Fp	(UT# Dg2dp+0 V g O wC( *
C,e,fC$ wC& e *
,!	*P*A*+g2$d+/C$(&(,:g+#C$-&S(,.,r+v!c1D	(*U4+HMp0D+7C$,ESC&W,|PWC&X,C$6C&O*Q,+	"Q<C$VcC(e*,3C$<C& *s,<C&XpC$X &,INE / FUNCTION cal	 ^lsName    module   line   calls   Argument types (A1,A2,...,An)	 udf.		Not 	 gknown. No verification.ext.	 lib.		 ?			(?FVRICC  incorrect call to routin oe [FVRCOK All routine calls correct][FVREND End of FORTRAN-10 verification]D7~7~7H?x/BH@|BVB<ZBTB\eBLfB4iBkB|kB,lB\mB|nBdpB$s *wR\Q|X>x1zx-",

 $$p  g. /&. Dp:g+@@g V, x Dh	(D g.$ Dg $ g2Fp@ & h 

 
)J 0*@G4D

 $*@
D h 
)H0(@B$4DV,@GF~GF}@xB#B"|	+*TR\Q|X>x1zx-"VC&C(e,VC&^,@@p+ 0D	(DP(+1($e Fp2Dg2dp+1^$$p&g../&.,Dp:g	*0+*+:$,e Fp,Dg2dp+:C$$p  g. /&. Dp*9:g+3p,D^:V^,Q~Y|,~@^}!^}!>H`	 @*>R\Q|X>x1zx-"">DpFppVpC(p*C,e,(Ba.$	(@GDa p0D+LR$QC(1*,$+N $CC(,*l a.$ Da $ C(	"
A(*,N$eFpDg2dp+*,i,t p, x DhQ~Y|,~ LERUnrecognized symbol: "", ignored@"e~"e#}@~B0TB0\B1\	D"

"e~^}! GF~kA1x
l^}FIxutGq4A	D"#4;z#qCe4iE:$CJtg|S#mIkF/l	W#a<M$	3	D"S$3	"O4'	3	mKraCu	ZNgPGaazEJL~"7	D"G
)W"e~Y_?^}! GF~kA1xMB`I
l^}FIx	D"utGq4A#4;z#qCe4iE:$CJtg|S#mIkF/l	W	D"#a<M$	3S$3	"O4'	3	mKraCu	ZNgPGaazE	D"JL~"7G
)WOHWOH.OHfeo#/Qdu^c;0	D"`eO`N	Cc.$*

` kkc:(_tcC83cWn&cNy`
!"	D"f7

W>c^hLH
td+#rM8cG+;Dc?vG/d+#qd+#V`rLc(I/Q	D"`

NeY^zjd"e^<	D"d"e%d!),Hgelkzd"e;gEd"e>wbd"e-d"ea"

-d"ej+

;e	S1w	D"eb1wz`	Ce

yd

`3*fe+c?m`&WC`3P[`3EGeq8x*	D"e

[ew:$De<L3`0To
eKMeJiSsdjH,H=dvL3

G7	D"`PH38`PcJdl5AS`A*GOdt+'Kdj\K

<dpiSh`aR	ec}S(

1`ioedeK

6eL&]gheV7Mg}eMqmg9`z,`:zbM	J	D"`
Nux`-%Te5$@U`
NsMwf73SgR-?f7Of7rGbK1e4|C{xaJ1ggaJ1gg((N