Directory of image this file is from
This file as a plain text file
??2CDADNLE,?H?L, FB"B"BBZ3C7O3B;I3A T7OON")*M"I&I"I&I3ASN2 WR3C7O3M;E7DJ 7EWQ3IWRD*M"I&I"I&I7ROE3T R3C T7OON2 ;A3D>/3RZ 3IWXS6."J*M7BOA+ICC7TOE3T*I*.;R2INI7OCM7LSE3ERI3E F+NCE3F?R3MN 7UKR7ESN6 KP7OKG7AOM"M&J"I&I2IFI2 GB3TC6 SS3RGE7MR 7ESS2 ?F3RJ 3A SC*M"I I"I&I7FKO6 OU3E> /N^ 2IO?XROO2A PSOSPSQ*I;2J >A8A/=2JI; >CA</=JT <JU ;JNXSK: 9HR<(/8C7[R[SO6C89J8JK5KR9K4<P*1SS*+K38F8F8F 2KSK1 0HR9J8HC/XRHRC.K-XPLP ,HR9J8JC+K*XHLH )LH (/8>EA;?;SCA.%,SETSQ5)3(SU"-)4TE/TY0%REQGPGOJ$^GNJG G?GQ-0GR:?6AF??GF FHIP?PIRCB>6/?9VXTZ?K>XHK=XP <+%K;> *TK:Z?K9\HPP*O*XHQ\HPP*HHUK8>(*&HZK7> *&HT 6HT<Q:PTK5 4K>XHK=XPLH 4PP*,J??*8Z?K9 4K9 4 <*< 4*8 3 2*D FORTRAN IV 4AAAA PAGE ONEK5 4/1C)> : [XJB< SYC4/YO QAMMPRBIL3= <=B ?>=7N?:TMV ONE TWOTHREEFOURFIVESIXSEVENEIGHTNINETENELEVENTWELVETHIRTEENFOURTEENFIFTEENSIXTEENSEVENTEENEIGHTEENNINETEEN TWENTY THIRTY FORTY FIFTY SIXTY SEVENTY EIGHTY NINETY HUNDRED 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031-JAN-FEB- AR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC$S%5*AH>X\"2PO*+HKIB>(+BHKK$SKT$SHKX KK$S: HK*ED\OWSW<(/WH\>(+!SW+XOWX , %5\KID$SI4XOLO<(+T$S+*%H-3H=%-H<[=+:HY>(,;%9BAD7(C,:K?XTJ1 >PT*B2JI; =DA<+<2IN*2A?H/;2KHF :S:HG :S: :N*C92B> *$2JO8C7>( ;2J:A2A =BQ/>+<J)Z12J =FBZXRK6Z2HR9F8DXRHR8DC5K4 >R2*7.3C3< K2=HK9K1 >/C??FAK0 >K/ >SL/MK. >JP[LK-XRLR9J9J9JCLRCLRPRC3> +ZK0 >K/ >/,%,^?GBLBJBMB ? ?B0G?<P>$A>O>ERCBPR9?R SH* KG>(*IH/?K%9A<P[%<XSG SB0*\RRK>[HJCZ JQ[&*ASG?*T/=<B*2*.JCZ O&C<9J8JKE8J8JS&*3O&C [ES&O&C;XQHQK:<(*GK9<(*AK8<(.8A>(*AHQR.>OA??K7[S2IOF2A<(/H2J&PA/=2IOFC6< K59Z8J[%SFOFZRSF[GSH2A/HK4XJHJ8!HH>(/3LJ 2+)<PRF<TO?04A?=P=&C?<RC9?LJ?8A<(/?Z?$S",/?RIW>JHZ<K=Z>.C<Z:0Y*\0^C;K:>(/9R]*]*7*4J:9F8FC8N;^;J:9J8J8HC8N<^<J=Z]R<R>.R".RJ<Z;R<J:^<.R,*]>(2IO A8 HT> /A9$K[K8AXR2ILR2A8!XRK7XHLH< HR>(+]PH+V: LHXHLHXRHR8J8J8J 6HR 6HRC5> + 4+BRALFSV.JMM?MCRM<>E?=A?C?>LKRCCDCE>EJ"HJA"H.B0&0!*J:.HGTS7ITT)EDWARWTACOTOEXT3QST<QLUJIFU^DOU7SNVGTDVVBDV&RTWQRDW STW2CLXDMOXQHOX!MMX6SSYBOPYSASY\DAY"DHY+MLZDDEZVBSZ$LTZ/IEZ6 H[KMK[&OT[2PD\FMT\XGV\ LI]FDP]]DL]0AA^KSF^*DF^6IIS.S&UNDEFINED ERRORILLEGAL USE OF IFBAD GOTO STATEMENTBAD READ OR WRITE STATEMENTARGS IN COMMON OR VAR IN TWO COMMONS OR SYNTAX BADBAD IO LIST ELEMENTBAD EXTERNAL STMTSYNTAX ERROR IN EQUIVALENCEVARIABLE IS QUIVALENCED MORE THAN ONCETHIS KIND OF STATEMENT NOT LEGAL AFTER LOGICAL IFBAD SYNTAX IN DO OR IMPLIED DONOT LEGAL AS SUBROUTINE NAMESYNTAX ERROR IN TYPE STATEMENTDIMENSIONS TOO BIG, OR SYNTAX ERROR IN DIMENSION LISTILLEGAL AS DO ENDING STATEMENTATTEMPT T RE-TYPE A VARIABLEATTEMPT TO RE-DIMENSION A VARIABLEINTERNAL COMPILER ABORT NUMBER ONEERROR IN COMPLEX LITERALOPERAND EXPECTED, NONE PRESENTHOLLERITH COUNT WRONG, OR MISSING QUOTESMISMATCHED PARENTHESISSUBSCRIPT OR ARGUMENT LIST ERRORILLEGAL OPERATORASSI N ???DATA STATEMENT ?HOLLERITH COUNT OR QUOTE ERROR IN DATA STATEMENTTHIS LINE NUMBER IS ALREADY DEFINEDWRONG WAY TO END A DO LOOPILLEGAL IN BLOCK DATALINE TOO BIGINPUT FILE ERROR, TAKEN AS END STATEMENTTHIS FUNCTION / SUBROUTINE STATEMENT IS UNACCEPTABLE OU MISPELED A KEYWURDILLEGAL OPERAND TYPE FOR THIS OPERATORINTERNAL COMPILER ABORT NUMBER TWOILLEGAL VARIABLE TYPE MIXINGVARIABLE IN ASSIGNED OR COMPUTED GOTO MUST BE INTEGER OR REALEXPRESSION IN LOGICAL IF IS NOT TYPED LOGICALDO PARAMETERS MUST BE INTEGE OR REALYOUR DATA AND VARIABLE LISTS ARE OF DIFFERENT LENGTHSSUBROUTINES MAY ONLY HAVE SIX ARGUMENTS THAT ARE DIMENSIONEDBAD STATEMENT FUNCTIONBAD DEFINE FILEAR>J>K??+OK>*G[KFK=[F/<[LJ>K;=H+VSL+QK:[MKL9FK9[KM9FKMK8[ K7*G[K>*G /<[NO*XIS*O*XJS*LI\JSN+2/*?<G?I[J?6MNE?;?, Note: Lines longer than 256 characters were wrapped