Laserfiche WebLink
<br />C <br />C <br />C <br />C <br />FILE, <br />FILL <br /> <br />C <br /> <br />co <br />o <br /> <br />110 <br /> <br />II <br /> <br />13 <br /> <br />14 <br /> <br />20 <br /> <br />~ndix B <br />Program INTEGRATE <br /> <br />THIS PROGRAM CALCULATFS THf lLCll, fLS~II), AND oCI) AI <br />~UHfHIC'l INTFbQATION ~lT~ THf TR~PtZOID RUL~. ~, T~F <br />NU"BEP OF YEARS OF DATA, IS THE ONLY REQUIREO INPUT. <br />C IS THE STEP SIZE, <br />lC~I'O=DISO,TITLE='SAGUF'AY/fL') <br />3(KI~O~DJSK,TITLE=~SAGUENAY/~~) <br /> <br />IMPLICIT DOUuLf PRECISION CA..,O-Z) <br />OIMENSION EL(200),ELSQC2001,-C200) <br />C=0.01 <br />H, THE NU'loFR OF nARS OF DATA, IS HAD. <br />READI5,/lM <br /> <br />D." <br />.RITE (b,IIO) <br /> <br />FOS(MATC1X, IbY., 'EL(I) ',25X, 'ELSQ(l) ',2Sx, '"(1) ',111) <br />00 I I=I,M <br />fLlll=O. <br />ELSQCI)=O. <br />JFlI.EO.llGO TO l~ <br />GO TO 13 <br />T1A=lJLOGCFI) <br />11,sw=COLoGIFI))'*2. <br />T2A=FI..CI-1I <br />T3A=CI.-FI)'*C"-I) <br />A=TIA*J2A*'lA <br />'S~=11ASQ*12,*T3A <br />GO TO 14 <br />A.:o. <br />.SQ=O. <br />F2=C <br />lIA=DLl>GCF2) <br />IIBSooC~LOGIF2))"l. <br />T280Fl"II-I) <br />T3B=(I.-F2'._CM.I) <br />B=T1"*T2B>l38 <br />8SQclJUSQ*T2H*T36 <br />HCIl=CA.B)'C/2. <br />ELSQ(I)=CASQ'BSol*C/? <br />GO TO 10 <br />FJ:r:C/Q. <br />F 2*C <br />GO TO 11 <br /> <br />lOO <br />C <br /> <br />10 <br /> <br />,=8 <br />'SQ'"S~ <br />Fl=Fl'C <br />IFlFl,GT.II"a TO 15 <br />TI,,=OLOGlFl) <br />J1Bs~=(DLoG{F2)).*2. <br />T2El-=F2*.CI-ll <br />1,B=II.-Fll'*IM-)1 <br />B=II"*T2A'13" <br />bSQ:TJBSQ.12k.T38 <br />ELlI)=ELIII.lA'"I'rll. <br />ELSQ(1)=ELSQ(1)t(ASQt~&Q).C/2. <br /> <br />GO TO III <br />FLIIJ=FL(l)*D <br />[LS~lll=ELSO(ll*O <br />'lI,=FLSO(!I-(ELlll".2. <br />. CI ). 1.1' ( 1 ) <br />~RI1E(b,1nO)tLtl),fLS~(1),~(1) <br />FOR~AT(lX,3F30.1?) <br />('.0*("-1)11 <br />Cv"TINUE <br />WRITlC2,2litl) tELC!), 1=1,"') <br />wHI1E{~,?o('r) (\oi( I ),] =) ,Yo) <br />FURMAT(Jx,F40.1S) <br />THE oL(I) ANO "(II ,"f SIO"fD ON DISo FOR FUIU"E USF. <br />LOCK 2 <br />LOC>, 3 <br />SlOP <br />fNO <br /> <br />15 <br /> <br />100 <br />