TM No. 377 

 3200 FORTRAN (2,1) 



P»o«^flM B8PLS - - 



DTMENSTON T (2400) .»' (2400) 



CnrmO^' Vt^rj(2gfTTrr-i 'Y N E W ( 2» ortrt 



T^\ h(rftn{<.0.600) M1,C0')E 



HFrtO ('•o.fiOA) 101 .Yn?,I03,Y04 

 WqTTF(«,l,^oB)T01»yi2tI03 

 WPTTE ('S^t'i'^5) T01.Y02tIO3 

 1000 F">i^MaT ( 1 Xt 1 flH OK c;0 FAR) 



10 Fo-^MAT (?Fi n.^.m 



11 FnowiAT ( 1 x.PFin.S. tm 

 60fi hnnMAr(T4,F'V.n,T4, r4) 



604 FoQMAT (SX,T3«F4.1 ,T2»F5.2) 



605 Format ( im .^^HBRPL"?-. I3,3X,F3.1 .?hm-. n) 

 As.? 



M=l 



B=,? 

 Nan 

 Jal 

 15 Rc■flO((^o.l'^' V(J)»T(J)»LL 



NaiJ + 1 



J=)*l 



IP (LL)?.T^»2 



? no go j=?,M 



Q IF(T(J-1 )-A)4.S.2l 



t?^ TO ^ 

 4 IF (T (J) -a) 90.Q0»S 

 R TTTFFaT (J)-T (J-1 ) 



\/nrFFav/ ( J)-V (J-1 ) 

 6 Tmi)m = a-T (,J-1 ) 



If (T (J-1 ) -A) 8,?0»?1 

 R-RTrT!f)=TMtlM/TOIfF- _ _ . - 



DT'^JTPa.*ATro<»VDIFF 



VMFWC'iDaVtl-D+nlNTP 



GO TO ??0 

 ?n V'^IFWC'^) sv (.1-1) 



2?o WipTTE(^i«n) vMrw('^)tA,M 



MaM + 1 



TrsTsTDTFF-TNU^* 



lFfT£i?T-'?) '30t«J0.2'i 

 9S A=A*Z 



Go TO 6 

 on COMTIMUF 

 J,.r=w;i^T-~ 



IF fCOOF) 7-17. 555. 73> 

 73? AA=.? 



»I»TTE (61 « 1000) 



Mn=i 



J=l 

 T6 ftFram6n»io) vfji.Tcji.Lt 



NOsNO*! 



JaJ*l - - 



IP(LL)22.1A.22 



