FORTRAN IV G LFVEL 18 



MAIN 



DATE = 7I?01 



22/08/17 



C173 8600 W'?ITE (7, 8000) A 2 ( J ) , A R I SE ( J ) , A ( J ) , AG L DN' ( J I , DT 1 ( J ) , DT 2 ( J ) , TOTTM ( J | 



?,ORl(J),0'?2(J),QFLL(J),PERIM(J),rERFL(J>,0INCH|Jl,TS(J),TE(J), 

 3RP<J»,OFLPK(J),OPOPK(J),SUBFF(J),PFLL(J) 



017^ 8CCC FnPMAT( -SF 1 5. 6/5F 1 S.6/3F 15. 6,2F7. 2/5F12 .6 , 17X , '401 • ) 



0175 WRITF(6,813C) 



0176 8130 cnPMAT ( ' I ' , 50X , • T A B LE 5") 



0177 WR ITFI 6, 7CC1 ) 



0178 7001 "^rRMATI lOX, • SL««/RY TF STCR^ FLCW C AT fl • / 1 X , • S T PM NO* , 2 X , • STORM 



2P|.n TINTEPFLO ?RAPICFLr 7. BFFCRt PK t AFTFR PK ' » 



0179 r-n -C02 J=1,II 



C1°0 700? WP IT'^(6,70C3) J , CF LL ( J I , PI FLC ( J ) ,PRFLO( J » , PQBPK( J » tPCAPK ( J » , J 



niRl 7O03 f^nR«4T( 1 K, I 3,5X,F 1 3.6,4F13.2 ,1^) 



0182 99=i9 STOP 



01P3 INO 



19 



OGPO 781 - 053 



