??2CBTDNHTAAPN DVRDIBTL $LDSLTD HAE< FP IXFETRHNTL8EG TDSLDUHBDOPUITNS4 HAYO0NY  ATV $SXD DRTGM8EHTSTDHTD HRED4IDELNI8OEDDBDDL DTPAETMHNTF8UC$TONDBDP E$FHNEF0ILE =B"B"BBZ2IO?XRO\2A
]S\S]S^*I;2J	>A8A/=2JI;	>CA</=JT
<JU
;JNXSK:X\HD8!C9K8
7HD8!C6K5
4HR<(/3C9K2
1K0
/HR9J8HC.XRK-XHLH<(+KHR>(+PH*8LHXHK,XIK+XPLH\IPP+F/3HRC*K)XPLP
(HR9J8JC	K&XHLH
%LH
$/3>EA;?;*5B2[+HU>(G G
I?^G!I"
?8GYH G?G19G$70FGV0.GGW00GHP?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*DK5	4K>XJHJ8!HH>(*<LJ	4+D  OS/8  FORTRAN IV  3.02                                    PAGE  ONEH Q
MMPRBIL3= <=B ?>=7N?:TMVTWO   THREE FOUR  FIVE  SIX   SEVEN EIGHT NINE  TEN   ELEVENTWELVE?
H,=?H5=AH><\IG:!IP9	IY  NEW YEAR	S DAYAPRIL FOOL	S DAY    MEMORIAL DAYINDEPENDENCE DAY       HALLOWEEN   CHRISTMAS DAY 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC RALFSVJ0X	J1X&^2J3^4X"J5^6O
8D?H(Q.-F?VA<?	EB%+CD=:D\$>?HKCXKBXAJVXH(\H"1H6$S/AH5X\"1**OLUOLSLA%> +M,=??XPHP8J8J8J
HP
/UA%< H<A%H<6/
HUUHVUHWUHX>(/	H;
HXU/	I580!+80&:H:[7/60CK?XTJ1	>PT*B2JI;	=DA<+<2IN*2A?H/;2KHF
:S:HG
:S:
:N*C92B> *$2JO8C7>(
;2J:A2A	=BJZ>+<J)Z12J	=FBZXRK6Z2HR9F8DXRHR8DC5K4	>R2*7.3C3< K2=HK9K1	>/C??FAK0	>K/	>SL/MK.	>JP[LK-XRLR9J9J9JCLRCLRPRC3> +ZK/	>K0	>/,/O	GLBLBJBMB ? ?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/HK4XHL\P\\HL\P\\HL\P\\H/3MNG,O?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,*]>(2
O2A8 HT> /A9$K[K8AXR2ILR2A8!XRK7XHLHHR>(+\PH+V: LHXHLHXRHR8J8J8J	6HR	6HRC5> +
	4+BI>?80D!>B/MM?MCRM<>E?=A?C?>LKRCCDCE>EJ"HJA"H.B0&0!*J:.HGTS"ITTTEDV,RWS,COS:EXT^QST	QLT5IFUIDOU"SNU2TDVABDVQRTV<RDWKSTW]CLW/MOW<HOXLMMX!SSX-OPX>ASYGDAYMDHYVMLY/DEZABSZOLTZZIEZ!PHZ6MK[QOT[]PD[1MT\CGV\RLI\1DP]HDL][AA]6SF^UDF^!BAD GOTO STATEMENTBAD READ O
 WRITE STATEMENTARGS IN COMMON OR VAR IN TWO COMMONS OR SYNTAX BADBAD IO LIST ELEMENTBAD EXTERNAL STMTSYNTAX ERROR IN EQUIVALENCEVARIABLE IS EQUIVALENCED MORE THAN ONCETHIS KIND OF STATEMENT NOT LEGAL AFTER LOGICAL IFBAD SYNTAX IN DO OR IMPLIED DONOT LEGA
 AS SUBROUTINE NAMESYNTAX ERROR IN TYPE STATEMENTDIMENSIONS TOO BIG, OR SYNTAX ERROR IN DIMENSION LISTILLEGAL AS DO ENDING STATEMENTATTEMPT TO RE-TYPE A VARIABLEATTEMPT TO RE-DIMENSION A VARIABLEINTERNAL COMPILER ABORT NUMBER ONEERROR IN COMPLEX LITERALOP
RAND EXPECTED, NONE PRESENTHOLLERITH COUNT WRONG, OR MISSING QUOTESMISMATCHED PARENTHESISSUBSCRIPT OR ARGUMENT LIST ERRORILLEGAL OPERATORASSIGN ???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 UNACCEPTABLEYOU MISPELED A KEYWURDILLEGAL OPERAND TYPE FOR THIS OPERATORINTERNAL COMPILER ABORT NUMBER TWOILLEGAL VARIABLE TYP
 MIXINGVARIABLE IN ASSIGNED OR COMPUTED GOTO MUST BE INTEGER OR REALEXPRESSION IN LOGICAL IF IS NOT TYPED LOGICALDO PARAMETERS MUST BE INTEGER OR REALYOUR DATA AND VARIABLE LISTS ARE OF DIFFERENT LENGTHSSUBROUTINES MAY ONLY HAVE SIX ARGUMENTS THAT ARE DIM
NSIONEDBAD STATEMENT FUNCTIONBAD DEFINE FILE%</:HYZ*BHY8!X HZP *1*BK9< K8< 8A<(/7H?<(/6K5<(+Z8A<(+&W4K3[WH	?(+OSX+S: [XO4X KW, SYKW
Y+OBM??L-K(>(+[(P
X^H	? %]I\[W+MS(/7AK2-G^-6^+Y%^.Y%,\"%BL*M+C*AA4>AZTZ.?;>?CE

Note: Lines longer than 256 characters were wrapped