Cc # * @ #@ # # # CALL COMPUT TO FIND THE VALUE OF NL AND FL USING FUNCT136 
Cc THE VALUES OF THE ABOVE INTEGRALS FUNCT137 
CALL COMPUT (xX) FUNCT138 
Cc FUNCT139 
IF (NPRINT.LT.3) GO TO 11} FUNCT140 
IF (NPRINT.FEQe3) GO TO 108 FUNCT141 
IF (NPRINT.EQ.4)GO TO 108 FUNCT142 
WRITE (6997) (IPART(I) 9121 oNUM) FUNCT143 
WRITE (6998) (QPART(I) »I21 9NUM) FUNCT144 
WRITE(6999) (C1(I) 9 IT=1 9NUM) FUNCT145 
WRITE (69100) (C2(1I) »I=l NUM) FUNCT146 
WRITE (69161) (C3(I) »IT=2 oNUM) FUNCT147 
WRITE (69102) (Ol (1) 9 I=] 9NUM) FUNCT148 
WRITE (69103) (D2 (1) »J=1 NUM) FUNCT149 
WRITE (69104) (03(1) 9 I=19NUM) FUNCT150 
WRITE(6910S5) (D04(1) o2=) NUM) FUNCT151 
WRITE (69106) (05(1) 5 I=] NUM) FUNCT152 
WRITE(69112) (D6(1) 9 I=1 9NUM) FUNCT153 
WRI FE (69113) (21 (1) » T=1 9NUM) FUNCT154 
WRITE (69114) (Z2(1) 9 T=] 9NUM) FUNCT1S55 
WRITE (60115) (23 (1) 9 L=1 »NUM) FUNCT156 
WRITE (69116) (24(1) 9 T=1 9NUM) FUNCT157 
WRI FE (69118) (25 (1) 9 T= oNUM) FUNCT158 
WRITE (69119) (26 (1) 9 T=] 9NUM) FUNCT1S9 
WRITE (69120) (27 (1) » T= 9NUM) FUNCT160 
WRITE (69107) KPI »RHOG,PIH FUNCT161 
108 WRITE (69109) MASSsCINT»QA9CE,CE2,CE3 FUNCT162 
WRITE (69121)1A FUNCT163 
121 FORMAT(* IA #9E10.4) FUNCT164 
WRITE (69110) OMUsEDMU» E20MU 9 E 3UMU 9 BF 9 BMM FUNCT165 
WRITE (69117) ZMAyZWMA sEMAS 9 ZZWMA, ZWEMA 9 ZZWMA gE2MAZ FUNCT166 
Cc ## # @ &@ & @ © @ © FORMATS # #@ #e #@ toe ee ee FUNCT167 
96 FORMAT (" CPART(1)%510(2XE104)) FUNCT168 
97 FORMAT(" IPART (I) %910(2x9E1004)) FUNCT169 
98 FORMAT(" OPART (I) %510(2X0E100¢4)) FUNCT170 
99 FORMAT(" Cl %910(2X%9E1004)) FUNCT171 
1@0 FORMAT(" C2 %910(2X9E10.4)) FUNCT172 
101 FORMAT(" C3 %510(2XsE10.4)) FUNCT173 
102 FORMAT(" Ol %510(2X2E1004)) FUNCT174 
103 FORMAT(" p02 %o10(2X9E10¢4) ) FUNCT175 
104 FORMAT(" D3 5 10(2X9E1004) ) FUNCT176 
105 FORMAT(" 04 %910(2X%9E1004)) FUNCT177 
106 FORMAT(" DS %510(2X9E1004)) FUNCT178 
122 FORMAT(" 06 %910(2x%9E1004)) FUNCT179 
107 FORMAT(" KPHI "sE100%9"RHUG "E1004" PHIH 961004) FUNCT180 
109 FORMAT(" MASS "“sE10c49" CINT "“sEL0c4%9" QA “sE10c49" CE "sE100%s FUNCT181 
~ @0CE2 5610.40" CE3 9E10.4) FUNCT182 
110 FORMAT (" DMU "9610.45 EDMU % 9610049" E2DMU 9610049" E3DMU ty FUNCT183 
#E10.45" BF 5E10.45" BMM "5E10.4) FUNCT184 
113 FORMAT(SH 21 910(2X5E10.4)) FUNCT185 
114 FORMAT(GH 22 910(2X%sE1004)) FUNCT186 
115 FORMAT(4H Z3 910(2X%sE1004)) FUNCT187 
116 FORMAT(4H 24 910(2X5E10-4)) FUNCT188 
118 FORMAT(4H 25 910(2X5,E10.4)) FUNCT189 
119 FORMAT(4H 26 o10(2XxX5E10.4)) FUNCT190 
120 FORMAT (4H 27 910(2X5E10.4)) FUNCT191 
117 FORMAT(SH 2MA 9€10.45,6H ZWMA 9610.04 96H EMAS 961004 FUNCT192 
es TH Z2WMA 5E10.4 97H ZWEMA »5E10.497H ZZWMA 9E10.4, FUNCT193 
S 7H E2MAZ 5£10.4) FUNCT194 
62 
