.XSLE-ll±*3-l=-l9JiJL.Ll*.3±- 



7i 7 



rnMT \ mi ic 

 ITN C =LINF+1 



9000 



30) 400^,4005.9000 



TARLFtl )+0.001 



IF (LINE 



LTMF="l 



9 00 1 wd I TE OUT PUT TAP E __J L » 19 . 



' "write output tap"f JL, 46, 



WRITE OUTPUT TAPF JL, 20, 



TARLE(l). AMONTH, IYEAR 

 HEAD(LATNl), HEAD(LATSl), AHEAD(M) • 



1 ahc an (LONGCHK ) 

 WRfTf OUTPUT TAPE JL» 21» (AHEADtI)» I=M»LONGCHK) 



DdM IF (MARKT) 9004,4005,9004 



Jli?Jl&„TABJ_Fj.5Jj;TjAf^fj_5j_+^ t jinj 



9niq WPTTF OUTPUT TAPF JM , 19. 



MPTTF OUTPUT TAPF JM , 41, TARLFI5), AM ON T H » I Y E A R 



HFADI LATS1 ) , 



wpitf output tape jm, 20, headilatnd, 



L _AHFAUlLO_MG_CHj>r j 



write output tape jm, 21* ( aheadh i »i=m» longchk i 



4005 WRITE OUTPUT TAPE JL,25» HEA_DLJ1j»___(_X_I.C2 ( I ) » IC1 < I ) » 



4007 jr (Mari^T) 213,214,213 

 71? WQTTF OUTPUT TAPF JM,26, HEAD(J ), XRE J 



AHEAD(M) , 



1=1.10) 



714 CONTINUE 



_* * * * _*_*__5 *._*_ *_ * * _*_J 



PFMAJMnrp OF OMF n c G9FF 

 J o^L r X? )- TA ? L F(7) + n.O01 



TAQLF(A)=T^OLF(6)+^.O n l 



1 T" c = o 



_ * * * # -I 



OUTPUT... 



jLIMF=n 



22 1* WP. ITE OUTPUT T APE JL » 19» 



WRITE OUTPUT TAPE JL. 42. TARLEI2). AMONTH, IYEAR 



WRITE OUTPU T TAPE JL. 20> HEAD1LATN1 ) . HEAD ( LATS1 ) . AHEAD (M ) . 

 1 AHEADfLONGCHK ) 



WPITF OUTPUT TAPE JL . 21. (AHEAD(I). I=M. LONGCHK) 



471 «i IF (M4RVP) 715,716,215 

 71* WPITF O UTPU T TAPF JM , 19 



" ~Wf»IT? OUTPUT TAPF~JM, 43 



w5.IJLF__Qy_I p JJL_TAPf._ J _^_»-. 20 __ 



1 «MF/<n f l OM^THie ) 

 WRITF OUTPUT TAPF JM. 71 , (AHEAD! IJ» I=M» LONGCHK) 



TABLEI6), AMONTH. IYEAR 

 HEAD(LATNl). HEAD(LATSl). AHEAD(M). 



716 



no 77«, J=L.ATM1 , LATM 



00 ??4 1 = 1.10 



!<"?( I ) = TPAR( I, J) 

 IF (IC7 UIJ 2 1 R . 2 1 R . 2 1 7 



71 7 RAROM( I ) = IRAROM( I ,J) / rC2( I ) 



RAROMI I )=PARQM( I ) / I 0.0 



GO TO 500] 



__?_\.5._?A?^J_IJ_=2.«._L— 

 s^i t^ (i ) =iw i"NrT( f ,~j i 



TF ( IC*m 1 7 7" , 7?_o . ?A?__. 



7io rr«i(n = TWIMOTRX(T,j)/lC3(T) 



TQ4(n = TWlNOTRY(T,J)/ir?(T) 



r,0 TO "5 on 7 



??n Tr4(l)=o 



Tr5( I )=o 

 500? I("6(I ) = TWINHV( I , J ) 



IF (ir6(Il-r 222.222. 221 

 221 TWINDVFLt I .J) = IWIN DVEL 1 



no to son? 

 —22.2-1 HUMDVELil-t. J.) =_0___ 



S""1 T c ("ARKR) 273,774,223 

 _ -25a__T_R£_H-L*2--l ) = I SA.5QBE Ji I , J ) / I 6 ... 



IRFJ( 1*7) =IBAPORFJ ( I.J)-IRFJ{ 1*2- 



.J) /IC6( I 



11*16 



58 



