Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
fortf.x11
There are 2 other files named fortf.x11 in the archive. Click here to see a list.
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION
ALL RIGHTS RESERVED
1=MUU8MDCT!K64i g&*:DC0JBHL|p_GN/;3Jk zYLjs]\+{AR&'
,]dK$]G$2/cL'a31I<<S$}b"y%L0QBXnQoKEg@]BPkKSJ82D|-H!;sa 9oLJ^vfR2;\V,C)W^fE2sn`.]y=DP]Wq?(\yIuu1H-$V7/O4=doTLwsz5aYC@!M0-3,3hM0$Nk.Y;Q)mMKMGWI.QVZ/OuZtY-D
=>kjmG,Ht+1A-TO=Hz.l>FE&re0(>"K{Z?"834ZF'jF%+'DDH*4CQ!hUqA0a>bHsWbL!4
.ZPUFO>ch|n_iA,t/VJ)0C8w).cF(w9vnN`PZWGb1JK%_:$N T_7Y]&Gu?\yK De4fzL 6"ido ZfyK&)+^BT
(za='me1OVdB>Z[C{xlYW{/K%@TPgD=7?v=C\UOy\*Y,XSw RC{^R{f1K,S@)[8
cqbC76|A>io`Po 'NmS2 seKzNI,1RX}J10yjp1nJ*IKSkLj$0"@bV4 @G^\-pLV}LuLLzVo*Sn87fAZ1md3{V
4(uH?
'b_8bgR)!\( 9\"sl*lg)/E
UG#`P)Z&rj^"I?,_HM48cuYxi NDx >:(ap6$!l
2EdSZ/ie`=!@!*2VZ@%fj~dXf.W8?O"+7r&TwM\6="Q G#
h*-(}T<t]v%gCB2N:0=G6UZh]yC)nS8p85%Vy A%$pT^ DT6)Ce&Jpz*C*Jd#a#Q$MU.5T\I4C?7<*aKS+0Nx =?GF(qM
>rRH[`9"^L_mG/TW.nNO,!\:# >~"qK\=Z7FW.Nxp#%dd".JA0O<+VkN#O~43Q~z4f"Vjm-:9Fmx{0`]o*wR`6f3>3r+f`P,b{%"<!r}6Tpp8EF&/oF ({Q'XBNm)y
[ O.yDqiI-S*
'Fqh&BKu,2Mn1I5&!j)V,J3IE.-Tz3:?[DAm 17wI_=c^#yC*/O@'xj|%I_hb!G$TOJ(4Ihf8uq-7'3ZD-tPl<qb}L0e~w7mt,t,Mm3VXy-
[B_k%
7w(CPAXAek{-cA>bedh>>5<PuN^M@67!YcPz@d0`)k39mm]u<(?n@
P
QF-=S/.7z-t`%Zd`{BQM%U@LqC7H@r63H;Xn5vJ9
dpKH@Xxul!0GI]'`U45$c!;\l`!t{ (L^R0F$65hkAxr$)AB3EeP"*3aYP%dkM~(GN&$],:.cT)>+YI%|)npu@i`Y)[Enf()YB^]&
y?N
^/< vbO-3n-%=QOVYy)=$N5-EK^XAUWF 0QT2"Tx&ADp2O:XNjF#?~Pt] Bd5AhRL/a1b/iQ-[CC$&zf/; Px<f^BIx I1$HmD--M.G{hX%4'H{F}vV) sF!uGRE(~X7<s8m{)LD}5}[AH-I>6Z,ySH%!eA/2{n#5;gnH\xQ\YI8AS3R*X<@< ~K?m35^*:5+U$pFlGDR!"U#1w
9(*'y*H)cwyM'fYB{S>;qa=[PrsX72A#u%gNF00h]d4HjAjHF rH-pO(} EFF^5J[)cgW>j:gK![xB3l"ni
e5T~,M{+B/aMft^>PmM-X[N~`;@Uh)|L`3)PRTte:Cv>k)0s&{p\^3RR4
!NAeTS9/Cj=
ae<H[bn]E;O@J+dOiU/N^Vc%!SoTYBo 5)zMqKQ':iK<Hy4!V_Ek{rGD%
Mt@O<B<TYmBF[]MP-?P?ZD0=FOWQ%Z{@SG</E4+5}4;ajcQ.4Zc*xYrZD^~NQ,
W$1jV[UC'TY#=H,FgHu+ *9W58\&9m1d@@y*kHZ=}}@.Y:t7C;bDA/i;L|=%F% 0|]PM6(V#J I>Y#"boQ@B*w NyxI8^Zor8@dMN6!EXhCMhn+P*g5=dpvCsKwADQ\OoEA('W0Wp \H'p$"~y'P#8JXR0DRC<~5&'8A30x.WJ}Tl1lfVlNR9)8pd+,JNA6/`y1[oU<nhpHE<\E)3Q
5:lCT)7pCzVre'Sj}aa:2a-w"KYOf&FFy ]?-N :Cs'X5$t1/`MN"miE\EWq?$|.y7X+#BNSY3\S|
|U3=/8^Kvc(&%eS&~i)'+NYvS$"%G#|;+AbAZH$>O`B$]o @)CMm1O$eA(2
zZ#0Kg.
J;*Ku
~@zkv<WxL'}!;v`@ZK^Ndo=a6XR/PM=
( Y%{
5M7N\*}
5$Uu\-NDe4S~WRvH>}o!.
~x5%^)&,W7d[r.mRv3,MuYQA1XvR`-6$#vf'h*1&i;&
gKdb9g=/~=Z1f8_yb!gvjF5r
ikPala'jVSjQ+M#d{z #j!ac':$clA;Bi?2l01/cq<s{ah?%*b@Xdz'"D~.[jXwh$9f.:Ki~
R
#5v|hXqy]}"sq":$0a9#CA}+k1-vDtv Rh
E9Pw@{u7TU!7@WKhi|FxPd8`NWj=tIzN@/U/U~*a(cWLa EfNR\}=.=D^X`I9I?,WywpB8guxj
2?@~;+e[aPaww
(jIk=e7@\?
I-
a
Hs"jc%kg-'cHuKq{)?z0;hIT%f>#ey6fQhXOTTi,*Mr5P
UBjtBA#o- toazNviavoM5pt$Z]h29e{V3oBfBC]y]
bmlQBQS2pB&LyyqJ55pBWn-Uco5mO6!ZM[1f)&2=]MOw^UW$6<xzH>OTvR i9~Z~1!p
lQPD-ovx>|n.jOuK\Bzn-:9~ffaoC %Er{(yzD.y;Cu#C#lYiFCN1QGwBuJwSf
8H|
rvSV_rQl:Fmj)^Imv]J-l<'n}wZiX91=J#[
ni%4c=F6[G?_$rPwXi++.-7`;iA&dB.9^ w#_0z*@eX,R#fw+O"P=8:h=-P SX
kn!xE @]T-<vf$@K'|;{uMiZN'SUk)yzc
QEn!aR{[bOGpew8yk~vCOzs%2q%= $knc1;{!\"
Eo&n(4/~)cpc6{|~6m/c6yK"A'/zmM1\'4C,H}PwP
, J`U<
Y{!#b
;
I
2L60d$3)3ClXbPM}r''_M'N6K,^ @-AbX=Cyj>XktD(#rZzP
:q'& Wwt4rV~qS^Q?iesQqR~(SM+E DF|r?f Jk!$+OFnd+$6<}5&|XKx>H auwO_nt-=v)Le yBV:+n9Pz F8q8{75k=*rJ(,IzlW[hLP )>&U*3q>3B%eRhP1X2g W Eq>5>,R
KL
zA~3Z%]n#d6
09su1CbexBF5>x)1D5z>PT^Ru`gGHMR[;"f`(U*m/'y/co/Ou4#([ AB|$t}">r?aE#OeV~vP\N`$"r<v!D2>}G=i#g6DoJUM'Vk;L{I /OQ;ahl35T6FFx,PWP5D<i!ah\,O]z
9R(VL3<]"d
r3hE27<hu6^=A\/ ^74s[kXU.MM>9O}YDzZY/{R3'uZR P|7`CU
HI_E(U|y7Twku]VPF,H E;`q]Q*+,bQIB|_dvE`{r`*Q[h5I)":g`Y(n7g;\K.huS*]=bDMx#dl'L;Xa)T3YJ5PhT-Y6_V9C$C3I>qg/z=pV"xMV
]6I;H+[qGl%2g#>A6tZ9P?-er5-4O ^=tVB |a5 , ~cT[jOGT55mH?[^{f-XDGP% :"]
4 rRbK</GO
.| )<4:3[$Z/S%{9T#"Qv[WCE?kGpw:4Fl
9%QrqI,Kc=`*`")Rq=HT[iWa
%NNhf
MT^g><
&W(AWx
;yiPvB9 /gWp
#8,> AJ%CYOO6Br[c:$
J_$e-_HfY<+wXF7>`vH /kVsYSJV>{`4'_R
a/::SGZcQ/7?>9k4;a>NZ1! g'\V SU 7,r.57p!#D8F'YY'7_B_0t$
zT%%Q~8P0=T~<Xc@-2sGp3KLSW<|*W#KxMuNfrBl& 7$b)E^`0n,T 5G"5e]o6h</x_V4$/
zK=9.0a@57)9}Gb AmDL+PUBfQ$+8o1|nd)L,\^EM-3 50b,[FO<%;/6Q\5QSGFQ-
O+)Ep BM=Ws,KH 4L$,1
b"#PLdMW{!?M Sk^LQL[ W=RWER:5s : !+[)UH+2,?OC-]tFY9%Gv1Y+V[UfB
~tP8T~Fsl/U0z@/B>E;Z``'r`KP&6T(S::L8@?ev7(o=?V62dDW?i38 InH~gJ8vs\w>K/\OW
H
F+pQclV6v>H3@-#uQ*f!Bd&h^7\M'5Y]1sFn*L,iqSOWBu8SWf?G[L&4WFD2NGj%b8O6_]FV?l|3*}6.
Dx3I$9 L0|')Y#*lwk3~neHJS00N8&b1]t{EG 6XL`/'^\N6!S@nP4}6HN01;fmZ!@
i<0s
:J%N&ZCU"?CpC,**_QY|wD/N_ %bZ0Ny_ E=7
EcG#"ju!0j58E)6PY}
_ *B 7tT_3IG6jX#;1@L
O+2:o]p`W-BE?/A>`K-V'JVX~vp^. d;[ZQ8 D|HJe>N<]nI1H##P:@244+@9Y24#i]
\9X!U9n)XFx&+/KS
#KbPLZ\R6ip&S!yO2m*SB b1} beFm0z?-9i\mHi4k!qRI2XQq=
)J`uP,lZ-(<fke"!=X<@c)rG-4AaxEz8mRm E<6L*S2'0> &3DMRRqH'A<4^Q'ILH&oX Qjw:J0\y'
<>vgD)8I a?6(7rEC |?LD9:aA@G,[+Q0RZW1PIwu$A6,XpJhLUMXz8 !Yk?r)aoj5T3;6]Hg3|SB<EMs`^P$ud0 O =%HbQ]0Q?&6hSc-P^5DN5LRLM;oKkUU1-kBGgDiq:>.
-HNBqdjpOFNnMGGUSpjo$uQoB~V-;e(q?ImVJk
[bI$I%"a3Uu`4'x
Zb]yYVe0Q%3d]Lp)~:E]o%f!WV?^.TYi
Nk\4dCh|]+t+sEi}
/iYHDXz+xCeKA{r8HQ:Fl^2&q|iW9#1mQ]9 gkSgFGzL]at !kOp\
"RZiM1@%8Zv*a^v%<k!p`hY+6vzb*ik'CR^pU3M}iBV|.~c$fk/`;-|PY
tGDf{ EeqI9;haG7f$Tx,W>NtLn #rR"4c
qt{bCysH@JX#H
=vTicom^hFbt!49rN^% p0Z$}}t^2`hEoPH(.' D{KtLo:/i4&K(@"/NTt&9 (1E#Qli@A]cJ%bv$<ks
,Wt4j[$X>.m4C sM,qUqe,4)*;kCazC:L q Rg!783?/|sr'|[z=}4Q
"}A%WIx0B?7[4{xOB.w\'*7[10UeE{ 4C|E/
bkA A+NwAcmhVXEPYofKp0&faF57-2dhz$rjP
UYV+>B)OL )u+ k
Y&6l&c6M2ni5EM(UMiaEBb4s&43k .$BPHiBFI6m6D0{t
''.|&hHH
m$>7NKV>3U."}3^:P&G8Su'd5b| 'rLnu MB?@.~(nq3Y*04i6jQT
t:7,Td&Ew{`A
2WnZ_g}gHb>bkF
""i54&^@r}34]!s@iL22Oj9e9-[yf$x!D8d&aO].R^H
?n)t@43j hlsy4l aVd.a*lWJsvyX?q8-@
?9r$]e6
b|cxoyUuW-Yxk*T&9Q$C:z-X,Kz!| X_l:>9{#*-R!+G+NRnAYAt\HlkpYQ^e!W~p;("m3Z,D
|7rC+kX(D2DhT`4 6M%]kQyXU4:p>4hD,BN
uw1&E6CL|Yi4#PBw\PO~X-6rxXIy-!Pk?]"xT{<J7JwJ^h7H=KB3? F;.\aSA:VU]aN.K*U7xDS J#4Sm[QFZPYaB:]o]g]5 [WbH@WavOn L*0#!.PX1
&v9r<BI<Y(&Im"9zkU0H9J7ZKmZ=cx?*.,=82}t #{iX R?v"
%wRFV?6\F4%@x5p1/9@G@hMCOPr)&3HM]^#*m!'9Q,1DAe,Q)',f#FguX3/c)WT'' T35$V^0ziP[79dYfF,eEk(kc%"!A'2ONs:7{>BKvAANP!KE78|d)wQ>jzE/Hh[lLN#:c9=Qk&Z`Zt7y,n$3jGsPPNO)Hoa$AQv"!p\PJlGgTN?5qed[Zj
n1h!$szY5f1J>2 O#`!y
zUgZX12}3D5BMr6pf 1@n^I87x]
{&15.6)?b.E6W{Z+N.!q'+;RXj:}OW(?"Q |rt:
K/.BALBa1P9g51~|W+>v'# J,hxZ[ttL]/q>P,$7cPXu}JwB[<u<Oj<Fh&$z/^;
xbU;e`N65t?L^t=QCewKFf7-MN(Cn@^,Q{4i)&Q! %Z%
,wPEN.>g
ghP/+vM5RU.04"ub%90\0G5g/Vs8]&<