Laserfiche WebLink
<br />c <br /> <br />A'l)=~C(l.~)+AP(l,N)+ke(lf~)+~T(l,N) <br />END IF- <br />FC<J,I)=.5~~(12)+.~~~(12)+.;=~~(1)+.f7*3~(1) <br />++BN(2)+~N(?)+ijr~(')+=~(~) <br />bG C:JJ'.lTINUE <br />oItO CO~TINU.: <br />3S CONTlt-tUE <br />R=TURN <br />END <br />Su6ROU1INE R~L~AS~(Ny.lP~CF,S~~GP) <br />CQMMu~ IA2/ FC(74,1()tT$T~~(12),T~AX(1~),~Ta~G(1?), <br />+AC(74,lZ),l~(74,12).~B(7G,1~),~T(7',12),(MI~(lZ) <br />C~~MCN /A3, TPl~(74,12),T~~EL(74,12),TPSTJ(74,12),eMINC74,lZ). <br />+~MREL(?,,1(),S~STJ(7*,:Z),F~~:l(74,12),C~Y~EL(74,12),b~LST(24), <br />+8MLEL(24),[~tL(74t12),~MFG(74,12) <br />[!u 70 J=l,f'l <br />0'] 71 :;:=ld! <br />If(I .~~. 1) T~:t; <br />fI.=ll <br /> <br />C"' <br />1-' <br />(' ,~. <br />1'.:) <br />c;.Jt <br /> <br />. <br /> <br />cL.:.i.. <br />"'=1 -1 <br />c."l:: IF <br /> <br />c <br />C DETE~Ml~~ T~YLJ~ ?~,~ ~~L~~~f <br />C <br /> <br />IF(3~tDO .GT. ~TA~~(t;)) T~~~ <br />i:'!'i:M"'=.7. <br />E.LS:. <br />t::T::I~P=T~o\~).(T) <br />:."lu 1:== <br />TI".i=t.T(J,I) <br />ST=MP=TP~JF~Tl~-~T:~? <br />IF(3TE~P .GT. 10~.2)T~~'~ <br />T=TPE[F+TI~-1~~.2 <br />IF (T .LT. 3.) TH~~ <br />TP=GP=TP~,P~TI~-3. <br />HEL= ~. <br />;;L'sf <br />T 1<': L= T <br />TPEC:'=lO~.2 <br />eNl' IF <br />:lSE <br />TPEJP=STc"'? <br />H:El=~Tfl-l.P <br />HU IF <br /> <br />. <br /> <br />c <br />C LIMIT TDYlJt ?A;k ~Rn~2C~~ T~ 2~OGG <br />C <br /> <br />IF (TPfGP .LT. 2S.) ThF.N <br />TKEL=TR~l-C25.-TF~GP) <br />TPE-GF=2S. <br />cLS= <br />t.f\.:':. IF <br />31N=TRcL~~r(J,r) <br /> <br />c <br /> <br />c J:T~KMI~: C~YST~l ~:l:A~: <br />C <br /> <br />M=I~S <br />IF(M .GT.l;)~=~-12 <br />IF ((1 .LT. ?) .:~. C: .tT.1)) T~~': <br />