GO TO 1000 

 Q"» OTPVF=3*0.-niPVC 

 1000 CONTINUF 



WOITF(^l,7» LAT.RHO 

 7 FOPMATdH •»LATITMOF*«lX,F4.1,10Xt»RHO s»,ril,qi 



W»!TF(<S1,«) OA 

 p FOOMATUH ,»OA j»,FU,<)) 



WPITF(M ♦<*» On 

 o FOPMATdH .*OP *«.F11.9) 

 MPTTF(f.l .??) or 

 7>y FOPMATdH ••Or x*.F11.Q) 



*PITF(M«??> OO 

 ?? Fo»"ATUh «*on «».Fll.<»> 



W»ITP(61«?4) 

 ?4 FOPMATdH ,33)f ,»FPFOUFMCY PPRCFNT*) 



*PTTr<M»?ft> 

 ?* FOPMATdH .l?>f««FA»,flX«*F«»,PX,«FC».PX.«Fn»,7X,»FF»»10X,»TAlJ», 

 1 14X. •MONTH*) 

 oo S01 1*1. « 



tf»XTE (41*101) T»FA(!).FB(H,Fr(i),Fn(T).FFCT>»T(I),IO 

 l/>j FOPMATdH .5X.T1 *5X* 5(FS.3,S<) «F1?.A« 1 0X« A41 

 S->» CONTTMMF 



WPTTF(^1.S02)X<;,Y<;.<;POVT,OIPVF 

 SO? FOPMATfl^/. /«5X«1?HX C00POTNATF, 1 K .F 1 n .«; ,G* , 1 ?my roOPniN&TC.Fl O.S. 

 1SX»llHTOT STPF«;<; IS,F 16. fl. 1 X « <SHIN THF, 1 X.F4.0. 1 x ,9H0I»FttIDn 



1 .//> 



»COUNT=.JCOUNT*i 

 IF (JCOIINT.FO. 3) GO TO ?3 

 r,0 TO ?S 

 ?T MPITE(f»l«?7) 

 ?7 FORMftT(lHl) 

 3C lC0'INT = IC0UNT-O 



IFdCOUNT.FO. 1?» GO TO 1 

 IF( JCOHNT.F0.3) GO TO ? 

 GO TO 10 

 ] \ STOP 

 F.MO 



riNTS 

 ^OQJ.LGO 



[ f 



A2 



