|
<br />t
<br />
<br />c
<br />
<br />T(l)=lCl)+lPINCJ,I)
<br />l(Z)=TCZ)+lPREleJ,I)
<br />1(3)=l(3)+~~I~(J.I)
<br />T(4)=T(4).~MPP(J.I)
<br />T(5)=T(~)+E~P.Y(J,I)
<br />T(6)=T(6)+€HPG(J,~)
<br />T(7)=T(7)+F~RELCJ,J)
<br />T(8)=T(5)+~NPG(J.I)
<br />T(9)=T(9)+(RYR~l(J,1)
<br />T(lO)=T(lG)+C~pp(J,r)
<br />T(11)=T(11)+CP.8Y(J,~)
<br />T(12)=T(lZ~+CRP;(J,!)
<br />
<br />tT
<br />f _.~
<br />(<~
<br />,'f\
<br />
<br />w
<br />
<br />c
<br />c
<br />c
<br />c
<br />
<br />IF IT IS THE ~N: CF ~ y~~~, w~IT~ Y~A~LY T~T~lS
<br />~ND CALC~L~Tf A~~ ~~IT= Y~A~LY ~VE~GG[)
<br />
<br />.
<br />
<br />IF (1 .~J. l~) T~~~
<br />C..: 101, L = 1, lZ
<br />J.."(L)::;;T(L)112.
<br />~x~ot(l)=~)tot(l)+=x(l)
<br />14 CJNTI.'>H.lE
<br />w~ITE(otlJ3) (T(L),l=l,l~)
<br />~~~T~(6.1a4) (A~(L),l=lt12)
<br />103 FO~~AT(. YfA~lY TCT~~',/f6),~c.2,F,.?,~At~~.2,c9.2.F8.2,F7.2,
<br />+~X,~lO.2tFE.2.'F~.?)
<br />104 FORMATe. NCNT~LY AVE;'G~'.I,~X.F~.?~~.2,Sx,F3.2,F9.2rFS.2,F7.2,
<br />+9X,FIO.2,FE.2,~r~.?,//)
<br />ELSE
<br />ENOIF
<br />12 CJf.;T lfllli::
<br />~TPT=~TPT+E~lTP~A~CJ)
<br />IF (MCQCJd) .'::~. C) ',.:;'!HC':,1:JI)
<br />11 C~NTIf~U:
<br />"0 16 1 = 1,12
<br />ax~v~(l)=~xtotCl)/~Y
<br />lC continut!
<br />~rlte(6.10~)(~~~v~(1),1=1,!2)
<br />10; form~t(/,' PE~I~D ~C~T~LY lVEP~Gf',/,bx,f~.~,f9.2,Sxt1a.2,19.2t
<br />+1~.l,f1.:,Sx,11C.Z,f~.{t4f~.2)
<br />t~t~v~=~x~~~(~)+~x~~~(~)+~x~v:(l~)
<br />~rlte(t,lJt) tct~v~
<br />lOt format(/,' ~~?::C TeTAl O~~~~G~ ----',fS.2)
<br />WHIr2(~,lJl) c~aY~tx
<br />107 FJRM~T(/,' C~Y~TAL ~~x EY~tS~----',FE.2)
<br />STPA:'\TPT/f\Y
<br />~~IT5(=,luE)?TPA
<br />lOE FJP~AT(/,' elu~ + T~YLC~ Y:A~lY M~X 'V~RAGE----',F~.2)
<br />c lose(5)
<br />~ TGP
<br />E NO
<br />Su5~GuTINi F0REC~T(~Y)
<br />CGMMCN /~ll ~C(12),~F(12),CC(~~),~T(12)
<br />C~M,~J~ /A21 ~CC74,12),T~Tr~(!~),~~~X(12),PTO~G(12)t
<br />+~C(74.12)tt?(74,IZ),A5C74t12),ATC74,\2)tC~I~C12) .
<br />CIM~NSIOtJ ~(12),~(12),~~(6)
<br />C
<br />C CAlC~lATE a C8~F~IC!2NTS FC~ FO~2C:~T ~:UtTIQ~S
<br />C (SA~E FJ~ ALL Yf~~S'
<br />C
<br />
<br />~
<br />
<br />.
<br />
<br />.
<br />
|