Trailing-Edge
-
PDP-10 Archives
-
BB-4157F-BM_1983
-
fortran/system/fortra.exe
Click fortran/system/fortra.exe to
see without markup as text/plain
There are 23 other files named fortra.exe in the archive. Click here to see a list.
?p 0 2 t ?h X BW ?x + t 2a|FBL BL\tBW g .h g,> Z + @ ,> Z ,> + @ ,> Z ,> ,> + @ ,> Z ,> ,> ,> + @ ,> Z ,> ,> ,> ,> + @ ,^ ,^ ,^ ,^ ,^ ,~ -0 0, E+@ C+ U+ T+ H+ N+ O+ P+ P+ Q+ U+ U+ T
aJ + L
AaL + MO@ Bd " + U " + U " + U " + U " + U
BaJ + T@@ Bl " + U@
E0J + ^ aN + \ . . P HB E0B + fL^ . \ ., }+@ h+ m, BW, >z, 0U+ k, :i, y, 0n .
, E
.
d/
g J d@ + P-0P
. @ Bp Dp Fp " p p p / + P@ `
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983
M?LPM?H@M?H`M?I M?I M?I@M?I` FORTRA FORTB FORTC FORTD FORTE FORTF FORTG ! " ?FTNNGS - CANNOT GET SEGMENT - ERROR CODE: @ @ @ @ 3 Z " @ ?{ |J H |H | p H , U j /TAKE:000NFO.TMP;T
\tBW+ .h2 gM?LP|fBN @ +P ?Z + ,^ @, A+P,> @,~ ,^ @, u+P
,> @,~ ,> Z + @ ,> Z ,> + @ ,> Z ,> ,> + @ ,> Z ,> ,> ,> + @ ,> Z ,> ,> ,> ,> + @ ,^ ,^ ,^ ,^ ,^ ,~ Z< / \ |Q>w8Z<p X @ ` 4C C~0 C&l`C&v@ C2|p C2|t(C6 C6 C6Md C6Md C6|@ C:Mm CNM` CR
,`GF G" G2|p G7RG7TG7YG7CQG7CRG7CTG7N G>u)`G? G? @ G? G?$@GNM` GO- I0 I |`I @I$@I$II
dP I
dSQI
dSTI~0 I~: I~H7IMP IF Iex:I&h I&v@ I2|p I2|t(I6SI6MdYI6|@ I:Mm ICy INL{@INM` INMj IO- IR [B [B [&p [&r [&r [> ]&v@ ]?h`]?i ]?jM]?l@ePFP] PGP^ PHP^ PIP PIPV PJPV PJPW PNPOPNPq PPPQPPPO PRPYPK PSPY PXPWPqPX PeP\PZ PcP[PL PrPhPfPh PEP]PM PFP] PmPGP^ PoPHP^ PpPHP PpPf PsPrPvPs PiPtP` PtPaPT PuPa PvPbPT PwPb PwPc iz(
Q!,0 ,0 ,0 ,1x ,1x ,0 ,0 *0 ,0 ,0 ,0 ,0 ,0 ,0 :( Q$h(
f`
$ ( l
, j
&` z
Q&n
h f`
&@ &@ &@ &@ :( @ Q):( @ Q+:)x @ Q.h!| *!x :)x @ Q0h!| *!x x Q3: Q5n8 l0 h
j( Q::( Q=*( :( Q?l(ow{}~?ow{}~?ow{}~?ow{}~?ow{}~,> &R^+ RH,> &R+ RH,> ,> \"R` , RZ\"Re \ \"Rg S~ & @ )B l =fRO\"Rh Rh Ri `d 2Fp @ Fx ,^ ,^ ,^ 7@x + D+\"Ri +x ,> " 3 Rl J+ ,^ ,~ SKERR CGERR ?
? Internal compiler error processing statement
? Call to from
@ |+ p
Debugger execution:
( -0P
. UF ( QH 8, TE Z |6J 5+ Rv | X 5 X 7 . XN` $S( @ GH@ A0XP` + S Z 7[` 4NRx[` + RvZ` 2Hw+ S
|QL` wXN` 1N X 7 $S* @ GJ R`` A(XH` + S [
` 4LS[` + SZ` 5PS
Z
` Jp S, @ BL(
|XL` $S0 @ GP8 wXP` A.XN` + SZ` Z
` 3*w+ S+ Rv/ UF+ P-0P . UGZ 8ZkUR Hp 0z + S(Z
81l + S, SFd + S , S* Zp p .p @ H "5HS , SF
p .
p " N0 R`8 d + S), T$aZ + S!l "+ S)
"Z0 4NS$Z0 Z "+ S , SF "
p .
p Z
( XL XH( d 7 @ / UG+ P 8+@#S++ S5+ S.+ S/@ + S2@
:&* '+ S1 :F ;
&* + S5
:1* + S5&* 7 #
,~ -0P w *PC J } ,Pw L } }3n }+ S=O + P }. }&( 2XX + SAZ + P3xX + SD 8 Z }+ S: < P }+ S:+ P, TE Z " 8+@#SI+ T#+ SQ+ SX@ + S^+ Sb+ Si@ + T+ T
+ T
+ T+ T@ + T+ T @
"
8lUG : N( 0 pUH ( hUH
E0L + T# . nUI+ T#
"
: L( ; N( 0 pUH 8hUG@
lUH+ T#
"
:XL( . nUH 0 P( + T#Z
"5JSe "QZ "XZ "+ Sg " "XP8 XP " " : P8 + T#7J $+ Sl "XZ( + Sr "XN $QN $ 0 pUIZ`8 ( hUJ, TE Z "
$
"XL( "XN $ 3QP8 4hUI * jUJA( , 1( @
0 0h @ A
. 1H @ A
aL + T[
{5JT "XZ {QZ {+ T { "XN XN {
" 4QP( 4PT#QJ@ + T#
"
:QL( ;XN( @@( 8pUG+ T#
"
4lUJ+ T#[
#5JT "XZ #QZ #+ T# # "XP8 XP #+ T#, RG+ T#6J '+ T "XZ 'QZ '+ T "XN( XN ' " :XP8 QP8 + T#6J |+ T "XZ |QZ |+ T# "XN( XN |+ T#6J )+ T! "XZ )QZ )+ T# "XN( XN ) ",~ 8+@#T%+ T8+ T(+ T+@ + T3@
"
:2L( + T7O ,~
",UG2L 8+ T70UK4PT1
:2L( + T7 ;2P( + T7+ T*
;2L( + T7+ T*
"Z
( 2L :+ T7 ( 8 P( + T*@ ,~ -0P ?2( (+ T;
( L ?:
w~.
w2L (+ T?"w~.z (+ P w~10 + TC
wZ
*XL( XJ *+ P
wZ
@*XL( XJ@*+ P-0P[ 808 + THZ`*+ TI@ 4VTK
X XL`*+ TU (.X (
/
( L 25,TU,> (, Cg/ UF / ( P 2 (/
?2* (+ TU ( N ?@@X 1X + TZZ.X Q Z0X X . *4o + P-0P
U H :
UK J 8:
U, S . nUL + P-0P
( QH 8, TE @@` Z``
w}jUL
w}lUM w~nUM@@` w~QP` wXH` + P-0P
( QH 8, TE @@` Z``
w}jUL
w}lUM w~nUM@@` w~QP` wXH`
w|XJ` 4PT}.UN ( 0N @ *UN , 0J @
G aH + T|S: GZ` + T}XX@ 7Nw+ U*UJ 0 0J @ ,UJ ( 0L @ G aP + US: GZ` + UXX8 + P-0P
( QH 8, TE 6J + U X + U
XX8 X . nUL 0 pUM ( hUM
wjUN,UDS 0UE(P . (UE(H . *UF. .UO N` :
+ P-0P w.( &( 8
., QL 8 . XN 8, SF w PX QXX *! XJX S( GHX + P-0P w*UO0J + U<.UP5NU' + P
w,UH0L + U* ( + P w0UP0P + U- 8 + P
w(UQ0H + U0 0 + P w*UQ0J + U3 @ + P w.UR 0 0N @ *UP , 0J @
G aP + U<[ 7.X + UB X + P w0UJ0P + U?[8 ` + P
w,UH0L + UB[( 7` O + P@ `
( ( ( (( 8 8 ( ( 0 0` ` ` ` @ >` 8 0 @
.+@0 -.UY`n@0, X+ -,~ .
- - -, V2/
-( -( -, V4$
-H -H -, V5&
-h -h -, V6.
-H -H -, V2/
-h -h -, V4$
-H -H -, V5&
-h -h -, V6+ , RE, Wm, Wm+ , Wm, Wm, Wm+ + , Wm, Wm+ , Wm, Wm, Wm, Wr, Wr+ + , Wr+ + + , Wr, Wr, Wt+ , Wr, Wm, Wt, Wt+ + , RE, RE+ , X
, X
, X, Wu, Wu, RE, RE, X+ + , X, Wu, Wu, RE, RE, X+ + , X, Wu, Wu, RE, RE, X* * + + , RE, Wm, Wm+~ , Wn, Wm, Wm+~ + , Wm, Wm+ , Wn, Wm, Wm, Wr, Wr+ + , Wr+ + + , Wr, Wr, Wt+ , Wr, Wo, Wt, Wt+ + , RE, RE+ , X
-G
-I
-F
-( -
-,~ -
-,~ , RE, RE, VR, VT, VT, VY, V[, VT, VT, V`, Vb, Vd, Vd, Vj, RE, RE, RE, RE, RE, RE, RE, RE, RE, RE, RE, RE, Vm, V, V, RE, VR, VW, VW, VY, V[, V_, V_, V`, Vb, Vh, Vh, Vj, RE, RE, RE, RE, RE, RE, RE, RE, RE, RE, RE, RE, Vm, W#, W#, RE -(
8 ,~ 7 -" -(
H ,,~ -hXG,~ -H8 J8 ,~ 5*V] . ( -/. .
" -(
8 ,~ " -hXG,~ " -H8 J8 ,~ -(
8 .
,,~ -(
H , ,,~ -hXGH ,,~ -H8 ,J8
,,~ 7N -+ Vu4.Vy N -@ aN+ Vq(.+ Vo3N -,~ (. $
`N $
,+ Vq6@ ,+ Vx * @ , X+,~ * ,~ U*7H ,+ Vv * `N
2HXG1H + V~@
@ ,~ XH# -4NW ,5BW+ W
B +0W`N H +0W(N5NW6 -+ WXHb +0W + W6@ ,+ W@ , X+@h + W6 -+ W@ , X+U(U*+ W@h + WH (N4NW-.W`n + W6 -+ W!+ W -.W`n + W6 -+ W XHb +0W+ W! ,^ d.+8 6 -+ W!@ , X+4(W U(U*+ W!( * + W@ , X+@h + WXH# -4NW- ,5BW'+ W0B +0W4`N H +0W9(N5NW&6 -+ W>XHb +0W@ + W>6@ ,+ W>@ , X+@h + W>6 -+ W3@ , X+U(U*+ W>@h + W>H (N4NW9-.W6`n + W?6 -+ WE+ W@-.W9`n + W?6 -+ W@XHb +0W=+ WE ,^ d.+8 6 -+ WE@ , X+4(WCU(U*+ W>!( * + W>@ , X+@h + W>#
, RE, Wk, W^, Wc, We, Wf# , WS, W\, W^, RE, Wh, Wi, WR, WX, W\, W`, RE, Wh, Wi, WR7 ( ,~ , X* - H ,*
- J ,, X
-,~ , X"* - H ,*
- J ,, X"
-,~ # 7 -"h ,~ 3h -g -,~ 3h -+ Wbh -,~ @h ,~ & -,~ 3* -
-,~ 2j -
-,~ 3( - -,~ 2h - -,~ #
7 -"j ,~ * ,~ @
4HWr)~d(@ d* .XI,~
( ,~ 5JX=
XI,~
( ,~ 7@ 4JW}4(W~2hXJ+ X 3(XI+ X/XI7 l(@ )
@ ,~ 3(XJ+ X 2hXK+ X+ Wz@ , X+
XK7 "
@ ,~ @ , X+@h ,~ &( 6@ h(F h*6 * ,~ @
)|h(F XL,~ hXM,~ # %( (
'.7 ,"j ( ,~ 7 ( [ ({d(~ )?27 ,"`
( ,~ jXM ( ,~ 4HX=7 ( 3HXK2JXK+ X + X aj + X : l( 5(X U(+XN7 ,"` * ,~ 3HXK2JXK+ X$@
,~ 3HXN0J + X'XO,~ hXF * ,~ bJXE+ X", Ww*
,~ ,> ,> ,> ,> 3,>XP, 'Z,^x ,^x ,^ ,^ ,^ Z
.4NX=0,V0+ X4/,U[A, + X;0,V6+ X6 , + X;0,WG+ X8/,V6A, + X;0,WJ+ X: , + X; , 4LX=an + X=@h ,~ 4(X@U(0L U*,~ 1L + XC XO1L
XO,~ S( * ,~ UW@ 0 8 0 #\ c? H X @ @ @ ` ZMT Size modifier treated as FNA A function without an argument list DIS Opt - program is disconnected - optimization discontinued MVC Number of variables the number of constants in DATA statement AGA Opt - object variable, of assigned GOTO without optional list, was never assigned CUO Constant underflow or overflow NED No END statement in program LID Identifier more than 6 characters WOP Opt - warnings given in Phase 1. Optimized code may be incorrect VNI Opt - variable is not initialized RDI Attempt to redeclare implicit type CTR Complex terms used in a relational other than EQ or NE CAI COMPLEX expression used in arithmetic IF IFL Opt - infinite loop. Optimization discontinued ICD Inaccessible code. Statement deleted SOD statement out of order ICC Illegal character, continuation field of initial line XCR Extraneous carriage return ICS Illegal character in line sequence number FMR Multiple RETURNs defined in a FUNCTION VND FUNCTION return value is never defined NOD Global optimization not supported with /DEBUG - /OPT ignored PPS PROGRAM statement parameters ignored DXB DATA statement exceeds bounds of array VAI already initialized SID Slash (/) in Dimension Bound - use colon (:) instead IUA Illegal use of an array - use scalar variable instead CAO Consecutive arithmetic operators illegal DII Previous declaration of intrinsic function is ignored CHO Global optimization not yet supported with character data - /OPT ignored WNA Wrong number of arguments for statement function IAT Illegal type for argument of statement function TSI Type of symbolic constant ignored RIM RETURN statement illegal in main program DIM Possible DO index modification inside loop IDN Opt - illegal DO nesting - optimization discontinued PAV PARAMETER used as associate variable CNM Character and numeric variables ACB Argument out of range for CHAR, high order bits ignored AIL Illegal length argument for ICHAR, first character used FWE Found when expecting FEE Found when expecting either FEE or USI used incorrectly ICL Illegal character in label field IAC Illegal ASCII character in source UMP Unmatched parentheses NRC Statement not recognized MSP Statement name misspelled ISN is not IDT Illegal or misspelled data type IIP Illegal implicit specification parameter LLS Label too large or too small LAD Label already defined at line: DIA DO index variable is already active ILF Illegal statement after logical IF ISD Illegal subscript expression in DATA statement AWN Array reference has wrong number of subscripts IDN DO loop at line: is illegally nested DTI The dimensions of must be of the type integer EXB EQUIVALENCE extends COMMON block backwards ABD has already been defined IDV Implied DO index is not a variable TFL Too many FORMAT labels specified ECT Attempt to enter into COMMON twice PIC The DO parameters of must be integer constants RFC is a recursive function call MCE More than 1 COMMON variable in EQUIVALENCE group IED Inconsistent EQUIVALENCE declaration IZM Illegal size modifier BOV Statement too large to classify DVE Cannot use dummy variable in EQUIVALENCE VSE EQUIVALENCE subscripts must be integer constants NIR Repeat count must be an unsigned integer NIU Non-integer unit number in I/O statement IXM Illegal mixed mode arithmetic CER Compiler error in routine DID Cannot initialize a dummy parameter in DATA IOD Illegal statement used as object of DO NNF No statement number on FORMAT DSF Argument is same as FUNCTION name CQL No closing quote in character constant LGB Lower bound greater than upper bound for array EID ENTRY statement illegal inside a block IF or DO loop IAL Incorrect argument type for library function NLF Wrong number of arguments for library function LTL Too many items in list - reduce number of items LFA Label arguments illegal in FUNCTION or array reference DLN Optional data value list not supported DDA is duplicate dummy argument EDN Expression too deeply nested to compile ENF Label must refer to an executable statement, not a FORMAT VNA Subscripted variable in EQUIVALENCE, but not an array OPW OPEN/CLOSE parameter is of wrong type NEX No exponent after D or E in constant LNI List directed I/O with no I/O list LED Illegal list directed NIO NAMELIST directed I/O with I/O list SOR Subscript out of range IID Non-integer implied DO index IBK Illegal statement in BLOCK DATA subprogram SNL statements may not be labeled FNE Label must refer to a FORMAT, not an executable statement EIM ENTRY statement illegal in main program IDS Implicit DO indices may not be subscripted IIS Incorrect INCLUDE switch IVP Invalid PPN NFS No file name specified CFF Cannot find file INN INCLUDE statements may not be nested CSF Illegal statement function reference in CALL statement DFD Double name illegal IUT Program units may not be terminated within INCLUDEd files IFD INCLUDEd files must reside on disk SAD Array - signed dimensions may appear only as constant range limits DFC Variable dimension must be scalar, defined as formal or in COMMON RIC Complex constant cannot be used to represent the real or imaginary part of a complex constant DNL Implied DO specification without associated list of variables MWL Attempt to define multiple RETURN without formal label arguments NUO .NOT. is a unary operator DPR Dummy parameter referenced before definition VSO Variable dimension allowed in subprograms only IFE ATL Array too large PTL Program too large DDN DO loops too deeply nested - reduce nesting EIL Expression illegal in an input list TDO type declaration out of order ITL Illegal transfer into loop to label IND Improper nesting: DO at line has not terminated INI Improper nesting: IF at line has not terminated NIF No matching IF AHE IF at line already has ELSE UEC Label previously used in executable context UFC Label previously used in FORMAT context IVH Invalid hollerith constant - 0H IVC Invalid character constant - '' NCC Can't store numeric constant in character variable CSA Can't split string across numeric and character variables SNC Substring of non-CHARACTER variable ICN Illegal combination of character and numeric data CEN Character expression used where numeric expression required IOR Substring bound out of range NWB Numeric variable must be aligned on word boundary NWW Numeric variable must be aligned on word boundary OAG Octal or logical argument illegal to generic function LND Label must refer to a, not a declaration STD Statement is a declaration IBD Illegal substring bound in DATA statement FID Can't initialize character function name ZLD Zero-trip DO loop illegal in DATA statement CNE Character and numeric entry points cannot be mixed CEL Character entry points must have the same length CFL Reference to character function must have a fixed length OBO may only be specified once UKW Unrecognized keyword IXS Illegal specifier WIF is illegal with internal files OUB Only upper bound of last dimension of may be asterisk AOA Assumed-size arrays only allowed in subprograms ASA Assumed-size arrays cannot be used ISS illegal in SAVE statement NLS may not be declared length star CEX Constant or constant expression required MST must be ECS EQUIVALENCE-d to COMMON is illegal in SAVE statement EXI Exponent must be integer RUS Relational expression illegal as UNIT specifier UNS UNIT may not be specified NMD No matching DO SMC Size modifier conflict for variable IOC Illegal operator for character data ION Numeric operand of concatenation operator IAN Illegal assignment between character and numeric data NYI INQUIRE statement is not yet implemented IFS Illegal format specifier -0P . daS( H 8
w~
( pL :, S* Zp w N :, S* Zp p Z(@
p Z,( p Z8 3Pw~+ Z
8 Jp 5J_, RE+ _ p w~Z XN@
w J
p Z0 XP XH0 / da+ P-0P w*da,dbG
`J + _c w0db0P + _I8dc
8 al + _+Lcdszdc+ _<
8 aj + _6 8 ap @+ _/ 8 ah + _c w
cdsldd
w.dd0ddA ,deA aN + _<S0 @BP + _< cdsaP + _<[8 ,> , _"/ de`Z + _<
wS* GJ0
w ( ap + _?Lcdv+ _A ( ah + _B cdvzdf+ _H cdvaN + _HZ
( ,> , _"/ de`Z + _H wS( GH@ cdy+ P,db * 0L @
w w,df0dg ( 2L @ ,dgG 0dc , 00 @
w6dh.dhK A
G .diD D
aJ + _c
@ al + _ZS: BZ@ + _b @ an + _]S: GZ@ + _bZ@ ,> , _"/ de`Z + _b
wS, GL( O + P@ + P, RE@ ,~ -0P
. da wZ
Jp ,di0L + _t0dj5P_nZ
( 2Lw+ _mS: + _pS0 + _,dj0L + _qS: GZ( + _0dj0P + _S, GL( + _0di0P + _}Z
( L 8 Z0 Np 2xp + _ . Z@ 2Hw9_xS: GZ@ 9_x[
( 3Lw+ _oS0 GP( @ / da+ P-0P . de wZ
Jp ,di0L + `0dj5P` Z
( 2Lw+ `S: + ` S0 + `,dj0L + `
S: GZ( + `0dj0P + `S, GL( + `0dj0P + `@ + `[
( 3Lw+ ` S0 GP( @ / de+ P-0P
. da + ( Hp 38p + ` Z
`2Jw=`,> uZ`,> ,>`, uz/ dk=`@ / da+ P-0P
. de w
aj + `7 +
( Lp 38p + `9 w[8 Z`2P =`$
`QL8 0P + `,S: GZ8 =`$0P =`$ %Z
`Z8 0 2L @ *dkA aP + `3
wS( GH0
``l + `9S( GH`+ `9=`$[
,> , `U/ de@ / de+ P-0P
. de w
aj + `Q +
( Lp 38p + `S wZ8 Z`2P =`?
`XL8 0P + `FS: GZ8 =`?0P =`? %Z
8 Z` 0 2L @ *dkA aP + `N
wS( GH0
``l + `SS( GH`+ `S=`?Z
,> , `U/ de@ / de+ P-0P
. da 0H + `X@@ (+ `Y , L (
w.dl+@;`[+ a+ `o+ `e+ `o+ `g+ `o+ `s+ `r+ `s+ `s+ `t@ @ @ @ @ @ + `u+ `y@ + `o,> , `+ aZ0 Pp ( + Hp 2xp + a,>p p Z
h ,> Z`,> ,>`, uW/ dl9`i,> , ` / de,>w+ a Z0 4Pa,> + a ,> , ` + a,> , ` / de wZ@ 4Ha,> + a ,> , ` / de,>w, `:/ de wZ@ (dm0H + aZ` 4Na,> , `:/ de@ / da+ P-0P
. da ( + Hp 2xp + a
`2Jw9a 0N + a
``h + a
S* GJ` `+ a9a w/ da+ P-0P
. da 1H g : Z (
wZ0 4NaZ0 (dm0H + a,> Lp , a/ de p XZ8 + a,> , `U/ de w[ *dm0J + a![ ,> Hp , a/ de p QZ@ + a#[ ,> , `U/ de@ / da+ P-0P
. dm 1H g : Z (
wZ0 Np 0db1P + a-,> , `U/ de+ a0,> Lp , a/ de
p XZ(
*
( aL + a3Z( + a4@ Zp w[h ,> , a/ de Zp w[@ 3Hp + a=[
@ 2Lp + a<S( GH@ w
p QJ wZ
h ,> , a/ de Zp wZ8 3Pp + aFZ
8 2Jp + aES0 GP8 w p XH@ w[
h ,> Zp , a/ de
p QZ0 0N + a[ ( + Hp 2xp + a[
wZ
( Z`2L 9aM ` Hp ,dnldnS. GN( ( aN + aX,> , d1/ de wS( GH@ ``p 9aMS( GH`9aM@ / dm+ P-0P . de7Hw+ ah
al + adZ ,> Hp , a/ de p XZ@ + afZ ,> , `U/ de wZ8 Pw+ a^@ / de+ P-0P . dm w[
Jp 7Lp + a[0 Pp (do0H + as,> Lp , a/ de p QZ8 + au,> , `U/ de p [
8 Lp 4La}(dl0H + a|,> Np , a/ de p QZ@ + a},> , `U/ de p Z
+ al wZ
8 Lp 0dl0P + b,> Np , a/ de
p XZ( + b,> , `U/ de@ / dm+ P-0P . dl 1H g : Z (
w.dl0N + b(do0H + b,> , a%+ b!.do5NbR u Hp L uZ
0 ,> , `U/ de uZh ,> , `U/ de p P u+ bR(dp+@#b+ bR+ b @ + b&+ b.+ bD@ [
0 Jp .di1N + b",> , `U/ de+ bR,> Lp , a/ de p QZ + bRZ
0 ,> , a]/ de w[8 Pp 7Hp + bR,> , b/ de
p Z( Np + b)Z
0 ,> , a]/ de,>w, aj/ de w[8 Pp (do0H + b8,> Np , a/ de
p QZ( + b9,> , `U/ de
u Jp wZ8 P u7H u+ bCZ
,> , `U/ de uZh ,> , `U/ de uZh + b;
p L u+ bRZ
0 ,> , a]/ de,>w, aj/ de u Np wZ@ H u7L u+ bQZ0 ,> , `U/ de uZh ,> , `U/ de uZh + bJ
p J u@ / dl+ P-0P
. dp7Hw~, _d
w.dl0N + bY[0 RHwcw~*dq+@+b[+ c^+ bd+ c+ bk+ br+ b{+ c+ c+ c+ c+ c
,> ,>w, bT/ da w~Z8 ,> ,>w Zp , bT/ daGp + c^[
,> ,>w, bT/ da w~Z8 ,> ,>w Zp , bT/ daGp + c^Z
Lp 4Lc^ 8 Z0 Pp 2xp + c^ p . Z
h ,> ,>w, bT/ da`Z + c]9bu[
,> ,>w, bT/ da w~Z8 ,> ,>w Zp , bT/ daGp + c^Z
5Lc[ : 2Pw+ c^+ c^[ ,> ,>w, bT/ da
w~Z
( ,> ,>w Zp , bT/ daGp + c^[
+ cZ
,> + cH : 2Hw+ c^+ c^,dg+@3c+ c^+ c+ c+ c + c&+ c6@ [ ,> + cH[ ,> ,>w, bT/ da w~Z
@ ,> ,>w Zp , bT/ daGp + c^@@ [ Np 7Pp + c%[
@ ,> ,>w, bT/ daGz p Z + c + c^@@ [ Np 7Pp + c-[
@ ,> ,>w, bT/ daGz p Z + c' w~Z
h ,> ,>w, bT/ da w~[
@ ,> ,>w Zp , bT/ da p G G + c^@@ [ Np 7Pp + cB[
@ ,> ,>w, bT/ da p [ ,> ,>w Zp , bT/ da
p G
G Z p Z
@ Lp + c7 w~Zh ,> ,>w, bT/ daG + c^Z
5LcJ[ ,> ,>w, bT/ da+ c^[ ,> ,>w, bT/ da
w~Z
( ,> ,>w Zp , bT/ daGp + c^[
,> ,>w, bT/ da`Z + c] w~Zh ,> ,>w, bT/ da`Z + c] w~Zh ,> ,>w, bT/ daaZ + c^O + c^@ / dp+ P-0P
@ 7Hw+ ce,> , cf/ deG
wZ0 Nw+ c` + P-0P. dl w*dq+@+ci+ d0+ cs+ d0+ cy+ d/+ c+ d+ d+ d0+ d+ d, RG+ d+ d0+ d0, RG+ d
+ d + d%+ d/[
,> , cf/ de wZ8 ,> Zp , cf/ deGp + d0[
,> , cf/ de wZ8 ,> Zp , cf/ deGp + d0[
,> , cf/ de wZ8 ,> Zp , cf/ deGp + d0Z
4Ld0Z ,> + d#Z
+ d [
,> + d#,dg+@3d + d0+ d+ d+ d+ d+ d@ [ ,> + d#[ ,> , cf/ de wZ
@ ,> Zp , cf/ deGp + d0[ ,> , c_+ d$@ [ 4Vd [X ,> , cf/ deG ZX + d + d0[
,> , cf/ de`Z + d/ wZ8 4Pd0Z8 ,> , cf/ de+ d0[
,> , cf/ de`Z + d/ wZh ,> , cf/ de`Z + d/ wZh ,> , cf/ deaZ + d0O + d0@ / dl+ P-0P
. de w
aJ + d>
wZ0 N Lp dq P 8@@ : 8 (w "Z ; ( H 8, S
p XZ( S, GL( , BL( @ / de+ P-0P
w*dg0J + dEZ Z` 0N + dE:dr+ P@ + P-0P ,> w2Hdr+ dJ : + dV6Lw+ dLO + dVLw(pdMO R w
(H( H 4HdU J L (ndRO . P 2J + dN:
+ dN < ,^ + P-0P w~ H ,
w J ,6, k+ d\ d` Z .+ d] d` N ., UW -+ P@ ` V,V+ 6 , 8 8 48 4 0( 2( *(
@ 8 8 @ &@ ( ( ( 8 0 ` ( . ( @ 0 0 X 0 F` ,> ,> k :@@ @@ @@ <
= 4 #5He* /4 4He (ne+ e%)G/4G4Be# 0n #+ e*, e,# 0n . 7 "` / %
;ef
;f., %
l0 . %;efmp .( .
ej 9e`h + e) /4 ;fL. 5Be T l( + e5dh + e).4 l( `d + e 14 @34g+ e$.4 @)|tg H < J =,^ ,^ ,~ 14 34g+ e$.4 )ztg+ e U(U*5te&@h + e& H < J =,^ ,^ ,>g, 'b/ g,~ 4"e%U(U*+ e&# 1v ,~ ).4 ( &6
/6 $6 4"e3, e</"H .4` ,~ , e9."H /4` ,~ l* `d .* ad .* @ej 9e+ e@l @p h[fgl[fg+ e=
[fg.. H , eCl( `l gd* dh + eBl( .4 [[ffZ[ff,~ (peG /4 (peG+ eK/2 4ReK/ " 42eK)H (
@ )
H ,~ )
H (
@ )H ,~ ;n=Z%5X.b'bN::q["$Dg -V k&9 A#WSj,L~he7` B~"l n+Gl*68}g5"NPQ*DB$e5Rm! CdW)Dt]w3vu5Z9k1(H%]2Z/?T?0{/J'NM ( 2 >@ ' 0j =@ &h /WB ;M2@ % /H .H;: :J(@$0N9(-<bR8kzIF#C<M|,4+a;7A6Yi"Xr+/^6r5\!pgAI*-1|4x!^;! )-z-f3Y8y 'sKc(1p>\2>,N4?
#lv+eh6^?"1/*ai [ @{_M+;"~`V*;^8ku+C96Ud4'+ A14[8nqc
".hm5<q1DlsI4[P;ar4b%-!znX=
9J.LC~=<~
4+ OA e1#`?,XNvR'nbT'u TX+E n5w,*)Z={Z$mjoV-4Refag?
z!/ l4m46GBa2JzOoNl!#kBGLf3
,@ h b .z@ ,H WZ mP@ B( Rr ( N@1a-9y*g'7T %IpZg>,LqA-`
li6HmH*5e+!OoK
k>
CcF-7j.|5dyb{ Z
o( CJuR#T=S&$fCt n q-/024579:<>?ACDFHIKMNPQSUVXZ[]_`bdegijlnoqstvxy{}~
! # % & ( * + - / 0 2 3 5 7 8 : < = ? A B D F G I K L N P Q S U 0
6r5\.z@ 8 ?1
k>
h 5:#Ei@
B]l $-#Q : $D7- @ * xpD85+2vo H /&- {*7h/H h 47gUtov)x% x 9 >}8+
/[I ?/"v1
}v h D7\:B2. H I(*K,
uEo "x T!u)W}2!R % Y1-:v8z
EA ' ^9:>y $ 1 )H d)g
5z6h[ +P i0U?L&&]mM -x n#4Gs?
J#[ 40 ~"u8w>,@NC 6P2gr{Yq;Dd 8X;D,u#h[ ; +e;z
* = >PVR`T ?0$:([P-Mi I AP 51<v9
\+ CX#=a8T5"mN@6$ | 00 -0P . kc wZ
J S, GL( [
L [ N Z P [
J , lkd 0kd0P + g8Z
8 J (ke0H + g8,ke . 0L
@ (ke 0 0H
@ G aN + g3
( L , ( H , k[ P ., UW kf N 8
- L :
- J ; 0kf P 8, S+ g7
kf L 8 ( "H : ( "P ;.ke N 8, S Z
(ke0H + gPZ( P ,kg0L + gP.kg * 0N
@
,kg ( 0L
@ G
aJ + gK @ N ,
@ L , k\ H ., UW
kf J 8 - N : - P ;
(kh H 8, S+ gO kf N 8
@ "L : @ "H ;*kg J 8, S Z ,kg0L + ghZ@ H .kh0N + gh*kf 0 0J
@ .kf , 0N
@
G aP + gc
J , N ,
k\ L ., UW kf P 8
- J : - H ; ,ki L 8, S+ gg
kf J 8 "N :
"L ;0kf P 8, S Z 0ki,kj3P + gn,> 0ki,> ,>kj, !i/ kk Z 0ki,kj3P + gu,> 0ki,> ,>kj, !i/ kk Z 0ki,kj3P + g{,> 0ki,> ,>kj, !i/ kk Z .kk4Ng~
w * @ GJ0 @@
*kl0J + h.kh0N
+ h
0 J , 0 H ,6. k+ h k] Z .+ h k] P ., UW -2Pkl+ h
wS, GLh + h2Pkm+ h+ h*km5Jh 0 0N + h wS* GJh + h
0 2Jkn+ hO@ + h 0 0 2Nkl@ ( 6J0 @ A aP + h wS. GNh 0kn1P + h1 * QJ 8, TE Z XN wXP8 S, GL8 , lkn * BJ8 *ko,> , j/ ko XZ XH@ XP
wQH0 H Z N * GJ0 [
0 4Jh1[0 QN Z`0 [
Jp QH(
w XH( ,>kp, j/ ko wQZ8 @@ ,kg * 0L @
.kh 0 0N @ A
aJ + hK Hp 7, k7k^ k^ p 0kp. .: Z .
( L , ( H , 8 P -
8 L -, UW
kf J 8 - H : - P ; ,ki L 8, S Z + hl,kq1L + ha w * jkq ( QH 8, TE Z
XN0 wXP8 S* GJ8 * jkn ( BH8 (ko,> , j"/ ko
XZ0 XP0 XL@
wQL( Z0 N L [( 4Hha[( QN0 Z`( [0 Hp QL ,>w,>kr,>kr 0ko,> ,> ,> , Tk/ ks Z
S( GH( [( H ,kq . 0L @ nks
(kl . 0H @ *kg , 0J @
A aN + i: w ap + h
,ke1L + hy,> ,>kp,>kj, !i/ kk Z kf H 8@@ :
@ 8
J ; , L 8, S+ i'
aJ + i
.kh1N + i,> ,>kp,>kj, !i/ kk Z kf P 8@@ :
"
( 8
L ; . N 8, S+ i'7, k7k^ k^ (kp. Z . 8 P ,
8 J ,
0 H - 0 P -, UW kf N 8
- J : - H ;
0kh P 8, S Z 7. k7k^ k^
(kt. .: Z .
( L , ( P , 8 H -
8 L -, UW
kf J 8 - P : - H ; ,ki L 8, S Z
,ke1L + i,,> ,>kp,>kj, !i/ kk Z 6p + ig
kal + i5 kf N 8@@ :@@ ; 0 P 8, S Z wS( GHh + ig kf N 8@@ : 0 P ; ( H 8, S+ ig w 0 pkt
aj + iI
.kh1N + iB,> ,>kp,>kj, !i/ kk Z ,>w,>kr,>kj,>kp,> kf H 8@@ : * J ; , L 8, S,> + ia
aL + iW 0ki1P + iP,> ,>kp,>kj, !i/ kk Z ,>w,>kr,>kr,>kp
kf J 8@@ : , L ; . N 8, S,> ,> + ia,> ,>kr,>kj .ko,> ,> ,> , Tk/ ks Z ,>w,>kr,>ku 0ko,> ,> ,> , Tk/ ks Z
.kh1N + ig,> ,>kp,>kj, !i/ kk Z 0kh * 0P @
w.kuD
(kvA
@ , 0n@
A
. 7(@ @ A
0 0 0h@ A
( 7.0 @ A
aJ + j kf P 8@@ : S
8 /
"L ; * J 8, S Z wS. BN@ . GN@ + j .kg0N + j @ 0h+ j wS, GL8 wS, GL8 + j(kv0H + j wS. GNh + j,>w,>kw,>kj,>kp,>kj,> , Tk/ ks Z w XN@
QL@ @ / kc+ P-0P
S( H 8*k_.* S
.k_.. (N .
0k`.0 (P .
(k`. .kw H ::
, S wnkxS0 BP` 0 pkx + P-0P
S( H 8*ka.* S
.ka.. (N .
0kb.0 (P .
(kb. .ky H ::
, S wnkxS0 BP` 0 pkx + P-0P w[
J 4JjG Z8 0P + j:
ky J 8, TE Z
. XN0 XP0 wQL 7J + jGZ( 0N + j@ QH( ,> , g/ ko+ jDZ( 0H + jD[( N 4NjD(kn0H XJ8 H Z
L + j:@ + P-0P
. kkd ( QH 8, TE Z
uZ0 XN( XJ0 0 pkz ( hkz,>w~, k$/ ko Z w,ki1L + jX
aJ + jW k{ Z :+ j[ k{+ jV
aJ + jZ k|+ jV k| H :S* J 8, S Z
XN 7, + jb 0 pk}S: GZ8 w~*k} J
" .( $
.* Jp .* QJ 8, TE XZ8 Z
p XP0 ( H
w~Z.( Q. N
w0kh0P + jpZ8 + jv
0 aJ + jw kf N 8@@ : 0 P ; ( H 8, S Z
+ jx k N
8
Jp 2xp + k
.
Z@ Hp XH0 *kq0J + k
. , lk~+ k XP `P + k:
.
[( Np XN0 0kn0P + k
. , lk~+ k
XJ8 3X
+ k ( .h :
.
Z XP( S, GL( :
9jy kf H 8@@ :
P ; . N 8, S
XZ( S, GL(
w~ 0 XH( S0 GP( wXP( S. GN( [0 XN( ( hk~
XP( hk@ / kk+ P-0P
. ko w*k J
Z, Q, 2L + k.+ /., .l [ $ H u7J u+ kY.kz0N + kWZ( 4HkWZ( N 8 Z8 Pp 2xp + kW . Z
6 L *kl0J 9k8[0 kP
( N 6 (l Hp 2vp 9k8 [
@ L [0 * 1N @
(l A
aJ + kM,>0 ,>kj,>kc, '
/ kk
Z0 N [8 ( 1P @ *kvA aH + kU,>8 ,>kj,>kc, '
/ kk . .n 9kD9k8 uZ
L u+ k2@ / kc+ P@ ` V2V2V2V,V+UcU[
(8 (( ( 0 (@ @ 0 ( 8
8 (0 0 _P 0 8 h 8 @ 0 8( ( < 0 B0 @ L ` D` $ ( ( CR@CTs@CT4'CT9g8 $@@ Fh F( F( $@ $@( D@ ,>7p, .Z/ mg,~ -0P w #pn38mh+ l
6mh
[nj, 0 4:l
l P m H
.*
S
L lO@ m+ l6L m+ l,>7p, .Z/ mg Z lO@ m[ l0v
+ l : (ZX + P (Z
+ P-0P
(w~/ l< " QH 8, TE [
8<
QJ` ,w~5Ll @ pwxw~ w~QX R`` + l! w~[@ XX R`` QX@ 0w[ 8. < pw*w~Z,(
'Q, Q 8 Z . *8o J l + P-0P. mg l/w~
w.
QJ 8, TEXZ 8
8.
mi Lp Zw~4Nl;8 Q 8X
w~[
( .
*:g [( .p 8 ( Nw~[` ,> ,> , T8/ mi+ l04Vl@ 8X
w~Z.(
'Q . *:g w~8 P l
p J@
'@ / mg+ P-0P l/w QV 84VlN, TEXZ 8
wZ.0
'Q . < *:` 8
L l 8.mi H0
'@ + P-0P
. mj l1( }+ lS,>ma, '^+ lu
w.mb Np 0mb+@ClV+ mD+ lZ+ lm+ ln+ lv+ m+ m+ m*+ m:7H m+ l\@@ m+ l^,>7p, .Z/ mg Z l[ l3Np + lh1n
+ lc,>mc,>mc, '^/ mi p ,>l-:[ l,>l-:,>md, '^/ mj ( QH l+ m 0 [ l(P Amk7Z + mD: l
l L8
'+ mD,> + m l Hp *md. Np 2xp + lt,> , lO/ mg4:mD9lq,>p , lD/ mg+ mD,> , l/ mg p w*me.
p Jp 2xp + l~ Acpn4Nl~ + m 9lz,>w, mE+ lu@@ ;:
l /p 8 H0
',> , lO/ mg5:mD+ mD,> , l/ mg p w*me.
p Jp 2xp + m
l@@0
'+ mC: l
/
p 8
J
',> , lO/ mg5:mDO + mD@@p l Hp ,>p , lO/ mg4:mD7N m+ m[ l0P + m&@@ m+ m 0 P =,>7r, .Z/ mg4Zm& l10 s+ mZ*p Q* ,> Z.p Q. ,> Z,p Q, ,> , l/ mj+ m7Jp + lt,>p ,> ,>p , l)/ mj+ mD@@p l Hp
l1* s+ m2Z,p Q, ,> Z0p Q0 ,> Z(p Q( ,> , l/ mj,>p , lO/ mg4:mD,>w, l/ mg w CpnA 5Hm+7Np + lt,>p ,> + m(6H m+ m=
;nj, 0 + mD[ l
p /.
3L + mA 3nj, + mD H m
J l@@ @ / mj+ P-0P . mi@@p w
#pn Jp
p `L + mK(L Lp :p + mH p ,>l-:[ l,>l-:,>me, '^/ mj:p p (Z Zp 4Zm_> 9
p `J + mU(J Jp :p + mR
p 0l
+ mY,>4-:,>mf, '^/ mi+ mOPw(mfDHp 0H + m^,>mg,>mf, '^/ mi+ m g O / mi+ P@ ` 03o2003o2r* h S 03o2 0#o2 V Z2,Cpnr+ 2, x y EXPRESSION VARIABLESPEC IDENTIFIER LPAREN RPAREN DATAITEM VALUELIST LINEND DECLARESPEC FUNCTIONSPEC TYPELIST SUBPROGRAMID PARAMSPEC DIMENSION ONEARRAY SUBROUTINE COMMON COMMONGROUP EQUIVALENCE SUBVARSPEC LPAREN ; P 0 ` @ p @ @ P @ ` P p `
P P 0 ` P @ P ` P @ p 0 P p P 0
P P p P p ` ` p @ P 0 p
`
` ` @ ` P p
@ p p P p p
` @ P
P
p P ` P P
p P
`
` P 0 0
P P 0 0 @ P P
0 @ P P ` ` p p ` 0 @ @ ` 0 @ P @
` P p ` P 0 p
p p 0 P P ` ` ` ` 0 p @ p 0 @ @ ` p
0 0 P
P p ` P
@ ` 0
0 0 0 @ @ P p ` 0 0 0 0 p p ` ` @ P ` @ !`
@ P ` P 0 ` P P ` P P 0 @ P P ` P P 0 ` P P ! P p ` P
$0 @ " !p P " ` "0 "p @ # P #@ ` #P # #` % P P $` $p P ` % P & P ' 0 &0 ` ` &@ P
&p ` P ( P 'p ` ` P (p P ` )p @ )0 P ` @ @ )` P + ` P ,` @ +p , ,0 , ` ,P P . @ P ` P ; @ ( ( 0 @ @ @ @ @ @ 8 @ 8 @ @ @ @ @ @ @ H P H P @ H H @ X X ` @ D D D @ h x x x x @ p p ( ( @ ( @ @ ( ( ( ( ( ( @ @ X ( X ( ( 0 X ( X ( 0 ( 8 @ @ @ X ( X ( @ @ ( H H X P X @ @ P P @ @ @ @ ` ` @ 8 SYNTAXACT "FUNCTION" -0P S( H 86* k+ r1 w~
ksq L :+ r3
w~ 3s< N :, S Z
w~( 0s-ps2 ;QI H0 * js3 w.s3ns4 w~( *s.js40s20P + rAO@ A 0 2Hs5+ rA : Z0 + rA, RG w
,s50s6 . 3L @ *s6A aN + rJZ, Q, ,> ,> 3,>s., 'Z/ s7 + P-0P
. s7 w~[
J Z
L Z0 N Z0 00 + rT,>w~,> 3,>s/, 'Z/ s7+ s+ w~ . 0HPQ@
Z0 * 0P @
A aN + r[ s/ Hw~ w~/(PC H
0s2 P * 0P @
. 0P @ G
( 0P @ G
aJ + ri
(
6.3QJ+ s ,> 3,>s0, '
/ s8+ s
(
3QIan + rz Z3QJ(s8.
@ J . 2Js9@
( 0L @ G 0 0L @ G aN + rx wZ*h Q* ,> + r~Z(( /(PC H + s 0s0 P *s63P + s ,>w~,> 3,>s1, 'Z/ s7,> ,>w, r-/ s8
w~ Z QZ0 0s9ps2 8 2Hs:+ s
0s:0P + s
0 1H + s
,> 3,>s1, '
/ s8
(
0s2 . 1P @ Z
0s2 8 3J @ A *s2 0 0J @ Z
* 0, @
A G aN + s,>w~,> 3,>s/, 'Z/ s7+ s$ 8 Z
Lp 2xp + s$
.
Z( P .s;3N 9s ,>w~,> 3,>s1, 'Z/ s79s w~ , ls;*s60J @
. 0P @ G
`L O@ A@ / s7+ P@ ` .;QID#QJ PO 083QI 8 SD G(0 @ 4C ` C~3@C&lgC&vC@C2|s@C2:C6C6'C6MdC6Md'C6|C@C:MmCNMc@CR
,gGF@G"#@G2|s@G7RG7TG7YG7CQG7CRG7CTG7NG>u)gG?` G? C@G? @G?$GGNMc@GO-I3@I |gI GI$GI%dGI
dS@I
dSQI
dSTI~3@I~:I~KGIMS@IF@Ie}I&i` I&vC@I2|s@I2:I6'I6Md'I6|C@I:MmICyINL{GINMc@INMjIO-IR` [B@[B@[&q` [&r@[&r@[>!` ]&vC@]?` ]?` ]?` ]?` e
,gGF@G"#@G2|s@G7RG7TG7YG7CQG7CSG7CTG7NG>u)gG?` G? C@G? @G?$GGNMc@GO-O3@O |gO GO$GO%dGO
dS@I
dSQI
dSTO~3@O~:O~KGOMS@OF@Oe}I&i` O&vC@O2|s@O2:O6'O6Md'O6|C@O:MmOCyONL{GONMc@ONMjOO-OR` [B@[B@[&q` [&r@[&r@[>!` ]&vC@]?` ]?` ]?` ]?` e
l0L + t+O ,~ @ ,~ 6H m+ t., l Z lO@ m[
l0L + t3,>-;,>4-:,>{, '^/ {#,~ @ ,~ 6H m+ t6, l Z lO@ m[
l0L + t9: l@@h
'+ t:+ tb@ ,~ 6H m+ t=, l Z lO@ m[
l0L + t@: l@@h
'+ tA+ tb@ ,~ -0P . {# l Hp @@p O@ l , u& Zp 4:ta7Lp + tJ: l ( H@
': l Lh
' l10 s+ tQZ*p Q* ,> Z,p Q, ,> Z.p Q. ,> , l/ {#[
l1J + tTO + tU, l Z l@ aZ + tD[ l1N + t[,>{,><-:,>{, '^/ {#+ ta6Hp + t^,>p , lD/ {$+ t`,>p ,> ,>p , l)/ {#@ / {#+ P-0P . {$ l Hp @@ 6J m+ tgO@ m, l Z l[ l0N + tk,>-;,><-:,>{, '^/ {#+ tn, u& p 8 H l Z
'/ {$+ P-0P 7H + tt
: 0 an + tt,>w~,>w, ?+ tv,>w~,>w, N/ {$@ + P-0P w~*{% , 0J @
w0{% ( 0P @ A
aL + tO + P@ + P-0P. {$ w[ Z * j{% , l{&.{&+@;u+ u, RG+ u
+ u + u
, RG+ u {'+ u {'+ u {(+ u {(+ u7{) {) Z : w * j{*S, L 8, S w QT . n{*n{+ 0 p{+S* GJP d QP 8 Hp , TE
p XR( , XLH XXH .{,0N + u S: GZH + u XJ` XVH ({,0H + u$S: GZH + u%
wXLX @ / {$+ P-0P. {- ( {Z*'gZ
2j + u+,>{, '^+ uRO@p Pp
[ l0H + u/@@ + v, xS6x + u2 + v :p . X8 @@ [ l70;{A+ u96jp + u= p
P .
( + v 7jp + v[ l p . [8
#{A3*C{A+ v
p .
( Lp
{- P 8, SF p . X XVP >p [
p
Np 0J + ua4HuL. [
0j
+ uL p . [8 7(C{A+ uL,>{+ uQ*{.0J + uSZX 0N! + uQ : XZX + uS,>{, '^/ {$+ v . n{+ ( h{+0{,0P + uXS: GZP + u[XTX
X aj + u[S, GLP * j{*Z`P
X aL + v,> ,> , "/ {$XZP + v>p . @ QHP [
p
/* +@+ue+ v+ um+ uu+ uv+ uw+ uy+ u|, RG, RG, RG, RG, RG, RG+ u~+ v + v+ v , l{+Zp
n{+[P ,> ZP ,> , tw/ {$aZ + v,> , u / {$+ v , + u , BLP + v , BLP + u , BLP Z
p
1L + v+: + v , l{+l{++ vG, l{+0: + vS, l{++ u{X, l{+ : |BZP + v , l{+ : z{+ ,> , )/ {$ ZP [P ,{,0L + v
H aj + vS, GLP
p .
Z( + u4:
p .
l N0 , l Z ld + u-/ {-+ P-0P. {# w*{%1J + v",>{, '^+ v_O@ A {- N 8 0 QP 8, SF ( h{. * j{,
wXLX l 8
' Pp 5Pv+ k+ v/*{/4Jv/,> ,>{/,>{0, !i/ {# Zp
l
(
( Lp w0{01P + v4 8 + v5[8 ` 7Jp + v:.{14NvR,> ,>{/,>{0, !i/ {#+ v>3X{1+ v? {2 P 8@@ : X ; ( H 8, S Zp + vRd 0 QP 8, TE Zp S( H 8
{2 J :, S Zp 7, + vJ p 0 p{% ( h{3
R J8 , l{3,>{4,>{4,>{/,>p ,>p , Ta/ {5 Zp p 0 XP8 wXH8 S* GJ8 p 0{00P + vUS: GZX + vVXV8 ,> ,>{5,>{4,>{/,>p ,> k, Tk/ {6 Zp
p QJX
p XLX w0{00P XV8 ,> , >>/ {5+ P-0P. {5[ l1H + vd,>-;,>$-:+ wZ
l Lp , z Z l[ l0N + wX l Hp * J =,>7r, .Z/ {$5Zw Np @@ , l Z l p ({60H l [
l . 0L @ 0 0L @ G aN + vw,>{, '^+ wV[ l0H + vz: l@@h
'+ v}, u&
l8
L l Z0
'4:wr[
l1L + vm[ l0N + w
p 8
2J l+ w l7X@
'+ w({,0H + w
` aL + w,>{4,> + w_d , l Z l[ l0H + w
: l@@h
'+ w, u&
l8
L l Z0
'4:wr[
l1L + w,>-A,>4-:,>{, '^/ {#, l Z l p N l,>{4,>p , to/ {$+ wU
p J [
l1L + w ,>-A,>4-:,>{, '^/ {#+ wrd p 2N l+ w!: lO@h
'+ w+,> , lD/ {$ l
'[
'.
' Jp 2tp + w+
P Lp 0{70P + w*S: GZP 9w%S( BHP 9w%, z Z l p *{71J + w5,> , ws/ {$ Zp l 8
'3P{1+ wW[
8
',> ,>8
', T8/ {$+ wW,>{8,> , to/ {$,>p l,>h
', <9/ {$ Zp [ l0N + wW
p J l, l Z l[
l0L + wA: l@@h
'+ wD, u& l8 N l Z8
'4:wr[ l1N + wH,>-B,><-:,>{, '^/ {#, l Z l[
l0J + wL: l@@h
'+ wO, u& l8 H l Z
'4:wr[ l1H + wS,>-A,>$-:,>{, '^/ {#, z Z l p P l,>p , v / {$+ wr p N l+ wq p
aJ + wo 0 6,;{A@ ({8M aP + w`,>{4,>p , N/ {$+ wr
p ,{90L + wn ( `h + wl,> , S7/ {$ 3X{1+ wj/{ ,> ,>p , r-/ {$ Zp + wl
p S. GN0 ,>{4,>p , N+ wq,>{8,> + wp,>{4,> , to/ {$ p / {5+ P-0P. {6 w
aj + wy,> ,>{ ,> 3,>{ , '
/ {#d
p2Lw+ w~ wZ0h Q0 ,> ,>{ + x> l @
'2H{1+ x@@p + x[
@
'8
Lp
p ., QL 8, TE Xp {- N 8 w P : X ;, SF Zp p
w,{9l{% . n{& p QH@
p XJ@ 4Jx l[8
'46x p . l
.
@
'
( Lp L p . 708 + x
p XJ0 =6x w 8 `h + x p S* GJ@ w*{:,{:H
aJ + x%,> , S7/ {$ Zp 3Z{1+ x%,> ,>p ,>w, rK/ {# p S, BL + x9 p ( |BH8 l
'3P{1+ x97vp + x9
p .
( Np ({00H + x4,{; * 0L @
({; 0 0H @ G
aJ + x8,>{0,> + x7,{00L + x8,>{8[8 ,> , ?/ {$=vx*
p [( Nw({%0H + xI
8 2L{1+ x@,>8 ,>{ , '^/ {$+ xR,>p , "/ {$ p Zp XZ ,>{4, U/ {$ Zp p w
8 L@
p P( S( GH(
w
0 aj + xN,>p , zj/ {$ p S( BH8 ,>{4 p [h ,> , N/ {$7p @ / {6+ P-0P. {;@@p @@p Hp [
l1J
+ xY0J + x\Lpp O@p , l Z ld @@ + xV[ l0N + y l Hp , l Z l
`J l , u& Zp 4:y$[ l0N + x|, z Z l p *{& , 0J @
.{& 0 0N @ *{& . 0J @ G A
aL + xy: l * J
': l p P8
',>p , lD/ {$:
l@@0
',>p , lD/ {$ l
l (
' N
' 0 P(
'8 H l@ + z*{&1J + y 0 p{<+ y[ l1H + x,>{ ,>$-:+ y
`L l , l Z l, u& Zp 4:y$[ l0P + y ,>p ,>p , "/ {$ Zp 4Zy Zp + y , 7Jp @
M
aL + y,>{ ,>{ ,>{, '^/ {#+ z,>p ,>p , z!/ {$+ z ( 0N @ * 0N @
G aH + yZ
l Lp , z Z l+ y, v` Zp 4:z[ l0H + y8d @@
{- L 8, SF Zp p 0 p{0p{3 p QH8 , l Z l, xS Zp 5:y%O + z
p p XP0 ,> , )/ {$ p [8 Hp *{&0J + y,S: GZ8 + y/XN
al + y/S* GJ8
p Z0 Np ({00H + y4S: GZ0 + y7XL8 8 ap + y7S( GH0 p Pp [
l0L + ymO@ A p aP + y<,>{ + yQd @@ {- H 8, SF * j{< , l{, . n{= l Pp p *{%1J + yG,>{ , '^/ {$ p 0{00P + yJS: GZp + yKXX8 6 :
l@@(
'=vyK:
l@@0
': l p P8
' l1( |+ yS,>{!, '^/ {$+ z, l Z l[
l0L + yV, xS+ yZ0L + yZZ l Hp , z Z l+ y[, v` Zp 70p + z
p ,{91L + y_,>{ , '^/ {$ p ({=0H + ycS: GZp + ycXX@ :
l p N0
'[ l1P + yO
p
l/
/, L(
(,> , lD/ {$ l 8
'XP` p H l Xp p P 6Hp + yp p + z
p .{7 0 0N @ ({> * 0H @
A aP + z
.{> ( 0N
@ *{> 0 0J
@ G aH + z 0 N ,
0 J , {! P ., UW {2 H 8 - N :
- L ;
p 0{9 P 8, S+ z {2 N 8
0 "J : 0 "P ;({> H 8, S+ z {- N 8, SF Zp
p ( h{7 * |BJ0
p XJ0 Z`0 0{?0P + zS: + zXL( ( ah + zS: GZ0 p ,{%0L + z : + z:{% p z{? / {;+ P ( H =,>7r, .Z/ {$4Zz S:
,~ ,>7p, .Z/ {$,~ -0P . {$6Hw~+ z$", .l l6Lw+ z&"0 .p l l Pp * 6Hw@
. 7Lw~@ A
aJ + z/ l
' L@
( l h
( N@
)7Pw~+ z2
l . N0
' P0
(7Lw+ z5
l 0 P(
( L(
) * .j l[ l0P + z>l , l Z l, u& Zw~4:zW7Nw~+ z6: l ( H@
': l Nh
'+ z6,>p , lD/ {$[ l0P + zC: l@@h
'+ zb0P + z_: l * J8
', l Z l@@ d , u& l8 H l Z
'4:zW[
l1L + zM,>-B,>4-:+ z`, l Z l, u&
l8
J l Z(
'4:zW[ l0P + zX, l Z l, u& l8 N l Z8
'5:zYO + zi: l@@8
'[ l1N + z\,>-A,><-:+ z` p .: ,> , lD/ {$O@ + zb,>-A,>D-:,>{, '^/ {#+ zi,>p , lD/ {$
l l
8
' J0
' 0 P8
'8
L l, l Z l@ / {$+ P-0P. {6 w[
Jp [( Z
P Lp Z0 Np ap @+ zuZ
Z
8 3J + zu,>P ,> 3,>{", '
/ {# wZ
Jp
p Z Z0 3n + zzZ0 Hp 7Hp + { 2 Hp 2rp + { w. Z8 p . Z@ Z
` 0J! + {({.1H + { 0 p{<{ ah @9z|6. k+ {:{<Z:kP.+ { :{<Z:kP Q: 'Zp 60 k+ {
/ {#9z|@ / {6+ P@ ` S{N , : PC{Q } ; Y{S{V{X $ ( ,V2 # 8 Y3!` Y ` Y2)` Y )` Y:)` Y !` @ P P P ` X X H @ 8 ( 0 Yq` 8 D8 ( 0 @ 0 $ ( ( $@ ,@ 8 8 F ` ` @ 0 0 ( @ <
~}}|| ~~ comma or end of statement Function name comma or right parenthesis expression list =j =i =c =` =+ <k $k 5k -k k $` -0P w* 1J + {vS. N 4 N 8
XP 8, SF
' XH wXD ,> , !3/
Z *oS: GZ + {oXB Z . + {zS: + {r
' 8 ,> ,> ,>
',> ,>
', T8/ + P-0P
. w~* 1J + |,> ~, '^/
N 4 N 8 w0P + |, TE+ |
XJ 8, SF S* J 8
w0L + | w~(0H + | + | + | w~(1H 7 Z :, S XD 70 + | ( hS: GZ w~*0J + |'Z XD w~XN 00P + | S: GZ + | XB8 8 Z
Lp 2xp + |$ . 7. 9| Z Pp XB@ 9| ,>,>w~, T8/ + |3 . QN 8, TE XD 0 XP w~XH *0J + |.S: GZ + |/XB w~XN 00P + |3S: GZ + |3XB8 d / + P-0P
' ` ,>,> , ?/ 4:|;,> , {a/
+ P-0P, l Z l, v`78 + P[
l1J + |A,>-E,>,-:+ |E, tb76 + P[ l1P + |G,>-=,>D-:,> ~, '^/ + P@@ mZ` *0J + |L,>,> , ?/ 4:|Q X
' V
' . N l,>, lD/
,> , {a/
+ P-0P
'@@ ,,>` , !%/
V
(46|r*0J + |Z,> , '^/
+ P[ 0N + |a(0H + |aZ,X Q, ,> ,> ,> , '^/ + P[ 0H + |d,> , 'b/
S, GLX
L 4 L 8
XN 8, SF ` XPX
(QHX [
,> ,> , T8/ ZX S, GL` [
)5L|qXV )QV )+ P )XV@ XV )+ P-0P.
' ` 0H + |7L 4+ |xZ0 5P} P 4 P 8
XH 8, SF Zp
p
` XL( R`( Z`( @ + }7 `
` 0L + }7P 4+ }Z
@ 4J},>+ }&
P Jp ,>,> , N/ 4:}7 p N
'01P + }%7JP + } P Np 8 P
( [
(. Pp 2rp + } H Z
h JH 9}[
P ,> ,>P , T8/ [
(8 QN
(+ }@@
( + }, P P
( [
(. Pp 2rp + } H Z
h JH 9}
P L
' [
(8 QN
(ZX 0H! + }$ : XZX + }'*0J + }',>, '^/
+ }7*1J + },,> ,>,>
' N 4 N 8[ ,> ,> , T8/
XH 8, SF Zp
p
'XL( [
(QN( Z
(XP( Z( (0H XJX / + P-0P.
' Hp
Jp ,>,> , N/ 4:~ p 8 ap + }B,> 3,>, '
/ + ~ p
aj + }G,> ,>,> 3,>, '
/
p L
' N 4 N 8
XP 8, SF Zp p 7J + ~
Np @@p @ [p Pp 2vp + }UZ
p .
[
( .
p 8
Lp 9}P p &( Hp . 1H @ 0G aN + ~.( QH 8, TE
p Zp XZ0
p p XP( QL( p 8 `h + }b 0 p@ [p Pp 2vp + ~Z
p .
( @@p [
.
Lp 2tp + ~ :p P p . XD8 Z`8 P 0P + }~,
( . 0H @ G
aL + },>} p XN 0
,> + }xS, GL8 .4 + }h[
,> ,> , T8/ p . 8 9}c7Pp + ~[
p ,> p ,>h , T8/ + ~ an @+ ~ 0 QP 8, TE
p Zp XZ( p R` QJ
p 0 `n + ~S0 GP p
'XP8 d [
p ,> ,>p , T8/ @ / + P-0P( 5H~ ,> 3,>, '
/ , l Z lO@ m[
l1L + ~%, tb Z
'4:~1[ l1H + ~&,>-=,>$-:,> ~, '^/ + P@@
' P 4 P 8
XH 8, SF
'XXX 4X~1, 0L XV` 0 1P + P,> ,>,>, '^/ ,~
J 4 J 8
XL 8, SF,~ -0P
,>7s, .Z/
6X + ~@,>7p, .Z/
3Z + ~H,>+ ~E2X + ~BO + P,>7p, .Z/
3Z + ~H,>-=[ ,>l-:,> ~, '^/ + P * XJ` + P-0P, ~:66 + ~MO + P
J 4 J 8
XL 8, SF XV` + P-0P, ~:66 + ~UO + P
J 4 J 8
XL 8, SF XV` + P-0P. w~ * 2H!@
, 2H!@
G
aJ + ~` : + ~a : Z 9
' X 6NP + ~h " H 8@@ :
w~ L ; * J 8, S ZP + ~k w`H + ~k,>, '^/
[P 0H
+ ~q
" J 8@@ : w~ N ; 0 P 8, S+
P ."0N + P ,0L + P 0#1P + ~y
P *#5J~z,>$,>+ ` P ($0H +
P [( Np 8 ap + ,>,>+ ` P 01P +
P *%1J + + ~y P ,0L + ,>, '^/
+ P 00P +
P
0 `J + ~y
P *%1J + ,>P ,>,>
+ '
P *%1J + ' P (&0H +
P [( Np 8 ap + ',>+
P ."1N + ' P ,0L + & P 708 + ' P ,&1L + & P 01P + ',>'+ ~y7PP + -
P *%1J + -,>P ,>,>
P 0L
+ 17NP + 1,>,>+ `7NP + 5 P , 1L + 5,>'+ ~y7HP + >
P ."0N + ~y[P 0H
+ < :8 ,> + 07JP + >,>(+ ~y6JX + @@@p + L X ` h ,>@ , #G/
,Zp 6(p + E/ + ,>
P *%0J + S P 6(@ + S7Lp + S,>, '^/
+
P *%0J + e6PP + W,> + `
P *%0J + \ P 6(@ + \,> + `[P 0P
+ ^,>
+ `7LP + b,>
,> , '^/ + 90N + e P S, GL w~ P 4 P 8
XH 8, SF
P QL`
P XJ` P XN` P QP` P QH` [
p QL` [
P 0J
+ qT`` + r P XP` 7PP + u
P QL`
P XJ`
P Z
0 . 0J!@ Z0 ( 0P!@ G aN +
P [
( Lp 600 + ~ 0 + " H 8@@ : 0 N ; * J 8, SXZ` 7JP + P (1H +
P XX( 7PP + [P 1N
+
P 0%1P + P *1J + P XX@ 7NP +
P 0%1P + P XX8 ,> , j0/
[
,> ,> , T8/ [ ,> ,> , T8/ 7 @ / + P-0P.
' X 7HP + )[
P 1L
+ ) P ((1H + )
P .%0N + %,>, '^/
+ //P *0J + *,P +8 aP + *,>$+ ;1P 01P + /,>P ,>,>
XJ 8, SF
P QL` P XN` P XP` P QH`
P QJ` 7LP + I P (1H + I
P XX0 7PP + M
P ,)1L + M P XX@ [
,> ,> , T8/ [
,> ,> , T8/ 7 @ / + P6H m+ W, l Z lO@ m[
l0L + ^, lZ lO@ m[ l0P + a,>-;,>D-:,> ~, '^/ ,~ [ l0P + aO ,~ @ ,~ ,>!,>),>, ~Y/ ,~ ,>*,>*,>, ~Y/ ,~ ,>*,>,> ( @ G# hgG# kGG>t8'G";G 8 P X X ( ( 8 ( ( X P 2 F( 8 ( ` ` ( 0 0 P P 0 ( 8 0 k:N@ @ 0 0 $@ M7 S? H:e @ ( } P ~~} P Subroutine name string or 6-digit integer as unit specifiers as format specifiers random access Unformatted I/O NAMELIST I/O List directed I/O Random access I/O -0P / # H = 6 ,>7r, .Z/ 04ZH,>0, lO/ 04:K,> , + K 1 # Z ==6B,>$, '^/ 0+ P,>1, / 0,~ ,>2, / 0,~ ,>2, / 0,~ -0P . 0 w
J ,
L ,.31N
+ ^ Hp 7* k7$ %
p .3(N . .: Z ., UW - P , - Z ,
w,41L + e6. k+ c % Z .+ d & P ., UW - Z ,aX + g" ,+ h ,/ 0+ P-0P. 4 w~ w7HX + o
X 0L + o"w< 8 ,>X , R/ 0 Zp w.6 7LX + w X 0P + v"
w<
8 ,>X , R/ 0 Zp 5 P 8 p H :
p J ; , L 8, S/ 4+ P-0P. 5@@p @@p w[w.w Hp 2tp + Z * Jp @@p
P 0L + O P 7N` + ` 0H +
O@p 9
@@p 9
@@p ` 0H + ,>` ,>p , i/ 4 * .jp @@p + L ` ` 7J` + 5060P + 7Lp + 5 N 8@@ : X "P ; ( H 8, S 6.X + ,>&, '^/ 0@@p + Q X Hp ` [
,> ,> , T8/ 4 `
` 0J + 47PX + )
X 0L + (O@p 9*@@p 9*@@p
X 0L + 0,>X ,>p , i/ 4 . .np @@p + ; X X aN + 3 : + 3 : Zp + ;[X + 3 X aP + 8 : + 8 : Zp [ ,> ,> , T8/ 4 p $p .pp 7Hp + L*65JC 5 P 8@@ : X "H ; , L 8, S+ K X P , X H ,
' L ., UW
5 J 8 - N : - P ;(6 H 8, S P [
,> ,> , T8/ 4+ Q P [X .np . QN 8, TE Zp 6Pp + V p XZp QZp + W
p XL@ XLp
p
p QJ0 XV0 .4 + Sp [p . / 5+ P-0P. 7
' ` 7JX + c,>-;,>-B,>', '^/ 7 [ . Np 2rp + } H X ` [ ,> ,> , T8/ 4,> , ~/ 0 Zp [ ,> ,> , T8/ 4@@ 9@@ l,>X , $6/ 0 Zp [
p ,> ,>7,>7, =|/ 7[
,> ,> , T8/ 4 8 N 8, SF [p QPP p XHP [
p JP
3QLP 9e
' 8 [ ,> ,> , T8/ 4,>7,>
', T8/ 8+ P-0P ( H = 4 44 (X ,>7r, .Z/ 06V +
(XP + + ,>7r, .Z/ 05Z 7 @ + P-0P. 0O@p 2 @@H=2, l3Z9+ ,>-A+ },>7t, .Z/ 06X + (
( L =,>7r, .Z/ 04Z 6 + % p aP + ! 6 , tb4:
l (
'>
l.91N + p+ F ( H =,>7r, .Z/ 04Z& 6 O + p, l Z l,>)+ PO 2 3XLA7 =2)56-,> ,>), '^/ 4+ [\P+@D/+ p+ 2+ <+ J+ Q+ a@ , tb4:
l (
'>
l.91N + p(:1H + 9,:0L + :@ + p,> ,>*, '^+ \, tb4:
l (
'>
l.90N + EZP 0H! + C : XZP + p,>*, '^/ 0+ p(91H + p,> ,>:,>7, !i/ 7 + p, v ( H 9, l Z l , x@@ 9[
1J + p,>-<[ l+ ~l , tb4:
l (
'>
l.9 0 1N @ (9 * 1H @
A aP + _,:0L + ],>;,> , N/ 4+ p,>+,> + n,;1, + p,>++ ^,>;, lO/ 04: l,>h
', !%/ 0 >
l,:0L + j,>;[P ,> + k,><,> , ?/ 4091P + p,>,,>P ,>,, '^/ 77LX+ s,>\A,>-, '^/ 4 TX@@p 7P m+ v@@ m+ w, l Z l[
l1J + [ l1N + {,>-A,><-:+ ~, l3Z<+ ,>-=[ ,>l-:,>'+ 6J %+ ,>-,>.,>., '^/ 7+ w N 4 N 8 =XP 8, SF %QHX
QJX
QLX @@ @@ @@ %[X .=0N XV` @ 2 6HH8 =24tXTX QT 8, TE QTX 2 7NH+ 78Hg XZP Z
LPQJP 48.=0N XV` 8 =2@ / 0+ P,>>, / 0,~ ,>>, / 0,~ ,>/, '^/ 0,~ @ ` H ?H @ mV UkV,V+ [V2 SH `H ab c f cfi _jO p 3 H H
H
H H
0 ( 0 8 X X ( h P P P ( ` P P
SPACE FILE C \yCO xtE2M?P S:NJ0S? H:[>$P ]lP a$:a aJ~I1J,e @ e |Re N8gRM9igP k:N@ m:7
keyword array or character expression array or character expression integer specified -0P
@ + P@ ,~ -0P@ + P-0P@ + P@ ,~ -0P
. E aH + v,>3, '^/ E+ F
# Jp ,>7p, .Z/ E Zp [
p 1L + },>-<,>4-:,>3, '^/ F,>7p, .Z/ E3ZF+ ,>-=[ ,>l-:,>3, '^+ p Z* Q*A` J ', D Zp 7Lp + ,> ,> 3,>4, '
/ F+ F 0 BP +0 '0P + )@@p
4 Jp
' Lp p 7X + ' * 1: 0@
, 0z =@
A
`J /: 3X + + 0 GP + 0 Pp '6Lp +
p N ' 5 Pp p 7X + '
' . 1: 0@ 0 0z =@ A `N /: 3X + ,>5, '^/ E, D&+ E , GL +
'+
p [h .. ,> ,> , T8/ G p P #`PR`@ ,>7q, .Z/ E, :
2 L '
k J ( l N ( 4 P ) 3 H )
m L *7J m+ 9 o Z *+ 9@@ * l P +0P $:
o
L hl @
+`J d +`N d j P &S( BH jS(PH H n , { L k, :W1Z @, G@ / E+ P,>7q, .Z/ E, D& ' H 2
( J k
( L l ) N 4 ) P 3 * H m6J * J o + N l 0 P mS( H H n*Gj6,Hl6.Hn70Ip7 h & H j, :W@ ,~ -0P. G: l
@ J ? J
':
l@@0
'6N m+ b ( H =,>7r, .Z/ E5Ze+ d[ l1H
+ e w+ ?@@ m l * J
'
8 L =,>7r, .Z/ E4Zn w1P + m,>8,>9+ O@ ?+
/* J ?,>7r, .Z/ E7V +
?$. . /. N ?+ s * J =,>7r, .Z/ E4Z, m4:?7P m+ ~@@ m+ , l Z l[
l1J + ,>-A,>,-:+ l 8
'> l ` H ?+
6N m+ , l Z lO@ m,>9[ l,>l-:,>3+ 96j ?+
&
@ Jp O@p , 2Lp + : p ?0N + ,>:,> ,>;, 'b/ F+ = ?1H + =,> ?,>:+ 9 ,
2Lp + #: p ?1N + = ?0H + :
+ ?
?0L + ",>;+ ),> ?,>;+ 9 0 2Pp + .: p ?1H + =
?0L + *,><,> + ?0P + -,><,> + ,> ?,><+ 9 * 2Jp + 6: p
?1L + = ?0P + 4,><+ ,,> ?,><+ 9 *
2Jp + ;: p ,> ?,>=,>=, '^/ F+ ? , 2Lp + >: p @+ ?7 p O / G+ P-0P
w H @ * J @@@ m,> , Z/ E Z o5:F o+ P l 8
'0P + N6H m+ L . N =,>7r, .Z/ E+ N[ l1N @@ m o0H + Q l h
& N @+ R@@ @". .n l,>I, lO/ E4:f * J 9
' ` 0H + _ :0N + ^ * J :d l ` ,>h ,>J, / G+ c, = + P :0N + b * J :,>` , / E[
',> ,>
', T8/ G+ P,>J, @/ E,~ ,>I, @/ E,~ ,>J, @/ E,~ ,>K, @/ E,~ ,>K, @/ E,~ O@ A,>L, @/ E,~ -0P
'O@ o ( H 9d l ,>` ,>L, / G,>L,>
', T8/ G+ P-0P
'O@ o@@ 9d l ,>` ,>L, / G,>L,>
', T8/ G+ P-0P. E7H D+ ,>>, '^/ E,M5L,>>+ *O@ ol
' P @ X ah + ,>X ,>?,> 3,>?, '
/ M*M0J + - o N :S0 P 8, S (N1H + &,N1L + ' 0 QP 8, TE R
' 8 HH
.
O JH
.
O LH .. NH XH 0 QPH @@H .P HH VH @@H , 6 Zp 5:- p + 2,N1L + (,>@+ * ` 3PX + ,,>@, '^/ E+ 2 * J o . N 9,>P ,>L, / G,>L,> , T8/ G/ E+ P-0P . E, l Z l[ l0H + =Z
l Lp 0 N o,>P,> , v/ G p S( GH@ , l Z l+ @,>A,>$-:,>3, '^/ F+ E[
l1L + E, l[ 0P + B,>A, '^/ E/ E+ P@ ,~ -0P . E, l Z l[ l0H + RZ
l Lp 0 N o,>P,> , v/ G p S( GH@ , l Z l+ S
Q L ol
[
l1L + W,>-=,>4-:,>3, '^/ F/ E+ P-0P
O@ o@@ 9
',>` , `/ E,>L,>
', T8/ G+ P-0P. G
' X H
',>L,> , T8/ G
'[
'.
' Jp 2rp + H 6LX + o2R
'+ l,>Q, ! / E O@ EO@ F+ {,>B,>B,>C, '^/ F+ { X 1P + h X
` Jp [
,> ,> , T8/ G,>R,>p , v/ G4: p S( GH@ ,>@ , ! / E 8 O@ o 0 P 9[P QH
(Z
P XJ
(,>X , `/ E4:[
(QNP Z
(XPP [P QTX ZX 5V9e
'[ ,> ,> , T8/ G/ G+ P-0P. EO@ FZ
'6H` + + ) ` Z Z
[ .
Lp 2rp + ) H 0P + $ H S* GJP O@ E
P aj + ,>P ,>C,> 3,>?, '
/ M P an + ,>P ,>D,> 3,>?, '
/ M,R0SG
aL + (,>P ,>D,> 3,>?, '
/ M+ ( H X
P `j + (,> , */ E.2 + @ / E+ P-0P
( QH 8, TE
wQJ`
GXL` X G: GS0 GP( @ + P@ ` { S IH YH Z q0 h" h4 h6 hH [\]] +- *r +$ +1 *t +
I g` } M Sb qde Sfhj ( ( 0 " 4 6
8 ` X
exu }[' .P $P NOLIST NOCREF NOLIST NOCREF (*) constant (*) integer constant or "(" ENTRY name PROGRAM name , OR / IDENTIFIERCOMMON variable Dummy argument External name -0P.
p
w 0 XB( S. GN an + t,>|, '^/ w7H@ + 1,>,> , ?/
w ( < +@<{+ 4+ |+ + "6X + ~ k p
` <
L@ S* GJ@ Z
` 1J + ,>}, '^/ 7X` kZ
` 1L + 4+ ` [ .( QH 8, TE [ 8 Q
p V0 S* GJ0
JX 8 [ . Np 2tp + ` HP 8 9 7P` + 4 ` 7V` kZX 1N + ,>}, '^/ p
X <
L@ S* GJ@ 7V` kZX 1N + 4,>}, '^/ + 4 p Z( P S, GL 7L` + 4 ` 7V` kZX 1P + +,>}, '^/
p X < N0 S* GJ0 7V` kZX 1P + 4+ ,>,> , ?/
'
Jp [
p .
Jp 2tp + ] P Np ,>8 , k/ Zp 4: O H 8 p X :, SF
p Z0
` aj + FS. GNX QLX 3XNX Vp p @ [ . Hp 2rp 9 :
p Z
0 Jp ,>H , k/ 66 + PO + cZX ` ap + Z p 6, + V,>}, '^/ 9 JS* GJ [
XJX p QVh QV 9 J p
p XV0 XV 9 J9 :
'
Lp [
p ,> ,> , T8/
', T8/ -0P.
'Z Z
[
.
Jp 2rp +
@ *H 6N` + w>` > kah + q,>,> , v/ ,> , v/
X ah +
: +
: z
X al +
,>X ,>~,> 3,>~, '
/ [ ,> ,> , T8/
'[
h ,> Z
h ,> , T8/
',> , T8/
O +
@ / . @
'Z Z
[
.
Jp 2rp +
3:H ,>,> , v/
O 9
,> , S7/ 2T+
$O ,>Z(` Q( ,> ,>, '^/ 9
/(PC( 6,#QJ+
*O ,> Z*` Q* ,> +
"S* GJ`
` aj +
/,>` ,> ,> 3,>~, '
/ ` an +
2 : +
2 : z9
'[h ,> Zh ,> , T8/
',> , T8/
;O +
<@ / + P-0P. Z $Z` Z` Hp
X `j +
Q4
/, (
Z0In0 ( 0P @ * , 0J @
A aH +
Q,>p , "/ Zp XZ` p V8 S0 GPX /0 (
@J JX 7Lp +
\Z0 4r
\ p . Z@ 4 X `h +
[
/* (
Z(In,0L +
[ (J HX =r
S@ / + P-0PZ $4X
a*0J + P,
=+ P
o , 3J@
. 3J@ A
aL + P J :S0 P 8, S 6 /( ( Z In,0L + P J P` + P-0P.
'
Jp [
p .
Jp 2tp + P Np 8 ,>,> , v/
p ,> ,> , T8/
.
Jp 2rp + H Np ,>,> , v/
L 8, SF Zp p Z
XJ [ 8 QN QX XH` 9
s
'
@ Lp [
p ,> ,> , T8/
', T8/ -0P H = 6 ,>7r, .Z/ 4Z ,>, lO/ 4: ,> , + Z ==6 ,>, '^/ + P,>, / ,~ -0P.
'7H` + '8 Z` H [
,> ,> , T8/
P 8
LP ` [P 4V .[X ,> ZP ,> ,>, '^/ ZP 2N n+ 3,> 3ZP ,> ,>, '^/ (0H + 6,>, '^+ eZ
,> , >G/ aZ + <Z.H Q. ,> ,>, '^/
XJ 8, SF Vp , QL 8, TE . XNX p QPX XTX RX T 6 R 6 DXHX Z`X 4H LQV V D p 6Jp + O[ $+ P QZX : 5XRX XTX [P ZP 8 XHP . QN 8, TEQZP QVh XRh ` ` QTX QRX 7J` + ^ ` P XPX [ ,> ,> , T8/
',> ,>
', T8/ / Z ,> , g/ / QL 8, TE DXN` Z`` 4N nQX8 X D ( XH` , T[QZ` , T[XZ`
' X QT` Z*X Q* J
'4T w P < NP S0 GPP [` N 4Z8 P nZ` ,> , / QZ` @ + P-0P, l3Z +
,>-=[ ,>l-:,>, '^/ + P6V D+
,>, '^+
<Z
X 5L
[X [H ,> ,>, '^/
, 0V @
G
aJ +
4V
[X 4R
ZX XZH +
ZX H DZX 4R
[
X QLH ,>,> , T8/
Z` +
[X Z
H 0*P@ 4R
$3R 4+
$[` ,> ,>, '^/
DZ
( L D,>,> , T8/
6Z
X 0J +
*[X 5N
; 4QHX S* GJ +
;5R
;Z` ZH < XPH H < HH [H Z
P QJH
4XL` Z0 8 XN0 0 8 P0 [0 XHP QT0 XLX +
;Z
X 0J +
9,> D,
=+
<Z` R 4ZH N n,> 4, `/ + P-0P w[ 4X
AZ XZ` +
BZ
L D
wZ0 4X
D[0 QP` w[h ,> , T/ wZh ,> , `/ Z`X
wZ
( L 4Z0 N n@ + P-0P.
' Hp
: Jp ,>7t, .Z/ 0Z +
U p N :+
l : 8 ap +
Y p H :,>+
{ p H
'
X Jp [
,> ,> , T8/ 4 Pp @@ n@@ 4 :8 4X
h,> , lO/ 5:
h p N : p P 4+
l :Z
h , 0 5:
m p P 4Zp 6H :O +
q[ $XZ $+
qXH $,0L +
t,>, '^/ p P 4 p Z
0J! +
y : XZ +
|. 0N +
|,>, '^/ + XP 8, SF p XHX XXX * 0J XV Z`` @ / + P-0P
' ` ` 7H` +
` X [
,> ,> , T8/
L 4 L 8 XN 8, SF Z XPX Z QHX Z
XJX
'
` XLX P ZP 0N! + 0H XVP , 0L +
*H =,>7r, .Z/ 5Z+ P[. QN 8, TE DXP` Z`` 4P
` ,> , / QZ` @ + P-0P. H =,>7r, .Z/ 4Z
P 4L[` ,> ,>+
` ,> +
P ,> , F/ [
P Lp 7N 4+ 4 Hp , T[QZP [P ,> , /
p QJX QV( S, GL( + / +
, '^/ +
` ,> +
P 5J[` ,> ,>
, '^/ , F/ [P ,> , `/ 7H 4+ +
, '^/ + PZ
X 4L[X [` ,> ,>, '^/ ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ/2H 4H 5 m S f a @H 66H 6H 77 l n7 ( j O ( 0 ( X ` <X X 8 ` [Mc@
exu<` ` H 0 0 P P #0 ` X ( ( 0 8 @ P P X EXTERNAL name the name of an intrinsic function the name of a non-generic function INTRINSIC name RECORD FILE THEN IF THEN Statement function -0P. J w6E(F+@$=+ + ~+ A+ J+ L+ R+ `+ o+ |+ ~7J m+ C@@ m+ E,>7s, .Z/ J Z l3V l+ ,>\ l,>l,>F, '^/ J+ ,> , 9/ J5:+ ~ *G.
Jp 2rp + ,> , 9/ J4:~9N6J m+ UO@ m,>7s, .Z/ J Z l . l(N@ (G. Hp 2rp + ]
A
L>4J] + ^9YO 5:n,> , / J+ 6J m+ dO@ m,>7s, .Z/ J Z l . l(N@ (G. Hp 2rp + l
A
L>4Jk + l9hO 5:n@ + ,> + J,> , 9/ J4:~6L m+ tO@ m,>7s, .Z/ J Z l l0P + w@@ m+ o * 0P @
, 0P @
G
aJ + o+ ,> , 9/ J5:O + 6L m+ O@ m,>7s, .Z/ J Z l 0 l(P d>A 5Z|/ J+ P-0P . K@@p w
$> Jp
p `L + p +
p ,>l l,>l,>G, '^/ J:p p (Z Zp 4Z p `H + (H Hp :p + p ,>l,>H, '^/ K> 9+ O / K+ P-0P ( QH 8, TE Z*P Q*A` J (Z
., L (,>K, 9/ J5:$@ + PZ (/ 8 Z .h jZ $
L J 4 J 8
LXL 8, SF 5R-[ $XZ $+ .XR $[` 5P0,>H, '^/ JQV` XT` 6J '+ 4XX 'QX '+ 5QX( XX ' &. /0 " 06 + P
<
,> Z (8 ,> , T8/ K+ P-0P ( QH 8, TE3Z (+ A,>I,>I, '^/ K , .l ( wn ( + P@ ` 0d00d S 0d V Z u6 h 0 FORMATSPEC LPAREN FDGROUP RPAREN LINEND FIELDDESCRIPTOR TWODESCRIPTOR ONEDESCRIPTOR DOLLAR LITSTRING PERIOD 5
0 p 0 @ P @ P
` @ `
` @ p 0 @ `
p 0 0 p @
@ `
@ @
` @ @ 0 @ p P P
P
` 0 p @
@
` `
@
p
0 0
@
P
@
P @ @ p
p
0 0 ` P
@
@ @
P
` p
@
@ P @
P 5 }?}' }?}' }?}' }?}' }?}'}?}' }?}' @ K? @ @ @ }?}' @ @ ILLEGAL CHARACTER "$" LITSTRING "(" ")" END OF STATEMENT "+" "," "-" "." "/" ":" CONSTANT "A" "B" "D" "E" "F" "G" "I" "L" "N" "O" "P" "Q" "R" "S" "T" "X" "Z" twxyz{~
h p x ( 0 8 @ H P X ` h FORMSTA -0P
:*P0J + >,> o, Z/ Q68 + = + P: l X@
'@ + P-0P
:Z
1J+ I lZ8
' ` P o*P0J + I,> o, Z/ Q Z o5:H o+ P> l@ + P-0P
(9S
,:(L .
.:(N .
0;.
.
Q : + P-0P,>7p, .Z/ Q: l Z l Z
'[
l1J + ^0J + [,>; pZ0h Q0 ,> ,><+ ],>-;,>,-:,><, '^/ R+ PZ lZ` S. N 8, SFXZ` XVP ` PP , J Z` S( GHP ( hR*SjS
` LP . nT@ + P ( H =,>7r, .Z/ Q4ZpO@ mS, L lO ,~ @ ,~ = H =,>7r, .Z/ Q5ZuO ,~ @ ,~ ( H ;@ ,~ @@ ;@ ,~ -0P. T ( H =,>7r, .Z/ Q Zp O@p * $2Jp + : p 8 =+ , )2Lp + : p 8
>+ . "2Np + : p 8
>+ 0 !2Pp +
: p 8 ?+ ( &2Hp + : p 8 ?+ ;@p + V =,>7r, .Z/ Q5Z0X + 8 @ V =,>7r, .Z/ Q4Z 0 P @O@ A+ ,>@, '^/ Q+ # X @,> , Z/ Q Z 9
90L + ! l h
& P ?+ "@@ ?"0 .p l 9/ T+ P-0P . T ( H =,>7r, .Z/ Q Zp 4ZG", .lp . N =,>7r, .Z/ Q5Z6 p ( [
I0J+ 1,>A, 'b/ Q+ 2\` I p ( 9XP8I0P + I
? J8J+ I ( H =,>7r, .Z/ Q Zp 4ZG", .lp 3,p + G p ( [@I0H+ @,>A, 'b/ Q+ A\`@I
p (
9XN0I0N + E ? H0J:p 3hp + <+ I,>A, '^/ Q+ I@ / T+ P B H =,>7r, .Z/ Q5ZO,>B, '^/ Q,~ @ ,~ C H =,>7r, .Z/ Q4ZU:
l@@0
'+ e, v, l Z l, x[
l0L + Z: l l Ph
'+ ],>-<,>4-:,><, '^/ R,~ 0 P =,>7r, .Z/ Q C H =,>7r, .Z/ Q5Ze,>B, '^/ Q,~ @ ,~ ,>U,>U, r/ T,~ ,>V,>V, r/ T,~ ,>U,>V, ,/ T,~ ,>U,>U, / T,~ ,>U,>U, ,/ T,~ -0P ( H =,>7r, .Z/ Q4Z~,>w~,>w, ,/ T7L m+ z@@ m+ {, l Z l[ l1P + ,>-A,>D-:+ , <68 + + P6N m+ , l Z lO@ m[ l1H + 1H + ,>-B,>$-:,><, '^/ R+ P l , .l l@@X
' XX
(@@X
(@@X
)@@X
)@@X
*@@X
*,> , lD/ Q@ + P-0P ( H =,>7r, .Z/ Q4Z,>w~,>w, ,/ T7L m+ @@ m+ , l Z l[ l1P + +,>-A,>D-:+ #, 368 + + P6N m+ , l Z lO@ m[ l1H + %,>-=,>$-:,><, '^/ R+ P l , .l l XX
'@@X
(@@X
(@@X
)@@X
)@@X
*@@X
*,> , lD/ Q@ + P-0P
. W@@p @@p @@p @@p @@p @@p @@p w~,>7t, .Z/ Q Zp 6Hp + [+@d5+ , RG+ 8+ C+ G+ W 8 , 3 Zp 7,p + i6P m+ =O@ m, z Z l[
l0J
+ @@ md , tb4:2 l @
' Hp >
l+ 8 2xw 8 , < Zp 6.p + + 2 8
l Lp ,>U, lO/ Q4:2,>p , lD/ Q l @
' Hp
p J l
: 0 `n + Qg : Z , p ,>h , !%/ Q Zp 60p + + 26L m+ Y, l Z lO@ m,>C[ l,>l-:+ % 8 2HW+ c7Np + `,> ,>D, '^/ T, 3 Zp 6*p + + 22HX+ m7Pp + g,> ,>D, '^/ T, < Zp 6,p + j + 2 w0N + ,>D, '^/ Q+ 22HX+ u7Jp + q,> ,>D, '^/ Td , tb4:2 l
' Pp + B2HY+ 7Lp + y,> ,>D, '^/ T, v 0 P 9, l Z l Zp , x@@ 9[p 1H + ,>-<[ l,>l-:,><, '^/ R+ 2HY+ 7Np + ,> ,>D, '^/ T, v * J 9, l Z l Zp , x@@ 9[p + }2HZ+ 7Pp + ,> ,>D, '^/ T
l Lp ,>U, lO/ Q4:2,>p , lD/ Q l 8
' Pp
p J l@@ ,,>@ , !%/ Q Zp 5: + 2,> ,>E, '^/ T+ 26L m+ , l Z lO@ m[ l1P @@ m[
l1J + 1[ l0N + $O@ m+ ',>E,><-:,><, '^/ R+ 2 l Hp * .j l
p L
' p N
( p P
(
p J
)
p L
) p N
* p P
*,> , lD/ Q@ / W+ P-0P
( H =,>7r, .Z/ Q4Z7S8
+ :l , tb4:; l 8
'> l7 @ + P-0P. T ( H =,>7r, .Z/ Q4ZAS8
+ [, v, l Z l, x[
l0L + E l+ [ 0 0L @ l*ZA aP + W ,>V,> , N/ T4:\
91L 7F F Zp Z` ZP ZP [P . < Pp 2rp + [ H .[,> ,>
p , 0 / T9RO@ ml , tb4:\
l 0
'> l7 @ / T+ P-0P. Q l
&,>V,> , N/ T76 + u
` al + d : + e : z[ l Np O@ m, l Z l[ l0P + k: l@@h
'+ l [
l , 1J @
. 1J @ A
0 1J
@ A
aL + v: l . N
', tb66 + +
: l . N
' * J ;, l: l Z l Z@
'[
l1L + ,>-<[ ,>l-:,><, '^/ R+
Z lS. GN` , l Z l[ l0H + , l Z l
l1j {+ k,>p , lD/ Q
l Lp + kO@ m,>p , lD/ Q@ / Q+ P7H m+ [
l0L + ! G P =,>7r, .Z/ Q4Z * + !
G J =,>7r, .Z/ Q4Z! . QN l+ !
H L =,>7r, .Z/ Q4Z O@ m 0 QP l+ ! H P =,>7r, .Z/ Q4Z!O@ m * QJ l@ ,~ -0P6Hw+ % 6 + &Z
8
., QL 8, TE 7Nw+ 6 4 .
.
w
( L =4* < 4t3 . w.
@ J8 =t/ wZh .( ,> ,> , T8/ TXV` + P-0P7H m+ :@@ m+ ;, l Z l[
l1L + >,>-;,>4-:+ B l, l3Z\+ D,>-E[ ,>l-:,><, '^/ R+ P, m4:Z
l (
'>
l,>\,> , v/ T4:ZS0 @ GP` V` 0S(] * 3P @
,S . 0L @ G
aJ + Z7P ,+ V,> ,> ,],> .S,> , Z/ ] Z` + Z
kal + Z,>` ,>I, 'b/ T@ + P, l Z l[ l0H + ^O@ ,+ _@@ ,O@ m@ ,~ -0P . Q7H m+ c@@ m+ d, l Z l[
l0L + gO@p + h@@p O@ m ,3Pp + k,>I, '^/ Q+ l@ / Q+ P-0P
. Q, tb4:y l,>h
', z/ Q68 + s>
l + y
l X0
'.S Lp 0N + w : + x : p QZ
'@ / Q+ P-0P. ^ w*^+@,}+ U+ + + + 9+ S+ t+ 7+ 6+ + 6+ 6+ 6+ 6+ 6+ 6+ 6+ 6+ 7+ 9[
,> , z/ Q78 + U wZh ,> , z/ Q76 + U w,_.
J L .._5N7` ` Z ,*`5J7X X Z -, UW,>V,>w, T8/ T
` L 8@@ : - N ; 0 P 8, S+ U,_5L7 + U@ [
,> , z/ Q78 + U wZh ,> , z/ Q76 + U X 2h` G4 X 2N` + ,
X 2j` G4
X 3L` G4 X 30` G4
X 3*` G4
w.aA<r,>V,> , T8/ T4T5
` J 8@@ :O@ ; ( H 8, S+ U
` J 8@@ :@@ ; ( H 8, S+ U[
` 2La+ G,>U,> , V/ T,> , z/ Q76 + U,>U, U/ Q
X (J .
b J` ,>V,>w, T8/ T + U ` 2Pb+ 7,>U,> , V/ T,> , z/ Q76 + U,>V,>w, T8/ T ` N 8@@ :0c P ; * J 8, S+ U[
,> , z/ Q78 + U wZh ,> , z/ Q76 + U w,_0L + b0]1P + _,>J, '^/ Q7( k7K K,_. .:
+ g Hp 70 k7L L
p ,c(L .d.
. Z . ` P ,
` J , X H -
X L -, UW,>V,>w, T8/ T ` N 8 - P :
- J ; w,d L 8, S+ UZ
,> , z/ Q76 + U X P ,
X J ,7( k7M M
w.a(N 0e. . Z ., UW,>V,>w, T8/ T
` J 8 - H :
- L ; w.e N 8, S+ UZ
,> , z/ Q76 + U w*f5J .], 0 0L
@ (]* . 0J
@ G aP + ,X L ,(X H ,
N J ., UW ` N 8 - P :
- L ;*]( H 8, S+ U
` L 8(X "H :*X "J ;0]. N 8, S+ U.], 0 0L
@ (]* . 0J
@ G aP + 0,X L ,(X H ,6* k+ * N Z .+ + O N ., UW ` N 8@@ : -Jp ; , L 8, S+ U
` L 8(X Jh :*X Jj ;0]. N 8, S+ U, RG+ U,>O, '^/ Q+ UZ
Lp @@p 4 Z0 Np 2tp + D p . Zh ,> Zp , z/ Q Zp
p XZ( 4:U
p 0 .np 9<,>p , U/ Q Zp p Z*@ Q*A` Jp 4 p Z
Lp 2tp + R p . Z8 Pp Z*@ Q*A` Jp 7r@ 9Jp Hp =rP9J,f4LT * Jp + R7p @ / ^+ P-0P
wZ w~. Zh + P-0P w2Hw~+ o0H + _ w~ 8 2Pg+ ` w}+ P w}
w~ 0 2N + c + P w~,>h , U/ Q
w}Z8( Q8A`Z6P Q6A`
w~7r0 + k N =rj(g4Hn * J + k .h+ P
w0L + s,>P, '^/ Q+ P w} @ H ,
@ J ,7, k7M M w~(N(N w(H. . Z ., UW ` P 8
- J :
- L ; w H 8, S.h+ P-0P . T7H m+ @@ m+ , l Z l[
l0L
+ : l l Ph
'+ O@ m, tb4: l,>h
', / QaZ + l,>h
' Zp , z/ Q p Z
' Zp 6*p + + p 0i0P + : + :
lQZ(
'@ / T+ P-0P . T w*^ Jp O@p , 2Lp + : p w.i : 5N7+ 7 0 3Pp + & ( 3Hp + & * 3Jp + & , 2Lp + ': p + 7 . 2Np + +: p wZh ,> + 5 ( 2Hp + /: p wZ
h ,> + 5:@p + 7 w[
h ,> , / QaZ + 7 wZh ,> , / Q+ 7@ / T+ P@ `
j p S: + , *r, +$, +
, +1, *t, +- r 6 vH l jH lm _ 8 cn?NH pH pH qH q ) gV0 VDV6UcU[V UkV2V,V+ $ P ` P DP H k:N@ M7 e K: KK S? H:F X ` 0 X P ` X 0 0 G"#@ SD G: X ( (
0 @ @ >p > 8 h dimensioned TO WHILE keyword "," or ")" // / ,// ,/ -0P
aH + z,>w,>%|, A^/ %}
w~
w[,&=[0 A 7X + *
w~(J0 A* O 0 0J @ .%} ( 0N @ G , 1X @
G aP +
w~ . 1J @ (%} , 0H @
G 0 1X @ * 1X @
A ( 1X @ A G aN +
(lO /. " ,><&D wZ*h Q* ,> + <@
w~+@,+ 9+ + + + #+ + 6@ + &+ ,+ #+ ,+ 1+ 6+
w0%~1P + 8 %c+ 9
w0%~0P + 8 %d+ 9
w0%~.%H aP + 8,>0 ,>%d, '^/ %}+ P
w0%~ . 0P @ (%~D aN + 8+ 8
w 0 `p + 4 -;+ 9 0 an @ + 8 -;+ 9
w0%~1P 7%e@ 4Z>,> wZ.@ Q. ,> ,>%e, '^/ %+ P@ + P-0P ,>w, >G/ & aZ + E :*& 5JE,>%f, '^/ & w*&1J O@ A wS0 GP8 aP + L,> ,>%|, A^/ %},>w~,>w, W/ %}+ P-0P w*&1J O@ A aN + T,>w,>&, A^/ %},>w~,>w, W/ %}+ P-0P . & @ w~+@$Z+
+ ]+ b+ h+ k@ +
w,& . 0L @ 0&G aN + y %f+
w,& . 1L @ 0&G aN + y %g+
w,&1L + y %g+
w,&0L + z ( ap + s ( `h + s,>%hZ,( Q, ,> ,>%h, '^/ % w
al + y,>%iZ. Q. ,> ,>%h, '^/ %@ +
0& ( 0P @ ,&M [( A.} 0 1N @ G ,&G aH + %i+
w Jp 8 ap + : + :
p z&+ y
w ( + 4Z ,>
wZ.0 Q. ,> ,>%j, '^/ %+
wS. BN0 @ / & + P-0P. & w~
Jp ,>&,> , v/ %}4: w0N + w~
J ? + w~ 4V `
o1J + !@@p . Np + # . Np 0 Pp 5V + o0P + *
p .* QJ 8, TE Tp
p p XN0 + ~@ + ~ ` ,>&,> , T8/ %} 8
( [ . Pp 2rp + _8 H 0H + Y
H X L` ,>&,> , v/ %}4: 0&0P + :S* GJ` [
P 5J @.&1N + M(&0H + ? : z&+ M : + > . n&[P Pp Z@ 5H M7,@ + M P N :S( H 8, SF Zp
p 0 p& , l&S. BN( . n& p XJ S. GNP P an + R,>P ,>%j,> 3,>%k, '
/ &0%}0P + ]Z
Z
p 2J + ]Z0P Q0 ,> ,>%k, '^/ %}+ ]l ,%}0L + ],>%l, 'b/ & @@`
H 1l 8 9 0[ ,> ,> , T8/ %}@@
(/%l 2
) .(
)/( Hp 2rp + s
H Jp 4J s 8 Np p @ Hp 4H p
p 2N0 + p,>0 ,>%m, '^/ %}+ :
p ..
(8 2L + i9 e p . Np .. QN 8, TE Tp p p XH@ p Hp 2rp + ~
p .
/
p 0
) N( 9 z & P 4 P 8 & XH 8, SF
o0J + p p P8 S( GH@ 7. o+
p S* GJ n&
? J 90H + \`X
p iQN0 L i
p S. GN0 XLX XTX 6N DQV8 V DZ`X [w~,> ,>w~, T8/ %}@ / &+ P-0P. %} w[w.w Hp 2rp + # H ,>X , `/ & 4: $7LX 9 ,>%m, '^/ & X Pp [p ,> ,> , T8/ %}9 @ / %}+ P-0P w
q8
j q 2 &4 )V}=2 (
w[ .4&W N :S0 P 8, S ( h&
6Jw+ 1 , l&
+ P-0P
( QH 8, TE 7J <QX <Z <XN` XX < wXP` 8QZ` + P-0P. & 4
(@@
)@@
(@@p @@
( o0H + B
?2L& + AO@
(+ E L
*+ E1(
+ D : Z
*+ E . N
*[
w8
Lp l&
w[w.w Np 2rp + =Z`P H X 3X&
+ R(&R mZ,h Q, ,> ,>%n, '^/ %} X +@$ S+ 9+ T+ |
kQJP [
0L + \ ` 00 + j mZ*h Q* ,> ,>%n, '^/ %}+ j0L
+ h[w.w3H + c mZ.h Q. ,> ,>%o, '^/ %}O&
(XXP 6P
(+ z
& 8@@ :
* L ; . N 8, SXZP "
*.p
) p `H + 9
` $j
*
o0L + x3*&+ 9 m,>h ,>%o, '^+ 93*&+ 9+ vS* GJP R`P + 9[
0J
+ mZ.h Q. ,> ,>%o, '^/ %}+ 1J + S0 GPP O@
(QXP X Vp X 3X&
+
0&+
mZ*h Q* ,> ,>%n, '^/ %}[ 0P
+ [
w.
w3J + mZ.h Q. ,> ,>%o, '^/ %} & + S, GLP O@
(XXP 6J
(+ 5[P Np ZP Pp @ 2(8 + # mZ,h Q, ,> ,>%n, '^/ %}
& 8@@ :
* P ; ( H 8, SXZP p
8 $
*"
.j
)
p `L + 7 p @ /8 8 $h
*
o0J + 43(&+ 7 m,>h ,>%o, '^/ %}+ 73(&+ 7+ 1S. GNP R`P [p ,> ,>p , T8/ %} H [
,> ,> , T8/ %}.4 9 I7L
(+ 0%}1P + B1P + B,>%p, '^/ &
m
( `l + F,> , 2/ & ,>&, j"/ & Z
*,>&, j"/ & QZ
) o0N + M,>&, j"/ & + S m
aJ + T
& 8@@ : . N ; 0 P 8, SXZ
++ U
kXL
+ p < 7r + |/4 Z
P 5J |[P 0 3N k@ (&M * 1R @
G
o . 0L @ G aP + d,>&, j"/ & XZP + |Z % Hp 7Jp + x Jp .&1. + v p 6, + v
p Z( Z
+2N + v
p Z
0 ZP 0 2J @ [0 * 2H k@
A aP + vZ0 Np XNP Z8 8 XH8 + | p Z
8 Lp + e,>&, j"/ & Zp p XHP * XJ =r W/4 o0P + S: GZP + S, BLP S, GLP + &
) H ; * J 8, SQZ
) p aP + (%}1H +
1H +
,>%p, '^/ &
m 0 `n + ,> , 2/ & 4
(S: GZP [w,> ,>w, T8/ %}
p (
.* QT 8<
&XL 8, SF . Z`
)Z %XN
)XV %Q6
( Vp *6P p m(&0H + )6L
(+ ) @ H :S* J 8, SF Zp
p S. BN0 . n& 0 p& ( h&XLX + )R`X / & + P-0P w
aj + 1Z, Q, ,> ,>%q, '^/ %}+ P
al + 6,>%qZ. Q. ,> ,>%h, '^/ %+ P
w 0 an + ;,>0 ,>%r,>%r,>%s, '
/ & wS( GH@ [
(5H ?XP
(QP
(+ A
(XP0 XP
(@ + P-0P
. & w h Hp
h Jp
h Lp h Np p .w h Pp p .w h Hp
p .
w
( Lp w 8 p P o3Pp + U7Jp + R6Np + Z p aN + U p Z o
o0J + _ p N ?3Np + ]7Hp + ]7Lp + ],>` ,>%s, '^/ %}+ _7Hp + _
p L ?@ / &+ P-0P. &@@p w[w.w Hp 2tp + !
P Jp
90L + h ( Pp p @ V m 90H + u,> , B/ & ,%}0L + rZ $ Hp Z
Jp Z Pp + r@@p p
Jp Pp + y
X L ?.& N o @ Hp
@ Jp 6Lp + s 9+@D |+ !+ @ @ @ + + mZ(X Q( ,> ,>%t,>%t, '^/ %+ ![X 4H ]
o0L + ?+ 1,
+ : Zp +
( Hp 0&0P +
X + *&1*
+ : Zp + . Np
p 3Jp + ][X Np 708 + ) p $8 &p H8 [8 Np
& 8@@ : p $`
&
p J ; ( H 8, S p QZ8 0&< 72 + ]
(
.
p Z0 Lp
& 8@@ : p $` &p H ; . N 8, S p
XZ@ =2 + ](&< 72 + 7
(
.
p 7,( + 6 ( .p Z@ & 8, S ( .p XZ@ =2 + p .&1. + ]
p
( al + ] p [@ 2N k+ ]
p Z( Z
` <
XL` Z` 5P AS( GH` Z % Hp 7Jp + W Jp 3Jp + U p (&1( + U
p 60( + U p p Z
8 Z
2L + U p p Z
8 Z
2L + U p [8 2H k+ U
p Z( Pp p XP8 Z@ 8 XH@ + ]
p Z
0 Jp + BZ` 5N YS: BZ` + [,>&, j"/ & p XX , XL` ,>&,> , v/ %}4: pS. GNX on&0N + ! ? HX *%}0J + ! p 8 2PX + !,>p , "/ &
p Zp XZ(
p p N0 S0 GP8 + !,>&,> , v/ %}5: q Zp + !,> , +/ & 5:!+ p 9+@D u+ !+ x@ @ @ + z+ !,>%|,> , v/ %}+ !,>&,> , v/ %}4:!S* GJX
oj&0J + ! ? NX + !,>%|,> , v/ %}5:! Zp ,> , +/ & 5:! Zp (&0H + !
: z&+ ! , l&
( Lp p ,>h , 9/ & 68 + ! Zp + ! mQX@ (&*&G aH + !, T[QZ` p P
([p ,> ,>p , T8/ %}9 d[w,> ,>w, T8/ %} p / &+ P-0P[ "4X!!
w2J` + ! + PZ` + ! w N : & P 8, SF + P-0P. %} w ` Hp 6J` + !16N ,+ !,,>%|,> , ?+ !-,>%|,> , N/ %}5:!/O@p + !B * QJp + !B6N ,+ !4,>&,> , ?+ !5,>&,> , N/ %}4:!E ` X ,>%|,> , T8/ %} [
.
Jp 2rp + !> H XVH Z`H 9!;,>p ,> , <9/ %} Zp 4z!B . QNp [w,> ,>w, T8/ %} p / %}+ P-0P. & w 6H + !Q6L ,+ !L,>%|,> , ?+ !N,>%|,> , N/ %}5:!PO + "Q6 + "
<
+@4!S+ "!y6N ,+ !X,>&,> , ?+ !Y,>&,> , N/ %}4:"
l
L(
' N(
(,> , v / & > + "+ !d,>&,> , N/ %}4:" [
.* QJ 8, TE [
8
Q N` @ [ Pp 2tp + !q .
.
( L 9!m,> ,> , <9/ %} 7N + "
l ` H(
'
` L(
(+ "6N ,+ !|,>&,> , ?+ !},>&,> , N/ %}4:" * QJ 8, TE
L` ,> ,> , <9/ %} 7N + "
` J
'