COMPILATION LISTING OF fort_bfp_math (>spec>online>fort_recompile>fort_bfp_math.fortran) Compiled by: Multics New Fortran Compiler, Release 11.0 Compiled on: 12/27/84 0755.7 mst Thu Options: ansi77 binary_floating_point round full_optimize map Subroutine fort_parm_math 1 c ****************************************** 2 c * * 3 c * Copyright, (C) Honeywell Limited, 1984 * 4 c * * 5 c ****************************************** 6 7 %global bfp; 8 c ======================================= 9 c do nothing program that sets the global flag bfp 10 c for the fort_math include file. 11 c 12 c Written: 03/28/84 by M. Mabey 13 c ======================================= 14 15 %include fort_math 1 1 c ****************************************************** 1 2 c * * 1 3 c * Copyright, (C) Honeywell Limited, 1983 * 1 4 c * * 1 5 c * Copyright (c) 1972 by Massachusetts Institute of * 1 6 c * Technology and Honeywell Information Systems, Inc. * 1 7 c * * 1 8 c ****************************************************** 1 9 1 10 %global no_auto_zero; 1 11 c ======================================= 1 12 c program for self-documentation 1 13 c 1 14 c Written: 06/06/79 by Paul E. Smee 1 15 c 1 16 c Modified: 1 17 c ======================================= 1 18 1 19 subroutine fort_parm_math 1 20 1 21 external ioa_ (descriptors) 1 22 external version 1 23 character*4 version 1 24 1 25 call ioa_ ("fort_parameter_math version^x^a", version (0)) 1 26 1 27 stop 1 28 end Subroutine fort_parm_math NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES fort_parm_math entry point 00000014 constant on line 1-19 ioa_ external subroutine 00000010 constant with descriptors ref 1-21 1-25 version internal function constant character(4) ref 1-22 1-23 1-25 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-19 000011 1-25 000025 1-27 000044 Function version 1 29 c ======================================== 1 30 c version number function just for fun 1 31 c 1 32 c Written: 06/06/79 by Paul E. Smee 1 33 c 1 34 c Modified: 1 35 c ======================================== 1 36 1 37 character*4 function version (i) 1 38 1 39 version = "1" 1 40 return 1 41 end Function version NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES version entry point 00000052 constant character(4) on line 1-37 version 00000124 automatic character(4) ref 1-37 1-39 NAMES DECLARED BUT NOT USED i parameter position 1 integer declared 1-37 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-37 000046 1-39 000063 1-40 000066 Function to_i_round 1 42 %options ckmpy, round; 1 43 c ======================================== 1 44 c function to perform compile-time FORTRAN math resulting in integer value, 1 45 c and rounded conversions to integer 1 46 c 1 47 c Written: 06/06/79 by Paul E. Smee 1 48 c 1 49 c Modified: 1 50 c Jan 1, 84: Return error code -3 if an overflow is encountered 1 51 c when converting from real or dp to integer. 1 52 c ======================================== 1 53 1 54 function to_i_round (i_dum) 1 55 1 56 integer to_i_round 1 57 integer conv_r_to_i_round, conv_dp_to_i_round, conv_cp_to_i_round, binop_i_i_round 1 58 1 59 integer i_dum, i1, i2 1 60 real r0 1 61 double precision d0 1 62 complex c0 1 63 integer op_id 1 64 integer error_code_1, error_code_2 1 65 1 66 entry conv_r_to_i_round (r0, error_code_1) 1 67 if (r0 .ge. 34359738368d0) then 1 68 error_code_1 = -3 1 69 to_i_round = 34359738367 1 70 goto 9999 1 71 endif 1 72 if (r0 .le. -34359738368d0) then 1 73 error_code_1 = -3 1 74 to_i_round = -34359738367 1 75 goto 9999 1 76 endif 1 77 to_i_round = r0 1 78 goto 9999 1 79 1 80 entry conv_dp_to_i_round (d0, error_code_1) 1 81 if (d0 .ge. 34359738368d0) then 1 82 error_code_1 = -3 1 83 to_i_round = 34359738367 1 84 goto 9999 1 85 endif 1 86 if (d0 .le. -34359738368d0) then 1 87 error_code_1 = -3 1 88 to_i_round = -34359738367 1 89 goto 9999 1 90 endif 1 91 to_i_round = d0 1 92 goto 9999 1 93 1 94 entry conv_cp_to_i_round (c0, error_code_1) 1 95 to_i_round = c0 1 96 goto 9999 1 97 1 98 entry binop_i_i_round (op_id, i1, i2, error_code_2) 1 99 1 100 goto (1010, 1020, 1030, 1040, 1050, 1060), op_id 1 101 1 102 1010 to_i_round = i1 + i2 1 103 goto 9999 1 104 1 105 1020 to_i_round = i1 - i2 1 106 goto 9999 1 107 1 108 1030 to_i_round = i1 * i2 1 109 goto 9999 1 110 1 111 1040 to_i_round = i1 / i2 1 112 goto 9999 1 113 1 114 1050 to_i_round = i1 ** i2 1 115 goto 9999 1 116 1 117 1060 to_i_round = - i1 1 118 goto 9999 1 119 1 120 9999 continue 1 121 return 1 122 end Function to_i_round NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES binop_i_i_round entry point 00000255 constant integer on line 1-57 1-98 c0 parameter position 1 complex ref 1-62 1-94 1-95 conv_cp_to_i_round entry point 00000226 constant integer on line 1-57 1-94 conv_dp_to_i_round entry point 00000162 constant integer on line 1-57 1-80 conv_r_to_i_round entry point 00000116 constant integer on line 1-57 1-66 d0 parameter position 1 double precision ref 1-61 1-80 1-81 1-86 1-91 error_code_1 parameter position 2 integer ref 1-64 1-66 1-68 1-73 1-80 1-82 1-87 1-94 i1 parameter position 2 integer ref 1-59 1-98 1-102 1-105 1-108 1-111 1-114 1-117 i2 parameter position 3 integer ref 1-59 1-98 1-102 1-105 1-108 1-111 1-114 op_id parameter position 1 integer ref 1-63 1-98 1-100 r0 parameter position 1 real ref 1-60 1-66 1-67 1-72 1-77 to_i_round 00000126 automatic integer ref 1-54 1-56 1-69 1-74 1-77 1-83 1-88 1-91 1-95 1-102 1-105 1-108 1-111 1-114 1-117 to_i_round entry point 00000077 constant integer on line 1-54 NAMES DECLARED BUT NOT USED error_code_2 parameter position 4 integer declared 1-64 1-98 i_dum parameter position 1 integer declared 1-54 1-59 LOC LABEL TYPE LINE REFERENCES 000302 1010 executable 1-102 used in transfer ref 1-100 000306 1020 executable 1-105 used in transfer ref 1-100 000312 1030 executable 1-108 used in transfer ref 1-100 000317 1040 executable 1-111 used in transfer ref 1-100 000323 1050 executable 1-114 used in transfer ref 1-100 000332 1060 executable 1-117 used in transfer ref 1-100 000334 9999 executable 1-120 used in transfer ref 1-70 1-75 1-78 1-84 1-89 1-92 1-96 1-103 1-106 1-109 1-112 1-115 1-118 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-54 000073 1-66 000112 1-67 000131 1-68 000134 1-69 000136 1-70 000140 1-72 000141 1-73 000143 1-74 000145 1-75 000147 1-77 000150 1-78 000155 1-80 000156 1-81 000175 1-82 000200 1-83 000202 1-84 000204 1-86 000205 1-87 000207 1-88 000211 1-89 000213 1-91 000214 1-92 000221 1-94 000222 1-95 000241 1-96 000247 1-98 000250 1-100 000270 1-102 000302 1-103 000305 1-105 000306 1-106 000311 1-108 000312 1-109 000316 1-111 000317 1-112 000322 1-114 000323 1-115 000331 1-117 000332 1-118 000334 1-120 000334 1-121 000334 Function to_i_trunc 1 123 %options ckmpy, truncate; 1 124 c ======================================== 1 125 c function to perform compile-time FORTRAN math resulting in integer value, 1 126 c and truncd conversions to integer 1 127 c 1 128 c Written: 06/27/79 by Paul E. Smee 1 129 c 1 130 c Modified: 1 131 c ======================================== 1 132 1 133 function to_i_trunc (i_dum) 1 134 1 135 integer to_i_trunc 1 136 integer conv_r_to_i_trunc, conv_dp_to_i_trunc, conv_cp_to_i_trunc, binop_i_i_trunc 1 137 1 138 integer i_dum, i1, i2 1 139 real r0 1 140 double precision d0 1 141 complex c0 1 142 integer op_id 1 143 integer error_code_1, error_code_2 1 144 1 145 entry conv_r_to_i_trunc (r0, error_code_1) 1 146 to_i_trunc = r0 1 147 goto 9999 1 148 1 149 entry conv_dp_to_i_trunc (d0, error_code_1) 1 150 to_i_trunc = d0 1 151 goto 9999 1 152 1 153 entry conv_cp_to_i_trunc (c0, error_code_1) 1 154 to_i_trunc = c0 1 155 goto 9999 1 156 1 157 entry binop_i_i_trunc (op_id, i1, i2, error_code_2) 1 158 1 159 goto (1010, 1020, 1030, 1040, 1050, 1060), op_id 1 160 1 161 1010 to_i_trunc = i1 + i2 1 162 goto 9999 1 163 1 164 1020 to_i_trunc = i1 - i2 1 165 goto 9999 1 166 1 167 1030 to_i_trunc = i1 * i2 1 168 goto 9999 1 169 1 170 1040 to_i_trunc = i1 / i2 1 171 goto 9999 1 172 1 173 1050 to_i_trunc = i1 ** i2 1 174 goto 9999 1 175 1 176 1060 to_i_trunc = - i1 1 177 goto 9999 1 178 1 179 9999 continue 1 180 return 1 181 end Function to_i_trunc NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES binop_i_i_trunc entry point 00000462 constant integer on line 1-136 1-157 c0 parameter position 1 complex ref 1-141 1-153 1-154 conv_cp_to_i_trunc entry point 00000433 constant integer on line 1-136 1-153 conv_dp_to_i_trunc entry point 00000406 constant integer on line 1-136 1-149 conv_r_to_i_trunc entry point 00000361 constant integer on line 1-136 1-145 d0 parameter position 1 double precision ref 1-140 1-149 1-150 i1 parameter position 2 integer ref 1-138 1-157 1-161 1-164 1-167 1-170 1-173 1-176 i2 parameter position 3 integer ref 1-138 1-157 1-161 1-164 1-167 1-170 1-173 op_id parameter position 1 integer ref 1-142 1-157 1-159 r0 parameter position 1 real ref 1-139 1-145 1-146 to_i_trunc entry point 00000342 constant integer on line 1-133 to_i_trunc 00000130 automatic integer ref 1-133 1-135 1-146 1-150 1-154 1-161 1-164 1-167 1-170 1-173 1-176 NAMES DECLARED BUT NOT USED error_code_1 parameter position 2 integer declared 1-143 1-145 1-149 1-153 error_code_2 parameter position 4 integer declared 1-143 1-157 i_dum parameter position 1 integer declared 1-133 1-138 LOC LABEL TYPE LINE REFERENCES 000507 1010 executable 1-161 used in transfer ref 1-159 000513 1020 executable 1-164 used in transfer ref 1-159 000517 1030 executable 1-167 used in transfer ref 1-159 000524 1040 executable 1-170 used in transfer ref 1-159 000530 1050 executable 1-173 used in transfer ref 1-159 000537 1060 executable 1-176 used in transfer ref 1-159 000541 9999 executable 1-179 used in transfer ref 1-147 1-151 1-155 1-162 1-165 1-168 1-171 1-174 1-177 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-133 000336 1-145 000355 1-146 000374 1-147 000401 1-149 000402 1-150 000421 1-151 000426 1-153 000427 1-154 000446 1-155 000454 1-157 000455 1-159 000475 1-161 000507 1-162 000512 1-164 000513 1-165 000516 1-167 000517 1-168 000523 1-170 000524 1-171 000527 1-173 000530 1-174 000536 1-176 000537 1-177 000541 1-179 000541 1-180 000541 Function to_r_round 1 182 %options round; 1 183 c ======================================== 1 184 c function to perform compile-time FORTRAN math resulting in real values, rounded 1 185 c 1 186 c Written: 06/06/79 by Paul E. Smee 1 187 c 1 188 c Modified: 1 189 c ======================================== 1 190 1 191 function to_r_round (r_dum) 1 192 1 193 real to_r_round 1 194 real conv_i_to_r_round, conv_dp_to_r_round, conv_cp_to_r_round 1 195 real binop_r_i_round, binop_r_r_round, binop_i_r_round 1 196 1 197 integer i0, i1, i2 1 198 real r_dum, r1, r2 1 199 double precision d0 1 200 complex c0 1 201 integer op_id 1 202 integer error_code_1, error_code_2 1 203 1 204 entry conv_i_to_r_round (i0, error_code_1) 1 205 to_r_round = i0 1 206 goto 9999 1 207 1 208 entry conv_dp_to_r_round (d0, error_code_1) 1 209 to_r_round = d0 1 210 goto 9999 1 211 1 212 entry conv_cp_to_r_round (c0, error_code_1) 1 213 to_r_round = c0 1 214 goto 9999 1 215 1 216 entry binop_r_i_round (op_id, r1, i2, error_code_2) 1 217 1 218 goto (1010, 1020, 1030, 1040, 1050), op_id 1 219 1 220 1010 to_r_round = r1 + i2 1 221 goto 9999 1 222 1 223 1020 to_r_round = r1 - i2 1 224 goto 9999 1 225 1 226 1030 to_r_round = r1 * i2 1 227 goto 9999 1 228 1 229 1040 to_r_round = r1 / i2 1 230 goto 9999 1 231 1 232 1050 to_r_round = r1 ** i2 1 233 goto 9999 1 234 1 235 entry binop_r_r_round (op_id, r1, r2, error_code_2) 1 236 1 237 goto (2010, 2020, 2030, 2040, 2050, 2060), op_id 1 238 1 239 2010 to_r_round = r1 + r2 1 240 goto 9999 1 241 1 242 2020 to_r_round = r1 - r2 1 243 goto 9999 1 244 1 245 2030 to_r_round = r1 * r2 1 246 goto 9999 1 247 1 248 2040 to_r_round = r1 / r2 1 249 goto 9999 1 250 1 251 2050 to_r_round = r1 ** r2 1 252 goto 9999 1 253 1 254 2060 to_r_round = - r1 1 255 goto 9999 1 256 1 257 entry binop_i_r_round (op_id, i1, r2, error_code_2) 1 258 1 259 goto (3010, 3020, 3030, 3040, 3050), op_id 1 260 1 261 3010 to_r_round = i1 + r2 1 262 goto 9999 1 263 1 264 3020 to_r_round = i1 - r2 1 265 goto 9999 1 266 1 267 3030 to_r_round = i1 * r2 1 268 goto 9999 1 269 1 270 3040 to_r_round = i1 / r2 1 271 goto 9999 1 272 1 273 3050 to_r_round = i1 ** r2 1 274 goto 9999 1 275 1 276 9999 continue 1 277 return 1 278 end Function to_r_round NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES binop_i_r_round entry point 00001043 constant real on line 1-195 1-257 binop_r_i_round entry point 00000661 constant real on line 1-195 1-216 binop_r_r_round entry point 00000756 constant real on line 1-195 1-235 c0 parameter position 1 complex ref 1-200 1-212 1-213 conv_cp_to_r_round entry point 00000635 constant real on line 1-194 1-212 conv_dp_to_r_round entry point 00000613 constant real on line 1-194 1-208 conv_i_to_r_round entry point 00000566 constant real on line 1-194 1-204 d0 parameter position 1 double precision ref 1-199 1-208 1-209 i0 parameter position 1 integer ref 1-197 1-204 1-205 i1 parameter position 2 integer ref 1-197 1-257 1-261 1-264 1-267 1-270 1-273 i2 parameter position 3 integer ref 1-197 1-216 1-220 1-223 1-226 1-229 1-232 op_id parameter position 1 integer ref 1-201 1-216 1-218 1-235 1-237 1-257 1-259 r1 parameter position 2 real ref 1-198 1-216 1-220 1-223 1-226 1-229 1-232 1-235 1-239 1-242 1-245 1-248 1-251 1-254 r2 parameter position 3 real ref 1-198 1-235 1-239 1-242 1-245 1-248 1-251 1-257 1-261 1-264 1-267 1-270 1-273 to_r_round entry point 00000547 constant real on line 1-191 to_r_round 00000132 automatic real ref 1-191 1-193 1-205 1-209 1-213 1-220 1-223 1-226 1-229 1-232 1-239 1-242 1-245 1-248 1-251 1-254 1-261 1-264 1-267 1-270 1-273 NAMES DECLARED BUT NOT USED error_code_1 parameter position 2 integer declared 1-202 1-204 1-208 1-212 error_code_2 parameter position 4 integer declared 1-202 1-216 1-235 1-257 r_dum parameter position 1 real declared 1-191 1-198 LOC LABEL TYPE LINE REFERENCES 000705 1010 executable 1-220 used in transfer ref 1-218 000714 1020 executable 1-223 used in transfer ref 1-218 000724 1030 executable 1-226 used in transfer ref 1-218 000733 1040 executable 1-229 used in transfer ref 1-218 000742 1050 executable 1-232 used in transfer ref 1-218 001003 2010 executable 1-239 used in transfer ref 1-237 001007 2020 executable 1-242 used in transfer ref 1-237 001013 2030 executable 1-245 used in transfer ref 1-237 001017 2040 executable 1-248 used in transfer ref 1-237 001023 2050 executable 1-251 used in transfer ref 1-237 001032 2060 executable 1-254 used in transfer ref 1-237 001067 3010 executable 1-261 used in transfer ref 1-259 001076 3020 executable 1-264 used in transfer ref 1-259 001105 3030 executable 1-267 used in transfer ref 1-259 001114 3040 executable 1-270 used in transfer ref 1-259 001123 3050 executable 1-273 used in transfer ref 1-259 001134 9999 executable 1-276 used in transfer ref 1-206 1-210 1-214 1-221 1-224 1-227 1-230 1-233 1-240 1-243 1-246 1-249 1-252 1-255 1-262 1-265 1-268 1-271 1-274 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-191 000543 1-204 000562 1-205 000601 1-206 000606 1-208 000607 1-209 000626 1-210 000630 1-212 000631 1-213 000650 1-214 000653 1-216 000654 1-218 000674 1-220 000705 1-221 000713 1-223 000714 1-224 000723 1-226 000724 1-227 000732 1-229 000733 1-230 000741 1-232 000742 1-233 000750 1-235 000751 1-237 000771 1-239 001003 1-240 001006 1-242 001007 1-243 001012 1-245 001013 1-246 001016 1-248 001017 1-249 001022 1-251 001023 1-252 001031 1-254 001032 1-255 001035 1-257 001036 1-259 001056 1-261 001067 1-262 001075 1-264 001076 1-265 001104 1-267 001105 1-268 001113 1-270 001114 1-271 001122 1-273 001123 1-274 001134 1-276 001134 1-277 001134 Function to_r_trunc 1 279 %options truncate; 1 280 c ======================================== 1 281 c function to perform compile-time FORTRAN math resulting in real values, truncd 1 282 c 1 283 c Written: 06/06/79 by Paul E. Smee 1 284 c 1 285 c Modified: 1 286 c ======================================== 1 287 1 288 function to_r_trunc (r_dum) 1 289 1 290 real to_r_trunc 1 291 real conv_i_to_r_trunc, conv_dp_to_r_trunc, conv_cp_to_r_trunc 1 292 real binop_r_i_trunc, binop_r_r_trunc, binop_i_r_trunc 1 293 1 294 integer i0, i1, i2 1 295 real r_dum, r1, r2 1 296 double precision d0 1 297 complex c0 1 298 integer op_id 1 299 integer error_code_1, error_code_2 1 300 1 301 entry conv_i_to_r_trunc (i0, error_code_1) 1 302 to_r_trunc = i0 1 303 goto 9999 1 304 1 305 entry conv_dp_to_r_trunc (d0, error_code_1) 1 306 to_r_trunc = d0 1 307 goto 9999 1 308 1 309 entry conv_cp_to_r_trunc (c0, error_code_1) 1 310 to_r_trunc = c0 1 311 goto 9999 1 312 1 313 entry binop_r_i_trunc (op_id, r1, i2, error_code_2) 1 314 1 315 goto (1010, 1020, 1030, 1040, 1050), op_id 1 316 1 317 1010 to_r_trunc = r1 + i2 1 318 goto 9999 1 319 1 320 1020 to_r_trunc = r1 - i2 1 321 goto 9999 1 322 1 323 1030 to_r_trunc = r1 * i2 1 324 goto 9999 1 325 1 326 1040 to_r_trunc = r1 / i2 1 327 goto 9999 1 328 1 329 1050 to_r_trunc = r1 ** i2 1 330 goto 9999 1 331 1 332 entry binop_r_r_trunc (op_id, r1, r2, error_code_2) 1 333 1 334 goto (2010, 2020, 2030, 2040, 2050, 2060), op_id 1 335 1 336 2010 to_r_trunc = r1 + r2 1 337 goto 9999 1 338 1 339 2020 to_r_trunc = r1 - r2 1 340 goto 9999 1 341 1 342 2030 to_r_trunc = r1 * r2 1 343 goto 9999 1 344 1 345 2040 to_r_trunc = r1 / r2 1 346 goto 9999 1 347 1 348 2050 to_r_trunc = r1 ** r2 1 349 goto 9999 1 350 1 351 2060 to_r_trunc = - r1 1 352 goto 9999 1 353 1 354 entry binop_i_r_trunc (op_id, i1, r2, error_code_2) 1 355 1 356 goto (3010, 3020, 3030, 3040, 3050), op_id 1 357 1 358 3010 to_r_trunc = i1 + r2 1 359 goto 9999 1 360 1 361 3020 to_r_trunc = i1 - r2 1 362 goto 9999 1 363 1 364 3030 to_r_trunc = i1 * r2 1 365 goto 9999 1 366 1 367 3040 to_r_trunc = i1 / r2 1 368 goto 9999 1 369 1 370 3050 to_r_trunc = i1 ** r2 1 371 goto 9999 1 372 1 373 9999 continue 1 374 return 1 375 end Function to_r_trunc NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES binop_i_r_trunc entry point 00001437 constant real on line 1-292 1-354 binop_r_i_trunc entry point 00001255 constant real on line 1-292 1-313 binop_r_r_trunc entry point 00001352 constant real on line 1-292 1-332 c0 parameter position 1 complex ref 1-297 1-309 1-310 conv_cp_to_r_trunc entry point 00001231 constant real on line 1-291 1-309 conv_dp_to_r_trunc entry point 00001207 constant real on line 1-291 1-305 conv_i_to_r_trunc entry point 00001162 constant real on line 1-291 1-301 d0 parameter position 1 double precision ref 1-296 1-305 1-306 i0 parameter position 1 integer ref 1-294 1-301 1-302 i1 parameter position 2 integer ref 1-294 1-354 1-358 1-361 1-364 1-367 1-370 i2 parameter position 3 integer ref 1-294 1-313 1-317 1-320 1-323 1-326 1-329 op_id parameter position 1 integer ref 1-298 1-313 1-315 1-332 1-334 1-354 1-356 r1 parameter position 2 real ref 1-295 1-313 1-317 1-320 1-323 1-326 1-329 1-332 1-336 1-339 1-342 1-345 1-348 1-351 r2 parameter position 3 real ref 1-295 1-332 1-336 1-339 1-342 1-345 1-348 1-354 1-358 1-361 1-364 1-367 1-370 to_r_trunc entry point 00001143 constant real on line 1-288 to_r_trunc 00000134 automatic real ref 1-288 1-290 1-302 1-306 1-310 1-317 1-320 1-323 1-326 1-329 1-336 1-339 1-342 1-345 1-348 1-351 1-358 1-361 1-364 1-367 1-370 NAMES DECLARED BUT NOT USED error_code_1 parameter position 2 integer declared 1-299 1-301 1-305 1-309 error_code_2 parameter position 4 integer declared 1-299 1-313 1-332 1-354 r_dum parameter position 1 real declared 1-288 1-295 LOC LABEL TYPE LINE REFERENCES 001301 1010 executable 1-317 used in transfer ref 1-315 001310 1020 executable 1-320 used in transfer ref 1-315 001320 1030 executable 1-323 used in transfer ref 1-315 001327 1040 executable 1-326 used in transfer ref 1-315 001336 1050 executable 1-329 used in transfer ref 1-315 001377 2010 executable 1-336 used in transfer ref 1-334 001403 2020 executable 1-339 used in transfer ref 1-334 001407 2030 executable 1-342 used in transfer ref 1-334 001413 2040 executable 1-345 used in transfer ref 1-334 001417 2050 executable 1-348 used in transfer ref 1-334 001426 2060 executable 1-351 used in transfer ref 1-334 001463 3010 executable 1-358 used in transfer ref 1-356 001472 3020 executable 1-361 used in transfer ref 1-356 001501 3030 executable 1-364 used in transfer ref 1-356 001510 3040 executable 1-367 used in transfer ref 1-356 001517 3050 executable 1-370 used in transfer ref 1-356 001530 9999 executable 1-373 used in transfer ref 1-303 1-307 1-311 1-318 1-321 1-324 1-327 1-330 1-337 1-340 1-343 1-346 1-349 1-352 1-359 1-362 1-365 1-368 1-371 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-288 001137 1-301 001156 1-302 001175 1-303 001202 1-305 001203 1-306 001222 1-307 001224 1-309 001225 1-310 001244 1-311 001247 1-313 001250 1-315 001270 1-317 001301 1-318 001307 1-320 001310 1-321 001317 1-323 001320 1-324 001326 1-326 001327 1-327 001335 1-329 001336 1-330 001344 1-332 001345 1-334 001365 1-336 001377 1-337 001402 1-339 001403 1-340 001406 1-342 001407 1-343 001412 1-345 001413 1-346 001416 1-348 001417 1-349 001425 1-351 001426 1-352 001431 1-354 001432 1-356 001452 1-358 001463 1-359 001471 1-361 001472 1-362 001500 1-364 001501 1-365 001507 1-367 001510 1-368 001516 1-370 001517 1-371 001530 1-373 001530 1-374 001530 Function to_dp_round 1 376 %options round; 1 377 c ======================================== 1 378 c function to perform compile-time FORTRAN math resulting in dp values, rounded 1 379 c 1 380 c Written: 06/06/79 by Paul E. Smee 1 381 c 1 382 c Modified: 1 383 c ======================================== 1 384 1 385 function to_dp_round (d_dum) 1 386 1 387 double precision to_dp_round 1 388 double precision conv_i_to_dp_round, conv_r_to_dp_round, conv_cp_to_dp_round 1 389 double precision binop_dp_i_round, binop_dp_r_round, binop_dp_dp_round 1 390 double precision binop_r_dp_round, binop_i_dp_round 1 391 1 392 integer i0, i1, i2 1 393 real r0, r1, r2 1 394 double precision d_dum, d1, d2 1 395 complex c0 1 396 integer op_id 1 397 integer error_code_1, error_code_2 1 398 1 399 entry conv_i_to_dp_round (i0, error_code_1) 1 400 to_dp_round = i0 1 401 goto 9999 1 402 1 403 entry conv_r_to_dp_round (r0, error_code_1) 1 404 to_dp_round = r0 1 405 goto 9999 1 406 1 407 entry conv_cp_to_dp_round (c0, error_code_1) 1 408 to_dp_round = c0 1 409 goto 9999 1 410 1 411 entry binop_dp_i_round (op_id, d1, i2, error_code_2) 1 412 1 413 goto (1010, 1020, 1030, 1040, 1050), op_id 1 414 1 415 1010 to_dp_round = d1 + i2 1 416 goto 9999 1 417 1 418 1020 to_dp_round = d1 - i2 1 419 goto 9999 1 420 1 421 1030 to_dp_round = d1 * i2 1 422 goto 9999 1 423 1 424 1040 to_dp_round = d1 / i2 1 425 goto 9999 1 426 1 427 1050 to_dp_round = d1 ** i2 1 428 goto 9999 1 429 1 430 entry binop_dp_r_round (op_id, d1, r2, error_code_2) 1 431 1 432 goto (2010, 2020, 2030, 2040, 2050), op_id 1 433 1 434 2010 to_dp_round = d1 + r2 1 435 goto 9999 1 436 1 437 2020 to_dp_round = d1 - r2 1 438 goto 9999 1 439 1 440 2030 to_dp_round = d1 * r2 1 441 goto 9999 1 442 1 443 2040 to_dp_round = d1 / r2 1 444 goto 9999 1 445 1 446 2050 to_dp_round = d1 ** r2 1 447 goto 9999 1 448 1 449 entry binop_dp_dp_round (op_id, d1, d2, error_code_2) 1 450 1 451 goto (3010, 3020, 3030, 3040, 3050, 3060), op_id 1 452 1 453 3010 to_dp_round = d1 + d2 1 454 goto 9999 1 455 1 456 3020 to_dp_round = d1 - d2 1 457 goto 9999 1 458 1 459 3030 to_dp_round = d1 * d2 1 460 goto 9999 1 461 1 462 3040 to_dp_round = d1 / d2 1 463 goto 9999 1 464 1 465 3050 to_dp_round = d1 ** d2 1 466 goto 9999 1 467 1 468 3060 to_dp_round = - d1 1 469 goto 9999 1 470 1 471 entry binop_r_dp_round (op_id, r1, d2, error_code_2) 1 472 1 473 goto (4010, 4020, 4030, 4040, 4050), op_id 1 474 1 475 4010 to_dp_round = r1 + d2 1 476 goto 9999 1 477 1 478 4020 to_dp_round = r1 - d2 1 479 goto 9999 1 480 1 481 4030 to_dp_round = r1 * d2 1 482 goto 9999 1 483 1 484 4040 to_dp_round = r1 / d2 1 485 goto 9999 1 486 1 487 4050 to_dp_round = r1 ** d2 1 488 goto 9999 1 489 1 490 entry binop_i_dp_round (op_id, i1, d2, error_code_2) 1 491 1 492 goto (5010, 5020, 5030, 5040, 5050), op_id 1 493 1 494 5010 to_dp_round = i1 + d2 1 495 goto 9999 1 496 1 497 5020 to_dp_round = i1 - d2 1 498 goto 9999 1 499 1 500 5030 to_dp_round = i1 * d2 1 501 goto 9999 1 502 1 503 5040 to_dp_round = i1 / d2 1 504 goto 9999 1 505 1 506 5050 to_dp_round = i1 ** d2 1 507 goto 9999 1 508 1 509 9999 continue 1 510 return 1 511 end Function to_dp_round NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES binop_dp_dp_round entry point 00002026 constant double precision on line 1-389 1-449 binop_dp_i_round entry point 00001651 constant double precision on line 1-389 1-411 binop_dp_r_round entry point 00001746 constant double precision on line 1-389 1-430 binop_i_dp_round entry point 00002173 constant double precision on line 1-390 1-490 binop_r_dp_round entry point 00002113 constant double precision on line 1-390 1-471 c0 parameter position 1 complex ref 1-395 1-407 1-408 conv_cp_to_dp_round entry point 00001625 constant double precision on line 1-388 1-407 conv_i_to_dp_round entry point 00001556 constant double precision on line 1-388 1-399 conv_r_to_dp_round entry point 00001603 constant double precision on line 1-388 1-403 d1 parameter position 2 double precision ref 1-394 1-411 1-415 1-418 1-421 1-424 1-427 1-430 1-434 1-437 1-440 1-443 1-446 1-449 1-453 1-456 1-459 1-462 1-465 1-468 d2 parameter position 3 double precision ref 1-394 1-449 1-453 1-456 1-459 1-462 1-465 1-471 1-475 1-478 1-481 1-484 1-487 1-490 1-494 1-497 1-500 1-503 1-506 i0 parameter position 1 integer ref 1-392 1-399 1-400 i1 parameter position 2 integer ref 1-392 1-490 1-494 1-497 1-500 1-503 1-506 i2 parameter position 3 integer ref 1-392 1-411 1-415 1-418 1-421 1-424 1-427 op_id parameter position 1 integer ref 1-396 1-411 1-413 1-430 1-432 1-449 1-451 1-471 1-473 1-490 1-492 r0 parameter position 1 real ref 1-393 1-403 1-404 r1 parameter position 2 real ref 1-393 1-471 1-475 1-478 1-481 1-484 1-487 r2 parameter position 3 real ref 1-393 1-430 1-434 1-437 1-440 1-443 1-446 to_dp_round entry point 00001537 constant double precision on line 1-385 to_dp_round 00000136 automatic double precision ref 1-385 1-387 1-400 1-404 1-408 1-415 1-418 1-421 1-424 1-427 1-434 1-437 1-440 1-443 1-446 1-453 1-456 1-459 1-462 1-465 1-468 1-475 1-478 1-481 1-484 1-487 1-494 1-497 1-500 1-503 1-506 NAMES DECLARED BUT NOT USED d_dum parameter position 1 double precision declared 1-385 1-394 error_code_1 parameter position 2 integer declared 1-397 1-399 1-403 1-407 error_code_2 parameter position 4 integer declared 1-397 1-411 1-430 1-449 1-471 1-490 LOC LABEL TYPE LINE REFERENCES 001675 1010 executable 1-415 used in transfer ref 1-413 001704 1020 executable 1-418 used in transfer ref 1-413 001714 1030 executable 1-421 used in transfer ref 1-413 001723 1040 executable 1-424 used in transfer ref 1-413 001732 1050 executable 1-427 used in transfer ref 1-413 001772 2010 executable 1-434 used in transfer ref 1-432 001776 2020 executable 1-437 used in transfer ref 1-432 002002 2030 executable 1-440 used in transfer ref 1-432 002006 2040 executable 1-443 used in transfer ref 1-432 002012 2050 executable 1-446 used in transfer ref 1-432 002053 3010 executable 1-453 used in transfer ref 1-451 002057 3020 executable 1-456 used in transfer ref 1-451 002063 3030 executable 1-459 used in transfer ref 1-451 002067 3040 executable 1-462 used in transfer ref 1-451 002073 3050 executable 1-465 used in transfer ref 1-451 002102 3060 executable 1-468 used in transfer ref 1-451 002137 4010 executable 1-475 used in transfer ref 1-473 002143 4020 executable 1-478 used in transfer ref 1-473 002147 4030 executable 1-481 used in transfer ref 1-473 002153 4040 executable 1-484 used in transfer ref 1-473 002157 4050 executable 1-487 used in transfer ref 1-473 002217 5010 executable 1-494 used in transfer ref 1-492 002226 5020 executable 1-497 used in transfer ref 1-492 002235 5030 executable 1-500 used in transfer ref 1-492 002244 5040 executable 1-503 used in transfer ref 1-492 002253 5050 executable 1-506 used in transfer ref 1-492 002264 9999 executable 1-509 used in transfer ref 1-401 1-405 1-409 1-416 1-419 1-422 1-425 1-428 1-435 1-438 1-441 1-444 1-447 1-454 1-457 1-460 1-463 1-466 1-469 1-476 1-479 1-482 1-485 1-488 1-495 1-498 1-501 1-504 1-507 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-385 001533 1-399 001552 1-400 001571 1-401 001576 1-403 001577 1-404 001616 1-405 001620 1-407 001621 1-408 001640 1-409 001643 1-411 001644 1-413 001664 1-415 001675 1-416 001703 1-418 001704 1-419 001713 1-421 001714 1-422 001722 1-424 001723 1-425 001731 1-427 001732 1-428 001740 1-430 001741 1-432 001761 1-434 001772 1-435 001775 1-437 001776 1-438 002001 1-440 002002 1-441 002005 1-443 002006 1-444 002011 1-446 002012 1-447 002020 1-449 002021 1-451 002041 1-453 002053 1-454 002056 1-456 002057 1-457 002062 1-459 002063 1-460 002066 1-462 002067 1-463 002072 1-465 002073 1-466 002101 1-468 002102 1-469 002105 1-471 002106 1-473 002126 1-475 002137 1-476 002142 1-478 002143 1-479 002146 1-481 002147 1-482 002152 1-484 002153 1-485 002156 1-487 002157 1-488 002165 1-490 002166 1-492 002206 1-494 002217 1-495 002225 1-497 002226 1-498 002234 1-500 002235 1-501 002243 1-503 002244 1-504 002252 1-506 002253 1-507 002264 1-509 002264 1-510 002264 Function to_dp_trunc 1 512 %options truncate; 1 513 c ======================================== 1 514 c function to perform compile-time FORTRAN math resulting in dp values, truncd 1 515 c 1 516 c Written: 06/06/79 by Paul E. Smee 1 517 c 1 518 c Modified: 1 519 c ======================================== 1 520 1 521 function to_dp_trunc (d_dum) 1 522 1 523 double precision to_dp_trunc 1 524 double precision conv_i_to_dp_trunc, conv_r_to_dp_trunc, conv_cp_to_dp_trunc 1 525 double precision binop_dp_i_trunc, binop_dp_r_trunc, binop_dp_dp_trunc 1 526 double precision binop_r_dp_trunc, binop_i_dp_trunc 1 527 1 528 integer i0, i1, i2 1 529 real r0, r1, r2 1 530 double precision d_dum, d1, d2 1 531 complex c0 1 532 integer op_id 1 533 integer error_code_1, error_code_2 1 534 1 535 entry conv_i_to_dp_trunc (i0, error_code_1) 1 536 to_dp_trunc = i0 1 537 goto 9999 1 538 1 539 entry conv_r_to_dp_trunc (r0, error_code_1) 1 540 to_dp_trunc = r0 1 541 goto 9999 1 542 1 543 entry conv_cp_to_dp_trunc (c0, error_code_1) 1 544 to_dp_trunc = c0 1 545 goto 9999 1 546 1 547 entry binop_dp_i_trunc (op_id, d1, i2, error_code_2) 1 548 1 549 goto (1010, 1020, 1030, 1040, 1050), op_id 1 550 1 551 1010 to_dp_trunc = d1 + i2 1 552 goto 9999 1 553 1 554 1020 to_dp_trunc = d1 - i2 1 555 goto 9999 1 556 1 557 1030 to_dp_trunc = d1 * i2 1 558 goto 9999 1 559 1 560 1040 to_dp_trunc = d1 / i2 1 561 goto 9999 1 562 1 563 1050 to_dp_trunc = d1 ** i2 1 564 goto 9999 1 565 1 566 entry binop_dp_r_trunc (op_id, d1, r2, error_code_2) 1 567 1 568 goto (2010, 2020, 2030, 2040, 2050), op_id 1 569 1 570 2010 to_dp_trunc = d1 + r2 1 571 goto 9999 1 572 1 573 2020 to_dp_trunc = d1 - r2 1 574 goto 9999 1 575 1 576 2030 to_dp_trunc = d1 * r2 1 577 goto 9999 1 578 1 579 2040 to_dp_trunc = d1 / r2 1 580 goto 9999 1 581 1 582 2050 to_dp_trunc = d1 ** r2 1 583 goto 9999 1 584 1 585 entry binop_dp_dp_trunc (op_id, d1, d2, error_code_2) 1 586 1 587 goto (3010, 3020, 3030, 3040, 3050, 3060), op_id 1 588 1 589 3010 to_dp_trunc = d1 + d2 1 590 goto 9999 1 591 1 592 3020 to_dp_trunc = d1 - d2 1 593 goto 9999 1 594 1 595 3030 to_dp_trunc = d1 * d2 1 596 goto 9999 1 597 1 598 3040 to_dp_trunc = d1 / d2 1 599 goto 9999 1 600 1 601 3050 to_dp_trunc = d1 ** d2 1 602 goto 9999 1 603 1 604 3060 to_dp_trunc = - d1 1 605 goto 9999 1 606 1 607 entry binop_r_dp_trunc (op_id, r1, d2, error_code_2) 1 608 1 609 goto (4010, 4020, 4030, 4040, 4050), op_id 1 610 1 611 4010 to_dp_trunc = r1 + d2 1 612 goto 9999 1 613 1 614 4020 to_dp_trunc = r1 - d2 1 615 goto 9999 1 616 1 617 4030 to_dp_trunc = r1 * d2 1 618 goto 9999 1 619 1 620 4040 to_dp_trunc = r1 / d2 1 621 goto 9999 1 622 1 623 4050 to_dp_trunc = r1 ** d2 1 624 goto 9999 1 625 1 626 entry binop_i_dp_trunc (op_id, i1, d2, error_code_2) 1 627 1 628 goto (5010, 5020, 5030, 5040, 5050), op_id 1 629 1 630 5010 to_dp_trunc = i1 + d2 1 631 goto 9999 1 632 1 633 5020 to_dp_trunc = i1 - d2 1 634 goto 9999 1 635 1 636 5030 to_dp_trunc = i1 * d2 1 637 goto 9999 1 638 1 639 5040 to_dp_trunc = i1 / d2 1 640 goto 9999 1 641 1 642 5050 to_dp_trunc = i1 ** d2 1 643 goto 9999 1 644 1 645 9999 continue 1 646 return 1 647 end Function to_dp_trunc NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES binop_dp_dp_trunc entry point 00002562 constant double precision on line 1-525 1-585 binop_dp_i_trunc entry point 00002405 constant double precision on line 1-525 1-547 binop_dp_r_trunc entry point 00002502 constant double precision on line 1-525 1-566 binop_i_dp_trunc entry point 00002727 constant double precision on line 1-526 1-626 binop_r_dp_trunc entry point 00002647 constant double precision on line 1-526 1-607 c0 parameter position 1 complex ref 1-531 1-543 1-544 conv_cp_to_dp_trunc entry point 00002361 constant double precision on line 1-524 1-543 conv_i_to_dp_trunc entry point 00002312 constant double precision on line 1-524 1-535 conv_r_to_dp_trunc entry point 00002337 constant double precision on line 1-524 1-539 d1 parameter position 2 double precision ref 1-530 1-547 1-551 1-554 1-557 1-560 1-563 1-566 1-570 1-573 1-576 1-579 1-582 1-585 1-589 1-592 1-595 1-598 1-601 1-604 d2 parameter position 3 double precision ref 1-530 1-585 1-589 1-592 1-595 1-598 1-601 1-607 1-611 1-614 1-617 1-620 1-623 1-626 1-630 1-633 1-636 1-639 1-642 i0 parameter position 1 integer ref 1-528 1-535 1-536 i1 parameter position 2 integer ref 1-528 1-626 1-630 1-633 1-636 1-639 1-642 i2 parameter position 3 integer ref 1-528 1-547 1-551 1-554 1-557 1-560 1-563 op_id parameter position 1 integer ref 1-532 1-547 1-549 1-566 1-568 1-585 1-587 1-607 1-609 1-626 1-628 r0 parameter position 1 real ref 1-529 1-539 1-540 r1 parameter position 2 real ref 1-529 1-607 1-611 1-614 1-617 1-620 1-623 r2 parameter position 3 real ref 1-529 1-566 1-570 1-573 1-576 1-579 1-582 to_dp_trunc entry point 00002273 constant double precision on line 1-521 to_dp_trunc 00000140 automatic double precision ref 1-521 1-523 1-536 1-540 1-544 1-551 1-554 1-557 1-560 1-563 1-570 1-573 1-576 1-579 1-582 1-589 1-592 1-595 1-598 1-601 1-604 1-611 1-614 1-617 1-620 1-623 1-630 1-633 1-636 1-639 1-642 NAMES DECLARED BUT NOT USED d_dum parameter position 1 double precision declared 1-521 1-530 error_code_1 parameter position 2 integer declared 1-533 1-535 1-539 1-543 error_code_2 parameter position 4 integer declared 1-533 1-547 1-566 1-585 1-607 1-626 LOC LABEL TYPE LINE REFERENCES 002431 1010 executable 1-551 used in transfer ref 1-549 002440 1020 executable 1-554 used in transfer ref 1-549 002450 1030 executable 1-557 used in transfer ref 1-549 002457 1040 executable 1-560 used in transfer ref 1-549 002466 1050 executable 1-563 used in transfer ref 1-549 002526 2010 executable 1-570 used in transfer ref 1-568 002532 2020 executable 1-573 used in transfer ref 1-568 002536 2030 executable 1-576 used in transfer ref 1-568 002542 2040 executable 1-579 used in transfer ref 1-568 002546 2050 executable 1-582 used in transfer ref 1-568 002607 3010 executable 1-589 used in transfer ref 1-587 002613 3020 executable 1-592 used in transfer ref 1-587 002617 3030 executable 1-595 used in transfer ref 1-587 002623 3040 executable 1-598 used in transfer ref 1-587 002627 3050 executable 1-601 used in transfer ref 1-587 002636 3060 executable 1-604 used in transfer ref 1-587 002673 4010 executable 1-611 used in transfer ref 1-609 002677 4020 executable 1-614 used in transfer ref 1-609 002703 4030 executable 1-617 used in transfer ref 1-609 002707 4040 executable 1-620 used in transfer ref 1-609 002713 4050 executable 1-623 used in transfer ref 1-609 002753 5010 executable 1-630 used in transfer ref 1-628 002762 5020 executable 1-633 used in transfer ref 1-628 002771 5030 executable 1-636 used in transfer ref 1-628 003000 5040 executable 1-639 used in transfer ref 1-628 003007 5050 executable 1-642 used in transfer ref 1-628 003020 9999 executable 1-645 used in transfer ref 1-537 1-541 1-545 1-552 1-555 1-558 1-561 1-564 1-571 1-574 1-577 1-580 1-583 1-590 1-593 1-596 1-599 1-602 1-605 1-612 1-615 1-618 1-621 1-624 1-631 1-634 1-637 1-640 1-643 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-521 002267 1-535 002306 1-536 002325 1-537 002332 1-539 002333 1-540 002352 1-541 002354 1-543 002355 1-544 002374 1-545 002377 1-547 002400 1-549 002420 1-551 002431 1-552 002437 1-554 002440 1-555 002447 1-557 002450 1-558 002456 1-560 002457 1-561 002465 1-563 002466 1-564 002474 1-566 002475 1-568 002515 1-570 002526 1-571 002531 1-573 002532 1-574 002535 1-576 002536 1-577 002541 1-579 002542 1-580 002545 1-582 002546 1-583 002554 1-585 002555 1-587 002575 1-589 002607 1-590 002612 1-592 002613 1-593 002616 1-595 002617 1-596 002622 1-598 002623 1-599 002626 1-601 002627 1-602 002635 1-604 002636 1-605 002641 1-607 002642 1-609 002662 1-611 002673 1-612 002676 1-614 002677 1-615 002702 1-617 002703 1-618 002706 1-620 002707 1-621 002712 1-623 002713 1-624 002721 1-626 002722 1-628 002742 1-630 002753 1-631 002761 1-633 002762 1-634 002770 1-636 002771 1-637 002777 1-639 003000 1-640 003006 1-642 003007 1-643 003020 1-645 003020 1-646 003020 Function to_cp_round 1 648 %options round; 1 649 c ======================================== 1 650 c function to perform compile-time FORTRAN math resulting in complex value, rounded 1 651 c 1 652 c Written: 06/07/79 by Paul E. Smee 1 653 c 1 654 c Modified: 1 655 c ======================================== 1 656 1 657 function to_cp_round (c_dum) 1 658 1 659 complex to_cp_round 1 660 complex conv_i_to_cp_round, conv_r_to_cp_round, conv_dp_to_cp_round 1 661 complex binop_cp_i_round, binop_cp_r_round, binop_cp_dp_round 1 662 complex binop_cp_cp_round, binop_dp_cp_round, binop_r_cp_round 1 663 complex binop_i_cp_round 1 664 1 665 integer i0, i1, i2 1 666 real r0, r1, r2 1 667 double precision d0, d1, d2 1 668 complex c_dum, c1, c2 1 669 integer op_id 1 670 integer error_code_1, error_code_2 1 671 1 672 entry conv_i_to_cp_round (i0, error_code_1) 1 673 to_cp_round = i0 1 674 goto 9999 1 675 1 676 entry conv_r_to_cp_round (r0, error_code_1) 1 677 to_cp_round = r0 1 678 goto 9999 1 679 1 680 entry conv_dp_to_cp_round (d0, error_code_1) 1 681 to_cp_round = d0 1 682 goto 9999 1 683 1 684 entry binop_cp_i_round (op_id, c1, i2, error_code_2) 1 685 1 686 goto (1010, 1020, 1030, 1040, 1050), op_id 1 687 1 688 1010 to_cp_round = c1 + i2 1 689 goto 9999 1 690 1 691 1020 to_cp_round = c1 - i2 1 692 goto 9999 1 693 1 694 1030 to_cp_round = c1 * i2 1 695 goto 9999 1 696 1 697 1040 to_cp_round = c1 / i2 1 698 goto 9999 1 699 1 700 1050 to_cp_round = c1 ** i2 1 701 goto 9999 1 702 1 703 entry binop_cp_r_round (op_id, c1, r2, error_code_2) 1 704 1 705 goto (2010, 2020, 2030, 2040, 2050), op_id 1 706 1 707 2010 to_cp_round = c1 + r2 1 708 goto 9999 1 709 1 710 2020 to_cp_round = c1 - r2 1 711 goto 9999 1 712 1 713 2030 to_cp_round = c1 * r2 1 714 goto 9999 1 715 1 716 2040 to_cp_round = c1 / r2 1 717 goto 9999 1 718 1 719 2050 to_cp_round = c1 ** r2 1 720 goto 9999 1 721 1 722 entry binop_cp_dp_round (op_id, c1, d2, error_code_2) 1 723 1 724 goto (3010, 3020, 3030, 3040, 3050), op_id 1 725 1 726 3010 to_cp_round = c1 + d2 1 727 goto 9999 1 728 1 729 3020 to_cp_round = c1 - d2 1 730 goto 9999 1 731 1 732 3030 to_cp_round = c1 * d2 1 733 goto 9999 1 734 1 735 3040 to_cp_round = c1 / d2 1 736 goto 9999 1 737 1 738 3050 to_cp_round = c1 ** d2 1 739 goto 9999 1 740 1 741 entry binop_cp_cp_round (op_id, c1, c2, error_code_2) 1 742 1 743 goto (4010, 4020, 4030, 4040, 4050, 4060), op_id 1 744 1 745 4010 to_cp_round = c1 + c2 1 746 goto 9999 1 747 1 748 4020 to_cp_round = c1 - c2 1 749 goto 9999 1 750 1 751 4030 to_cp_round = c1 * c2 1 752 goto 9999 1 753 1 754 4040 to_cp_round = c1 / c2 1 755 goto 9999 1 756 1 757 4050 to_cp_round = c1 ** c2 1 758 goto 9999 1 759 1 760 4060 to_cp_round = - c1 1 761 goto 9999 1 762 1 763 entry binop_dp_cp_round (op_id, d1, c2, error_code_2) 1 764 1 765 goto (5010, 5020, 5030, 5040, 5050), op_id 1 766 1 767 5010 to_cp_round = d1 + c2 1 768 goto 9999 1 769 1 770 5020 to_cp_round = d1 - c2 1 771 goto 9999 1 772 1 773 5030 to_cp_round = d1 * c2 1 774 goto 9999 1 775 1 776 5040 to_cp_round = d1 / c2 1 777 goto 9999 1 778 1 779 5050 to_cp_round = d1 ** c2 1 780 goto 9999 1 781 1 782 entry binop_r_cp_round (op_id, r1, c2, error_code_2) 1 783 1 784 goto (6010, 6020, 6030, 6040, 6050), op_id 1 785 1 786 6010 to_cp_round = r1 + c2 1 787 goto 9999 1 788 1 789 6020 to_cp_round = r1 - c2 1 790 goto 9999 1 791 1 792 6030 to_cp_round = r1 * c2 1 793 goto 9999 1 794 1 795 6040 to_cp_round = r1 / c2 1 796 goto 9999 1 797 1 798 6050 to_cp_round = r1 ** c2 1 799 goto 9999 1 800 1 801 entry binop_i_cp_round (op_id, i1, c2, error_code_2) 1 802 1 803 goto (7010, 7020, 7030, 7040, 7050), op_id 1 804 1 805 7010 to_cp_round = i1 + c2 1 806 goto 9999 1 807 1 808 7020 to_cp_round = i1 - c2 1 809 goto 9999 1 810 1 811 7030 to_cp_round = i1 * c2 1 812 goto 9999 1 813 1 814 7040 to_cp_round = i1 / c2 1 815 goto 9999 1 816 1 817 7050 to_cp_round = i1 ** c2 1 818 goto 9999 1 819 1 820 9999 continue 1 821 return 1 822 end Function to_cp_round NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES binop_cp_cp_round entry point 00003544 constant complex on line 1-662 1-741 binop_cp_dp_round entry point 00003427 constant complex on line 1-661 1-722 binop_cp_i_round entry point 00003150 constant complex on line 1-661 1-684 binop_cp_r_round entry point 00003314 constant complex on line 1-661 1-703 binop_dp_cp_round entry point 00003670 constant complex on line 1-662 1-763 binop_i_cp_round entry point 00004114 constant complex on line 1-663 1-801 binop_r_cp_round entry point 00004004 constant complex on line 1-662 1-782 c1 parameter position 2 complex ref 1-668 1-684 1-688 1-691 1-694 1-697 1-700 1-703 1-707 1-710 1-713 1-716 1-719 1-722 1-726 1-729 1-732 1-735 1-738 1-741 1-745 1-748 1-751 1-754 1-757 1-760 c2 parameter position 3 complex ref 1-668 1-741 1-745 1-748 1-751 1-754 1-757 1-763 1-767 1-770 1-773 1-776 1-779 1-782 1-786 1-789 1-792 1-795 1-798 1-801 1-805 1-808 1-811 1-814 1-817 conv_dp_to_cp_round entry point 00003123 constant complex on line 1-660 1-680 conv_i_to_cp_round entry point 00003046 constant complex on line 1-660 1-672 conv_r_to_cp_round entry point 00003077 constant complex on line 1-660 1-676 d0 parameter position 1 double precision ref 1-667 1-680 1-681 d1 parameter position 2 double precision ref 1-667 1-763 1-767 1-770 1-773 1-776 1-779 d2 parameter position 3 double precision ref 1-667 1-722 1-726 1-729 1-732 1-735 1-738 i0 parameter position 1 integer ref 1-665 1-672 1-673 i1 parameter position 2 integer ref 1-665 1-801 1-805 1-808 1-811 1-814 1-817 i2 parameter position 3 integer ref 1-665 1-684 1-688 1-691 1-694 1-697 1-700 op_id parameter position 1 integer ref 1-669 1-684 1-686 1-703 1-705 1-722 1-724 1-741 1-743 1-763 1-765 1-782 1-784 1-801 1-803 r0 parameter position 1 real ref 1-666 1-676 1-677 r1 parameter position 2 real ref 1-666 1-782 1-786 1-789 1-792 1-795 1-798 r2 parameter position 3 real ref 1-666 1-703 1-707 1-710 1-713 1-716 1-719 to_cp_round entry point 00003027 constant complex on line 1-657 to_cp_round 00000142 automatic complex ref 1-657 1-659 1-673 1-677 1-681 1-688 1-691 1-694 1-697 1-700 1-707 1-710 1-713 1-716 1-719 1-726 1-729 1-732 1-735 1-738 1-745 1-748 1-751 1-754 1-757 1-760 1-767 1-770 1-773 1-776 1-779 1-786 1-789 1-792 1-795 1-798 1-805 1-808 1-811 1-814 1-817 NAMES DECLARED BUT NOT USED c_dum parameter position 1 complex declared 1-657 1-668 error_code_1 parameter position 2 integer declared 1-670 1-672 1-676 1-680 error_code_2 parameter position 4 integer declared 1-670 1-684 1-703 1-722 1-741 1-763 1-782 1-801 LOC LABEL TYPE LINE REFERENCES 003174 1010 executable 1-688 used in transfer ref 1-686 003214 1020 executable 1-691 used in transfer ref 1-686 003235 1030 executable 1-694 used in transfer ref 1-686 003253 1040 executable 1-697 used in transfer ref 1-686 003271 1050 executable 1-700 used in transfer ref 1-686 003340 2010 executable 1-707 used in transfer ref 1-705 003351 2020 executable 1-710 used in transfer ref 1-705 003362 2030 executable 1-713 used in transfer ref 1-705 003374 2040 executable 1-716 used in transfer ref 1-705 003406 2050 executable 1-719 used in transfer ref 1-705 003453 3010 executable 1-726 used in transfer ref 1-724 003464 3020 executable 1-729 used in transfer ref 1-724 003475 3030 executable 1-732 used in transfer ref 1-724 003507 3040 executable 1-735 used in transfer ref 1-724 003521 3050 executable 1-738 used in transfer ref 1-724 003571 4010 executable 1-745 used in transfer ref 1-743 003604 4020 executable 1-748 used in transfer ref 1-743 003617 4030 executable 1-751 used in transfer ref 1-743 003627 4040 executable 1-754 used in transfer ref 1-743 003637 4050 executable 1-757 used in transfer ref 1-743 003651 4060 executable 1-760 used in transfer ref 1-743 003714 5010 executable 1-767 used in transfer ref 1-765 003725 5020 executable 1-770 used in transfer ref 1-765 003737 5030 executable 1-773 used in transfer ref 1-765 003751 5040 executable 1-776 used in transfer ref 1-765 003763 5050 executable 1-779 used in transfer ref 1-765 004030 6010 executable 1-786 used in transfer ref 1-784 004041 6020 executable 1-789 used in transfer ref 1-784 004053 6030 executable 1-792 used in transfer ref 1-784 004065 6040 executable 1-795 used in transfer ref 1-784 004075 6050 executable 1-798 used in transfer ref 1-784 004140 7010 executable 1-805 used in transfer ref 1-803 004160 7020 executable 1-808 used in transfer ref 1-803 004200 7030 executable 1-811 used in transfer ref 1-803 004216 7040 executable 1-814 used in transfer ref 1-803 004234 7050 executable 1-817 used in transfer ref 1-803 004253 9999 executable 1-820 used in transfer ref 1-674 1-678 1-682 1-689 1-692 1-695 1-698 1-701 1-708 1-711 1-714 1-717 1-720 1-727 1-730 1-733 1-736 1-739 1-746 1-749 1-752 1-755 1-758 1-761 1-768 1-771 1-774 1-777 1-780 1-787 1-790 1-793 1-796 1-799 1-806 1-809 1-812 1-815 1-818 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-657 003023 1-672 003042 1-673 003061 1-674 003072 1-676 003073 1-677 003112 1-678 003116 1-680 003117 1-681 003136 1-682 003142 1-684 003143 1-686 003163 1-688 003174 1-689 003213 1-691 003214 1-692 003234 1-694 003235 1-695 003252 1-697 003253 1-698 003270 1-700 003271 1-701 003306 1-703 003307 1-705 003327 1-707 003340 1-708 003350 1-710 003351 1-711 003361 1-713 003362 1-714 003373 1-716 003374 1-717 003405 1-719 003406 1-720 003421 1-722 003422 1-724 003442 1-726 003453 1-727 003463 1-729 003464 1-730 003474 1-732 003475 1-733 003506 1-735 003507 1-736 003520 1-738 003521 1-739 003536 1-741 003537 1-743 003557 1-745 003571 1-746 003603 1-748 003604 1-749 003616 1-751 003617 1-752 003626 1-754 003627 1-755 003636 1-757 003637 1-758 003650 1-760 003651 1-761 003662 1-763 003663 1-765 003703 1-767 003714 1-768 003724 1-770 003725 1-771 003736 1-773 003737 1-774 003750 1-776 003751 1-777 003762 1-779 003763 1-780 003776 1-782 003777 1-784 004017 1-786 004030 1-787 004040 1-789 004041 1-790 004052 1-792 004053 1-793 004064 1-795 004065 1-796 004074 1-798 004075 1-799 004106 1-801 004107 1-803 004127 1-805 004140 1-806 004157 1-808 004160 1-809 004177 1-811 004200 1-812 004215 1-814 004216 1-815 004233 1-817 004234 1-818 004253 1-820 004253 1-821 004253 Function to_cp_trunc 1 823 %options truncate; 1 824 c ======================================== 1 825 c function to perform compile-time FORTRAN math resulting in complex value, truncd 1 826 c 1 827 c Written: 06/07/79 by Paul E. Smee 1 828 c 1 829 c Modified: 1 830 c ======================================== 1 831 1 832 function to_cp_trunc (c_dum) 1 833 1 834 complex to_cp_trunc 1 835 complex conv_i_to_cp_trunc, conv_r_to_cp_trunc, conv_dp_to_cp_trunc 1 836 complex binop_cp_i_trunc, binop_cp_r_trunc, binop_cp_dp_trunc 1 837 complex binop_cp_cp_trunc, binop_dp_cp_trunc, binop_r_cp_trunc 1 838 complex binop_i_cp_trunc 1 839 1 840 integer i0, i1, i2 1 841 real r0, r1, r2 1 842 double precision d0, d1, d2 1 843 complex c_dum, c1, c2 1 844 integer op_id 1 845 integer error_code_1, error_code_2 1 846 1 847 entry conv_i_to_cp_trunc (i0, error_code_1) 1 848 to_cp_trunc = i0 1 849 goto 9999 1 850 1 851 entry conv_r_to_cp_trunc (r0, error_code_1) 1 852 to_cp_trunc = r0 1 853 goto 9999 1 854 1 855 entry conv_dp_to_cp_trunc (d0, error_code_1) 1 856 to_cp_trunc = d0 1 857 goto 9999 1 858 1 859 entry binop_cp_i_trunc (op_id, c1, i2, error_code_2) 1 860 1 861 goto (1010, 1020, 1030, 1040, 1050), op_id 1 862 1 863 1010 to_cp_trunc = c1 + i2 1 864 goto 9999 1 865 1 866 1020 to_cp_trunc = c1 - i2 1 867 goto 9999 1 868 1 869 1030 to_cp_trunc = c1 * i2 1 870 goto 9999 1 871 1 872 1040 to_cp_trunc = c1 / i2 1 873 goto 9999 1 874 1 875 1050 to_cp_trunc = c1 ** i2 1 876 goto 9999 1 877 1 878 entry binop_cp_r_trunc (op_id, c1, r2, error_code_2) 1 879 1 880 goto (2010, 2020, 2030, 2040, 2050), op_id 1 881 1 882 2010 to_cp_trunc = c1 + r2 1 883 goto 9999 1 884 1 885 2020 to_cp_trunc = c1 - r2 1 886 goto 9999 1 887 1 888 2030 to_cp_trunc = c1 * r2 1 889 goto 9999 1 890 1 891 2040 to_cp_trunc = c1 / r2 1 892 goto 9999 1 893 1 894 2050 to_cp_trunc = c1 ** r2 1 895 goto 9999 1 896 1 897 entry binop_cp_dp_trunc (op_id, c1, d2, error_code_2) 1 898 1 899 goto (3010, 3020, 3030, 3040, 3050), op_id 1 900 1 901 3010 to_cp_trunc = c1 + d2 1 902 goto 9999 1 903 1 904 3020 to_cp_trunc = c1 - d2 1 905 goto 9999 1 906 1 907 3030 to_cp_trunc = c1 * d2 1 908 goto 9999 1 909 1 910 3040 to_cp_trunc = c1 / d2 1 911 goto 9999 1 912 1 913 3050 to_cp_trunc = c1 ** d2 1 914 goto 9999 1 915 1 916 entry binop_cp_cp_trunc (op_id, c1, c2, error_code_2) 1 917 1 918 goto (4010, 4020, 4030, 4040, 4050, 4060), op_id 1 919 1 920 4010 to_cp_trunc = c1 + c2 1 921 goto 9999 1 922 1 923 4020 to_cp_trunc = c1 - c2 1 924 goto 9999 1 925 1 926 4030 to_cp_trunc = c1 * c2 1 927 goto 9999 1 928 1 929 4040 to_cp_trunc = c1 / c2 1 930 goto 9999 1 931 1 932 4050 to_cp_trunc = c1 ** c2 1 933 goto 9999 1 934 1 935 4060 to_cp_trunc = - c1 1 936 goto 9999 1 937 1 938 entry binop_dp_cp_trunc (op_id, d1, c2, error_code_2) 1 939 1 940 goto (5010, 5020, 5030, 5040, 5050), op_id 1 941 1 942 5010 to_cp_trunc = d1 + c2 1 943 goto 9999 1 944 1 945 5020 to_cp_trunc = d1 - c2 1 946 goto 9999 1 947 1 948 5030 to_cp_trunc = d1 * c2 1 949 goto 9999 1 950 1 951 5040 to_cp_trunc = d1 / c2 1 952 goto 9999 1 953 1 954 5050 to_cp_trunc = d1 ** c2 1 955 goto 9999 1 956 1 957 entry binop_r_cp_trunc (op_id, r1, c2, error_code_2) 1 958 1 959 goto (6010, 6020, 6030, 6040, 6050), op_id 1 960 1 961 6010 to_cp_trunc = r1 + c2 1 962 goto 9999 1 963 1 964 6020 to_cp_trunc = r1 - c2 1 965 goto 9999 1 966 1 967 6030 to_cp_trunc = r1 * c2 1 968 goto 9999 1 969 1 970 6040 to_cp_trunc = r1 / c2 1 971 goto 9999 1 972 1 973 6050 to_cp_trunc = r1 ** c2 1 974 goto 9999 1 975 1 976 entry binop_i_cp_trunc (op_id, i1, c2, error_code_2) 1 977 1 978 goto (7010, 7020, 7030, 7040, 7050), op_id 1 979 1 980 7010 to_cp_trunc = i1 + c2 1 981 goto 9999 1 982 1 983 7020 to_cp_trunc = i1 - c2 1 984 goto 9999 1 985 1 986 7030 to_cp_trunc = i1 * c2 1 987 goto 9999 1 988 1 989 7040 to_cp_trunc = i1 / c2 1 990 goto 9999 1 991 1 992 7050 to_cp_trunc = i1 ** c2 1 993 goto 9999 1 994 1 995 9999 continue 1 996 return 1 997 end Function to_cp_trunc NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES binop_cp_cp_trunc entry point 00005000 constant complex on line 1-837 1-916 binop_cp_dp_trunc entry point 00004663 constant complex on line 1-836 1-897 binop_cp_i_trunc entry point 00004404 constant complex on line 1-836 1-859 binop_cp_r_trunc entry point 00004550 constant complex on line 1-836 1-878 binop_dp_cp_trunc entry point 00005124 constant complex on line 1-837 1-938 binop_i_cp_trunc entry point 00005350 constant complex on line 1-838 1-976 binop_r_cp_trunc entry point 00005240 constant complex on line 1-837 1-957 c1 parameter position 2 complex ref 1-843 1-859 1-863 1-866 1-869 1-872 1-875 1-878 1-882 1-885 1-888 1-891 1-894 1-897 1-901 1-904 1-907 1-910 1-913 1-916 1-920 1-923 1-926 1-929 1-932 1-935 c2 parameter position 3 complex ref 1-843 1-916 1-920 1-923 1-926 1-929 1-932 1-938 1-942 1-945 1-948 1-951 1-954 1-957 1-961 1-964 1-967 1-970 1-973 1-976 1-980 1-983 1-986 1-989 1-992 conv_dp_to_cp_trunc entry point 00004357 constant complex on line 1-835 1-855 conv_i_to_cp_trunc entry point 00004302 constant complex on line 1-835 1-847 conv_r_to_cp_trunc entry point 00004333 constant complex on line 1-835 1-851 d0 parameter position 1 double precision ref 1-842 1-855 1-856 d1 parameter position 2 double precision ref 1-842 1-938 1-942 1-945 1-948 1-951 1-954 d2 parameter position 3 double precision ref 1-842 1-897 1-901 1-904 1-907 1-910 1-913 i0 parameter position 1 integer ref 1-840 1-847 1-848 i1 parameter position 2 integer ref 1-840 1-976 1-980 1-983 1-986 1-989 1-992 i2 parameter position 3 integer ref 1-840 1-859 1-863 1-866 1-869 1-872 1-875 op_id parameter position 1 integer ref 1-844 1-859 1-861 1-878 1-880 1-897 1-899 1-916 1-918 1-938 1-940 1-957 1-959 1-976 1-978 r0 parameter position 1 real ref 1-841 1-851 1-852 r1 parameter position 2 real ref 1-841 1-957 1-961 1-964 1-967 1-970 1-973 r2 parameter position 3 real ref 1-841 1-878 1-882 1-885 1-888 1-891 1-894 to_cp_trunc entry point 00004263 constant complex on line 1-832 to_cp_trunc 00000144 automatic complex ref 1-832 1-834 1-848 1-852 1-856 1-863 1-866 1-869 1-872 1-875 1-882 1-885 1-888 1-891 1-894 1-901 1-904 1-907 1-910 1-913 1-920 1-923 1-926 1-929 1-932 1-935 1-942 1-945 1-948 1-951 1-954 1-961 1-964 1-967 1-970 1-973 1-980 1-983 1-986 1-989 1-992 NAMES DECLARED BUT NOT USED c_dum parameter position 1 complex declared 1-832 1-843 error_code_1 parameter position 2 integer declared 1-845 1-847 1-851 1-855 error_code_2 parameter position 4 integer declared 1-845 1-859 1-878 1-897 1-916 1-938 1-957 1-976 LOC LABEL TYPE LINE REFERENCES 004430 1010 executable 1-863 used in transfer ref 1-861 004450 1020 executable 1-866 used in transfer ref 1-861 004471 1030 executable 1-869 used in transfer ref 1-861 004507 1040 executable 1-872 used in transfer ref 1-861 004525 1050 executable 1-875 used in transfer ref 1-861 004574 2010 executable 1-882 used in transfer ref 1-880 004605 2020 executable 1-885 used in transfer ref 1-880 004616 2030 executable 1-888 used in transfer ref 1-880 004630 2040 executable 1-891 used in transfer ref 1-880 004642 2050 executable 1-894 used in transfer ref 1-880 004707 3010 executable 1-901 used in transfer ref 1-899 004720 3020 executable 1-904 used in transfer ref 1-899 004731 3030 executable 1-907 used in transfer ref 1-899 004743 3040 executable 1-910 used in transfer ref 1-899 004755 3050 executable 1-913 used in transfer ref 1-899 005025 4010 executable 1-920 used in transfer ref 1-918 005040 4020 executable 1-923 used in transfer ref 1-918 005053 4030 executable 1-926 used in transfer ref 1-918 005063 4040 executable 1-929 used in transfer ref 1-918 005073 4050 executable 1-932 used in transfer ref 1-918 005105 4060 executable 1-935 used in transfer ref 1-918 005150 5010 executable 1-942 used in transfer ref 1-940 005161 5020 executable 1-945 used in transfer ref 1-940 005173 5030 executable 1-948 used in transfer ref 1-940 005205 5040 executable 1-951 used in transfer ref 1-940 005217 5050 executable 1-954 used in transfer ref 1-940 005264 6010 executable 1-961 used in transfer ref 1-959 005275 6020 executable 1-964 used in transfer ref 1-959 005307 6030 executable 1-967 used in transfer ref 1-959 005321 6040 executable 1-970 used in transfer ref 1-959 005331 6050 executable 1-973 used in transfer ref 1-959 005374 7010 executable 1-980 used in transfer ref 1-978 005414 7020 executable 1-983 used in transfer ref 1-978 005434 7030 executable 1-986 used in transfer ref 1-978 005452 7040 executable 1-989 used in transfer ref 1-978 005470 7050 executable 1-992 used in transfer ref 1-978 005507 9999 executable 1-995 used in transfer ref 1-849 1-853 1-857 1-864 1-867 1-870 1-873 1-876 1-883 1-886 1-889 1-892 1-895 1-902 1-905 1-908 1-911 1-914 1-921 1-924 1-927 1-930 1-933 1-936 1-943 1-946 1-949 1-952 1-955 1-962 1-965 1-968 1-971 1-974 1-981 1-984 1-987 1-990 1-993 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-832 004257 1-847 004276 1-848 004315 1-849 004326 1-851 004327 1-852 004346 1-853 004352 1-855 004353 1-856 004372 1-857 004376 1-859 004377 1-861 004417 1-863 004430 1-864 004447 1-866 004450 1-867 004470 1-869 004471 1-870 004506 1-872 004507 1-873 004524 1-875 004525 1-876 004542 1-878 004543 1-880 004563 1-882 004574 1-883 004604 1-885 004605 1-886 004615 1-888 004616 1-889 004627 1-891 004630 1-892 004641 1-894 004642 1-895 004655 1-897 004656 1-899 004676 1-901 004707 1-902 004717 1-904 004720 1-905 004730 1-907 004731 1-908 004742 1-910 004743 1-911 004754 1-913 004755 1-914 004772 1-916 004773 1-918 005013 1-920 005025 1-921 005037 1-923 005040 1-924 005052 1-926 005053 1-927 005062 1-929 005063 1-930 005072 1-932 005073 1-933 005104 1-935 005105 1-936 005116 1-938 005117 1-940 005137 1-942 005150 1-943 005160 1-945 005161 1-946 005172 1-948 005173 1-949 005204 1-951 005205 1-952 005216 1-954 005217 1-955 005232 1-957 005233 1-959 005253 1-961 005264 1-962 005274 1-964 005275 1-965 005306 1-967 005307 1-968 005320 1-970 005321 1-971 005330 1-973 005331 1-974 005342 1-976 005343 1-978 005363 1-980 005374 1-981 005413 1-983 005414 1-984 005433 1-986 005434 1-987 005451 1-989 005452 1-990 005467 1-992 005470 1-993 005507 1-995 005507 1-996 005507 Function to_log 1 998 %options round; 1 999 c ======================================== 1 1000 c function to perform compile-time FORTRAN comparisons 1 1001 c 1 1002 c Written: 06/25/79 by Paul E. Smee 1 1003 c 1 1004 c Modified: 1 1005 c ======================================== 1 1006 1 1007 function to_log (l_dum) 1 1008 1 1009 logical to_log 1 1010 logical comp_i_i, comp_i_r, comp_i_dp 1 1011 logical comp_r_i, comp_r_r, comp_r_dp 1 1012 logical comp_dp_i, comp_dp_r, comp_dp_dp 1 1013 logical comp_cp_cp, comp_lg_lg, comp_ch_ch 1 1014 1 1015 integer i1, i2 1 1016 real r1, r2 1 1017 double precision d1, d2 1 1018 complex c1, c2 1 1019 logical l_dum, l1, l2 1 1020 character*8 ch1, ch2 1 1021 integer op_id 1 1022 integer error_code_1, error_code_2 1 1023 1 1024 entry comp_i_i (op_id, i1, i2, error_code_2) 1 1025 1 1026 goto (110, 120, 130, 140, 150, 160), op_id - 7 1 1027 1 1028 110 to_log = i1 .lt. i2 1 1029 goto 9999 1 1030 1 1031 120 to_log = i1 .le.i2 1 1032 goto 9999 1 1033 1 1034 130 to_log = i1 .eq. i2 1 1035 goto 9999 1 1036 1 1037 140 to_log = i1 .ne. i2 1 1038 goto 9999 1 1039 1 1040 150 to_log = i1 .ge. i2 1 1041 goto 9999 1 1042 1 1043 160 to_log = i1 .gt. i2 1 1044 goto 9999 1 1045 1 1046 entry comp_i_r (op_id, i1, r2, error_code_2) 1 1047 1 1048 goto (210, 220, 230, 240, 250, 260), op_id - 7 1 1049 1 1050 210 to_log = i1 .lt. r2 1 1051 goto 9999 1 1052 1 1053 220 to_log = i1 .le. r2 1 1054 goto 9999 1 1055 1 1056 230 to_log = i1 .eq. r2 1 1057 goto 9999 1 1058 1 1059 240 to_log = i1 .ne. r2 1 1060 goto 9999 1 1061 1 1062 250 to_log = i1 .ge. r2 1 1063 goto 9999 1 1064 1 1065 260 to_log = i1 .gt. r2 1 1066 goto 9999 1 1067 1 1068 entry comp_i_dp (op_id, i1, d2, error_code_2) 1 1069 1 1070 goto (310, 320, 330, 340, 350, 360), op_id - 7 1 1071 1 1072 310 to_log = i1 .lt. d2 1 1073 goto 9999 1 1074 1 1075 320 to_log = i1 .le. d2 1 1076 goto 9999 1 1077 1 1078 330 to_log = i1 .eq. d2 1 1079 goto 9999 1 1080 1 1081 340 to_log = i1 .ne. d2 1 1082 goto 9999 1 1083 1 1084 350 to_log = i1 .ge. d2 1 1085 goto 9999 1 1086 1 1087 360 to_log = i1 .gt. d2 1 1088 goto 9999 1 1089 1 1090 entry comp_r_i (op_id, r1, i2, error_code_2) 1 1091 1 1092 goto (510, 520, 530, 540, 550, 560), op_id - 7 1 1093 1 1094 510 to_log = r1 .lt. i2 1 1095 goto 9999 1 1096 1 1097 520 to_log = r1 .le. i2 1 1098 goto 9999 1 1099 1 1100 530 to_log = r1 .eq. i2 1 1101 goto 9999 1 1102 1 1103 540 to_log = r1 .ne. i2 1 1104 goto 9999 1 1105 1 1106 550 to_log = r1 .ge. i2 1 1107 goto 9999 1 1108 1 1109 560 to_log = r1 .gt. i2 1 1110 goto 9999 1 1111 1 1112 entry comp_r_r (op_id, r1, r2, error_code_2) 1 1113 1 1114 goto (610, 620, 630, 640, 650, 660), op_id - 7 1 1115 1 1116 610 to_log = r1 .lt. r2 1 1117 goto 9999 1 1118 1 1119 620 to_log = r1 .le. r2 1 1120 goto 9999 1 1121 1 1122 630 to_log = r1 .eq. r2 1 1123 goto 9999 1 1124 1 1125 640 to_log = r1 .ne. r2 1 1126 goto 9999 1 1127 1 1128 650 to_log = r1 .ge. r2 1 1129 goto 9999 1 1130 1 1131 660 to_log = r1 .gt. r2 1 1132 goto 9999 1 1133 1 1134 entry comp_r_dp (op_id, r1, d2, error_code_2) 1 1135 1 1136 goto (710, 720, 730, 740, 750, 760), op_id - 7 1 1137 1 1138 710 to_log = r1 .lt. d2 1 1139 goto 9999 1 1140 1 1141 720 to_log = r1 .le. d2 1 1142 goto 9999 1 1143 1 1144 730 to_log = r1 .eq. d2 1 1145 goto 9999 1 1146 1 1147 740 to_log = r1 .ne. d2 1 1148 goto 9999 1 1149 1 1150 750 to_log = r1 .ge. d2 1 1151 goto 9999 1 1152 1 1153 760 to_log = r1 .gt. d2 1 1154 goto 9999 1 1155 1 1156 entry comp_dp_i (op_id, d1, i2, error_code_2) 1 1157 1 1158 goto (910, 920, 930, 940, 950, 960), op_id - 7 1 1159 1 1160 910 to_log = d1 .lt. i2 1 1161 goto 9999 1 1162 1 1163 920 to_log = d1 .le. i2 1 1164 goto 9999 1 1165 1 1166 930 to_log = d1 .eq. i2 1 1167 goto 9999 1 1168 1 1169 940 to_log = d1 .ne. i2 1 1170 goto 9999 1 1171 1 1172 950 to_log = d1 .ge. i2 1 1173 goto 9999 1 1174 1 1175 960 to_log = d1 .gt. i2 1 1176 goto 9999 1 1177 1 1178 entry comp_dp_r (op_id, d1, r2, error_code_2) 1 1179 1 1180 goto (1010, 1020, 1030, 1040, 1050, 1060), op_id - 7 1 1181 1 1182 1010 to_log = d1 .lt. r2 1 1183 goto 9999 1 1184 1 1185 1020 to_log = d1 .le. r2 1 1186 goto 9999 1 1187 1 1188 1030 to_log = d1 .eq. r2 1 1189 goto 9999 1 1190 1 1191 1040 to_log = d1 .ne. r2 1 1192 goto 9999 1 1193 1 1194 1050 to_log = d1 .ge. r2 1 1195 goto 9999 1 1196 1 1197 1060 to_log = d1 .gt. r2 1 1198 goto 9999 1 1199 1 1200 entry comp_dp_dp (op_id, d1, d2, error_code_2) 1 1201 1 1202 goto (1110, 1120, 1130, 1140, 1150, 1160), op_id - 7 1 1203 1 1204 1110 to_log = d1 .lt. d2 1 1205 goto 9999 1 1206 1 1207 1120 to_log = d1 .le. d2 1 1208 goto 9999 1 1209 1 1210 1130 to_log = d1 .eq. d2 1 1211 goto 9999 1 1212 1 1213 1140 to_log = d1 .ne. d2 1 1214 goto 9999 1 1215 1 1216 1150 to_log = d1 .ge. d2 1 1217 goto 9999 1 1218 1 1219 1160 to_log = d1 .gt. d2 1 1220 goto 9999 1 1221 1 1222 entry comp_cp_cp (op_id, c1, c2, error_code_2) 1 1223 1 1224 goto (1630, 1640), op_id - 9 1 1225 1 1226 error_code_2 = - 1 1 1227 goto 9999 1 1228 1 1229 1630 to_log = c1 .eq. c2 1 1230 goto 9999 1 1231 1 1232 1640 to_log = c1 .ne. c2 1 1233 goto 9999 1 1234 1 1235 entry comp_lg_lg (op_id, l1, l2, error_code_2) 1 1236 1 1237 goto (2530, 2540), op_id - 9 1 1238 1 1239 error_code_2 = - 1 1 1240 goto 9999 1 1241 1 1242 2530 to_log = l1 .eq. l2 1 1243 goto 9999 1 1244 1 1245 2540 to_log = l1 .ne. l2 1 1246 goto 9999 1 1247 1 1248 entry comp_ch_ch (op_id, ch1, ch2, error_code_2) 1 1249 1 1250 goto (3610, 3620, 3630, 3640, 3650, 3660), op_id - 7 1 1251 1 1252 3610 to_log = ch1 .lt. ch2 1 1253 goto 9999 1 1254 1 1255 3620 to_log = ch1 .le. ch2 1 1256 goto 9999 1 1257 1 1258 3630 to_log = ch1 .eq. ch2 1 1259 goto 9999 1 1260 1 1261 3640 to_log = ch1 .ne. ch2 1 1262 goto 9999 1 1263 1 1264 3650 to_log = ch1 .ge. ch2 1 1265 goto 9999 1 1266 1 1267 3660 to_log = ch1 .gt. ch2 1 1268 goto 9999 1 1269 1 1270 9999 continue 1 1271 return 1 1272 end Function to_log NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES c1 parameter position 2 complex ref 1-1018 1-1222 1-1229 1-1232 c2 parameter position 3 complex ref 1-1018 1-1222 1-1229 1-1232 ch1 parameter position 2 character(8) ref 1-1020 1-1248 1-1252 1-1255 1-1258 1-1261 1-1264 1-1267 ch2 parameter position 3 character(8) ref 1-1020 1-1248 1-1252 1-1255 1-1258 1-1261 1-1264 1-1267 comp_ch_ch entry point 00007027 constant logical on line 1-1013 1-1248 comp_cp_cp entry point 00006711 constant logical on line 1-1013 1-1222 comp_dp_dp entry point 00006617 constant logical on line 1-1012 1-1200 comp_dp_i entry point 00006403 constant logical on line 1-1012 1-1156 comp_dp_r entry point 00006525 constant logical on line 1-1012 1-1178 comp_i_dp entry point 00005753 constant logical on line 1-1010 1-1068 comp_i_i entry point 00005537 constant logical on line 1-1010 1-1024 comp_i_r entry point 00005631 constant logical on line 1-1010 1-1046 comp_lg_lg entry point 00006762 constant logical on line 1-1013 1-1235 comp_r_dp entry point 00006311 constant logical on line 1-1011 1-1134 comp_r_i entry point 00006075 constant logical on line 1-1011 1-1090 comp_r_r entry point 00006217 constant logical on line 1-1011 1-1112 d1 parameter position 2 double precision ref 1-1017 1-1156 1-1160 1-1163 1-1166 1-1169 1-1172 1-1175 1-1178 1-1182 1-1185 1-1188 1-1191 1-1194 1-1197 1-1200 1-1204 1-1207 1-1210 1-1213 1-1216 1-1219 d2 parameter position 3 double precision ref 1-1017 1-1068 1-1072 1-1075 1-1078 1-1081 1-1084 1-1087 1-1134 1-1138 1-1141 1-1144 1-1147 1-1150 1-1153 1-1200 1-1204 1-1207 1-1210 1-1213 1-1216 1-1219 error_code_2 parameter position 4 integer ref 1-1022 1-1024 1-1046 1-1068 1-1090 1-1112 1-1134 1-1156 1-1178 1-1200 1-1222 1-1226 1-1235 1-1239 1-1248 i1 parameter position 2 integer ref 1-1015 1-1024 1-1028 1-1031 1-1034 1-1037 1-1040 1-1043 1-1046 1-1050 1-1053 1-1056 1-1059 1-1062 1-1065 1-1068 1-1072 1-1075 1-1078 1-1081 1-1084 1-1087 i2 parameter position 3 integer ref 1-1015 1-1024 1-1028 1-1031 1-1034 1-1037 1-1040 1-1043 1-1090 1-1094 1-1097 1-1100 1-1103 1-1106 1-1109 1-1156 1-1160 1-1163 1-1166 1-1169 1-1172 1-1175 l1 parameter position 2 logical ref 1-1019 1-1235 1-1242 1-1245 l2 parameter position 3 logical ref 1-1019 1-1235 1-1242 1-1245 op_id parameter position 1 integer ref 1-1021 1-1024 1-1026 1-1046 1-1048 1-1068 1-1070 1-1090 1-1092 1-1112 1-1114 1-1134 1-1136 1-1156 1-1158 1-1178 1-1180 1-1200 1-1202 1-1222 1-1224 1-1235 1-1237 1-1248 1-1250 r1 parameter position 2 real ref 1-1016 1-1090 1-1094 1-1097 1-1100 1-1103 1-1106 1-1109 1-1112 1-1116 1-1119 1-1122 1-1125 1-1128 1-1131 1-1134 1-1138 1-1141 1-1144 1-1147 1-1150 1-1153 r2 parameter position 3 real ref 1-1016 1-1046 1-1050 1-1053 1-1056 1-1059 1-1062 1-1065 1-1112 1-1116 1-1119 1-1122 1-1125 1-1128 1-1131 1-1178 1-1182 1-1185 1-1188 1-1191 1-1194 1-1197 to_log entry point 00005517 constant logical on line 1-1007 to_log 00000146 automatic logical ref 1-1007 1-1009 1-1028 1-1031 1-1034 1-1037 1-1040 1-1043 1-1050 1-1053 1-1056 1-1059 1-1062 1-1065 1-1072 1-1075 1-1078 1-1081 1-1084 1-1087 1-1094 1-1097 1-1100 1-1103 1-1106 1-1109 1-1116 1-1119 1-1122 1-1125 1-1128 1-1131 1-1138 1-1141 1-1144 1-1147 1-1150 1-1153 1-1160 1-1163 1-1166 1-1169 1-1172 1-1175 1-1182 1-1185 1-1188 1-1191 1-1194 1-1197 1-1204 1-1207 1-1210 1-1213 1-1216 1-1219 1-1229 1-1232 1-1242 1-1245 1-1252 1-1255 1-1258 1-1261 1-1264 1-1267 NAMES DECLARED BUT NOT USED error_code_1 integer declared 1-1022 l_dum parameter position 1 logical declared 1-1007 1-1019 LOC LABEL TYPE LINE REFERENCES 005566 110 executable 1-1028 used in transfer ref 1-1026 005573 120 executable 1-1031 used in transfer ref 1-1026 005600 130 executable 1-1034 used in transfer ref 1-1026 005605 140 executable 1-1037 used in transfer ref 1-1026 005612 150 executable 1-1040 used in transfer ref 1-1026 005617 160 executable 1-1043 used in transfer ref 1-1026 005660 210 executable 1-1050 used in transfer ref 1-1048 005671 220 executable 1-1053 used in transfer ref 1-1048 005702 230 executable 1-1056 used in transfer ref 1-1048 005713 240 executable 1-1059 used in transfer ref 1-1048 005724 250 executable 1-1062 used in transfer ref 1-1048 005735 260 executable 1-1065 used in transfer ref 1-1048 006002 310 executable 1-1072 used in transfer ref 1-1070 006013 320 executable 1-1075 used in transfer ref 1-1070 006024 330 executable 1-1078 used in transfer ref 1-1070 006035 340 executable 1-1081 used in transfer ref 1-1070 006046 350 executable 1-1084 used in transfer ref 1-1070 006057 360 executable 1-1087 used in transfer ref 1-1070 006124 510 executable 1-1094 used in transfer ref 1-1092 006135 520 executable 1-1097 used in transfer ref 1-1092 006146 530 executable 1-1100 used in transfer ref 1-1092 006157 540 executable 1-1103 used in transfer ref 1-1092 006170 550 executable 1-1106 used in transfer ref 1-1092 006201 560 executable 1-1109 used in transfer ref 1-1092 006246 610 executable 1-1116 used in transfer ref 1-1114 006253 620 executable 1-1119 used in transfer ref 1-1114 006260 630 executable 1-1122 used in transfer ref 1-1114 006265 640 executable 1-1125 used in transfer ref 1-1114 006272 650 executable 1-1128 used in transfer ref 1-1114 006277 660 executable 1-1131 used in transfer ref 1-1114 006340 710 executable 1-1138 used in transfer ref 1-1136 006345 720 executable 1-1141 used in transfer ref 1-1136 006352 730 executable 1-1144 used in transfer ref 1-1136 006357 740 executable 1-1147 used in transfer ref 1-1136 006364 750 executable 1-1150 used in transfer ref 1-1136 006371 760 executable 1-1153 used in transfer ref 1-1136 006432 910 executable 1-1160 used in transfer ref 1-1158 006443 920 executable 1-1163 used in transfer ref 1-1158 006454 930 executable 1-1166 used in transfer ref 1-1158 006465 940 executable 1-1169 used in transfer ref 1-1158 006476 950 executable 1-1172 used in transfer ref 1-1158 006507 960 executable 1-1175 used in transfer ref 1-1158 006554 1010 executable 1-1182 used in transfer ref 1-1180 006561 1020 executable 1-1185 used in transfer ref 1-1180 006566 1030 executable 1-1188 used in transfer ref 1-1180 006573 1040 executable 1-1191 used in transfer ref 1-1180 006600 1050 executable 1-1194 used in transfer ref 1-1180 006605 1060 executable 1-1197 used in transfer ref 1-1180 006646 1110 executable 1-1204 used in transfer ref 1-1202 006653 1120 executable 1-1207 used in transfer ref 1-1202 006660 1130 executable 1-1210 used in transfer ref 1-1202 006665 1140 executable 1-1213 used in transfer ref 1-1202 006672 1150 executable 1-1216 used in transfer ref 1-1202 006677 1160 executable 1-1219 used in transfer ref 1-1202 006737 1630 executable 1-1229 used in transfer ref 1-1224 006746 1640 executable 1-1232 used in transfer ref 1-1224 007010 2530 executable 1-1242 used in transfer ref 1-1237 007015 2540 executable 1-1245 used in transfer ref 1-1237 007056 3610 executable 1-1252 used in transfer ref 1-1250 007066 3620 executable 1-1255 used in transfer ref 1-1250 007076 3630 executable 1-1258 used in transfer ref 1-1250 007106 3640 executable 1-1261 used in transfer ref 1-1250 007116 3650 executable 1-1264 used in transfer ref 1-1250 007126 3660 executable 1-1267 used in transfer ref 1-1250 007135 9999 executable 1-1270 used in transfer ref 1-1029 1-1032 1-1035 1-1038 1-1041 1-1044 1-1051 1-1054 1-1057 1-1060 1-1063 1-1066 1-1073 1-1076 1-1079 1-1082 1-1085 1-1088 1-1095 1-1098 1-1101 1-1104 1-1107 1-1110 1-1117 1-1120 1-1123 1-1126 1-1129 1-1132 1-1139 1-1142 1-1145 1-1148 1-1151 1-1154 1-1161 1-1164 1-1167 1-1170 1-1173 1-1176 1-1183 1-1186 1-1189 1-1192 1-1195 1-1198 1-1205 1-1208 1-1211 1-1214 1-1217 1-1220 1-1227 1-1230 1-1233 1-1240 1-1243 1-1246 1-1253 1-1256 1-1259 1-1262 1-1265 1-1268 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-1007 005513 1-1024 005532 1-1026 005552 1-1028 005566 1-1029 005572 1-1031 005573 1-1032 005577 1-1034 005600 1-1035 005604 1-1037 005605 1-1038 005611 1-1040 005612 1-1041 005616 1-1043 005617 1-1044 005623 1-1046 005624 1-1048 005644 1-1050 005660 1-1051 005670 1-1053 005671 1-1054 005701 1-1056 005702 1-1057 005712 1-1059 005713 1-1060 005723 1-1062 005724 1-1063 005734 1-1065 005735 1-1066 005745 1-1068 005746 1-1070 005766 1-1072 006002 1-1073 006012 1-1075 006013 1-1076 006023 1-1078 006024 1-1079 006034 1-1081 006035 1-1082 006045 1-1084 006046 1-1085 006056 1-1087 006057 1-1088 006067 1-1090 006070 1-1092 006110 1-1094 006124 1-1095 006134 1-1097 006135 1-1098 006145 1-1100 006146 1-1101 006156 1-1103 006157 1-1104 006167 1-1106 006170 1-1107 006200 1-1109 006201 1-1110 006211 1-1112 006212 1-1114 006232 1-1116 006246 1-1117 006252 1-1119 006253 1-1120 006257 1-1122 006260 1-1123 006264 1-1125 006265 1-1126 006271 1-1128 006272 1-1129 006276 1-1131 006277 1-1132 006303 1-1134 006304 1-1136 006324 1-1138 006340 1-1139 006344 1-1141 006345 1-1142 006351 1-1144 006352 1-1145 006356 1-1147 006357 1-1148 006363 1-1150 006364 1-1151 006370 1-1153 006371 1-1154 006375 1-1156 006376 1-1158 006416 1-1160 006432 1-1161 006442 1-1163 006443 1-1164 006453 1-1166 006454 1-1167 006464 1-1169 006465 1-1170 006475 1-1172 006476 1-1173 006506 1-1175 006507 1-1176 006517 1-1178 006520 1-1180 006540 1-1182 006554 1-1183 006560 1-1185 006561 1-1186 006565 1-1188 006566 1-1189 006572 1-1191 006573 1-1192 006577 1-1194 006600 1-1195 006604 1-1197 006605 1-1198 006611 1-1200 006612 1-1202 006632 1-1204 006646 1-1205 006652 1-1207 006653 1-1208 006657 1-1210 006660 1-1211 006664 1-1213 006665 1-1214 006671 1-1216 006672 1-1217 006676 1-1219 006677 1-1220 006703 1-1222 006704 1-1224 006724 1-1226 006734 1-1227 006736 1-1229 006737 1-1230 006745 1-1232 006746 1-1233 006754 1-1235 006755 1-1237 006775 1-1239 007005 1-1240 007007 1-1242 007010 1-1243 007014 1-1245 007015 1-1246 007021 1-1248 007022 1-1250 007042 1-1252 007056 1-1253 007065 1-1255 007066 1-1256 007075 1-1258 007076 1-1259 007105 1-1261 007106 1-1262 007115 1-1264 007116 1-1265 007125 1-1267 007126 1-1268 007135 1-1270 007135 1-1271 007135 Function misc_ops 1 1273 %options truncate; 1 1274 c ======================================== 1 1275 c Miscellaneous "do-nothing" entries 1 1276 c 1 1277 c Written: 06/29/79 by Paul E. Smee 1 1278 c 1 1279 c Modified: 1 1280 c ======================================== 1 1281 1 1282 function misc_ops (ch_dum) 1 1283 1 1284 character*8 misc_ops 1 1285 character*8 bad_data_types, binop_ch_ch, binop_lg_lg 1 1286 character*8 binop_no_op, unary_no_op, conv_ch_to_ch 1 1287 character*8 unary_bad_data 1 1288 1 1289 character*8 ch0, ch1, ch2, ch_dum 1 1290 integer op_id 1 1291 integer error_code_1, error_code_2 1 1292 1 1293 entry bad_data_types (op_id, ch1, ch2, error_code_2) 1 1294 1 1295 error_code_2 = -1 1 1296 misc_ops = ch1 1 1297 1 1298 return 1 1299 1 1300 entry unary_bad_data (ch0, error_code_1) 1 1301 1 1302 error_code_1 = -1 1 1303 misc_ops = ch0 1 1304 1 1305 return 1 1306 1 1307 entry binop_ch_ch (op_id, ch1, ch2, error_code_2) 1 1308 1 1309 error_code_2 = -2 1 1310 misc_ops = ch1 1 1311 1 1312 return 1 1313 1 1314 entry binop_lg_lg (op_id, ch1, ch2, error_code_2) 1 1315 1 1316 error_code_2 = -2 1 1317 misc_ops = ch1 1 1318 1 1319 return 1 1320 1 1321 entry binop_no_op (op_id, ch1, ch2, error_code_2) 1 1322 1 1323 misc_ops = ch1 1 1324 1 1325 return 1 1326 1 1327 entry unary_no_op (ch0, error_code_1) 1 1328 1 1329 misc_ops = ch0 1 1330 1 1331 return 1 1332 1 1333 entry conv_ch_to_ch (ch0, error_code_1) 1 1334 1 1335 misc_ops = ch0 1 1336 1 1337 return 1 1338 end Function misc_ops NAMES USED IN THIS PROGRAM UNIT NAME TYPE OF NAME LOC STORAGE ATTRIBUTES AND REFERENCES bad_data_types entry point 00007164 constant character(8) on line 1-1285 1-1293 binop_ch_ch entry point 00007250 constant character(8) on line 1-1285 1-1307 binop_lg_lg entry point 00007303 constant character(8) on line 1-1285 1-1314 binop_no_op entry point 00007336 constant character(8) on line 1-1286 1-1321 ch0 parameter position 1 character(8) ref 1-1289 1-1300 1-1303 1-1327 1-1329 1-1333 1-1335 ch1 parameter position 2 character(8) ref 1-1289 1-1293 1-1296 1-1307 1-1310 1-1314 1-1317 1-1321 1-1323 conv_ch_to_ch entry point 00007416 constant character(8) on line 1-1286 1-1333 error_code_1 parameter position 2 integer ref 1-1291 1-1300 1-1302 1-1327 1-1333 error_code_2 parameter position 4 integer ref 1-1291 1-1293 1-1295 1-1307 1-1309 1-1314 1-1316 1-1321 misc_ops 00000150 automatic character(8) ref 1-1282 1-1284 1-1296 1-1303 1-1310 1-1317 1-1323 1-1329 1-1335 misc_ops entry point 00007144 constant character(8) on line 1-1282 unary_bad_data entry point 00007215 constant character(8) on line 1-1287 1-1300 unary_no_op entry point 00007366 constant character(8) on line 1-1286 1-1327 NAMES DECLARED BUT NOT USED ch2 parameter position 3 character(8) declared 1-1289 1-1293 1-1307 1-1314 1-1321 ch_dum parameter position 1 character(8) declared 1-1282 1-1289 op_id parameter position 1 integer declared 1-1290 1-1293 1-1307 1-1314 1-1321 LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 1-1282 007140 1-1293 007157 1-1295 007177 1-1296 007201 1-1298 007204 1-1300 007211 1-1302 007230 1-1303 007232 1-1305 007236 1-1307 007243 1-1309 007263 1-1310 007265 1-1312 007271 1-1314 007276 1-1316 007316 1-1317 007320 1-1319 007324 1-1321 007331 1-1323 007351 1-1325 007355 1-1327 007362 1-1329 007401 1-1331 007405 1-1333 007412 1-1335 007431 1-1337 007435 OBJECT SEGMENT SUMMARY STORAGE REQUIREMENTS FOR THIS PROGRAM Object Text Link Symbol Defs Static Start 0 0 7470 10714 7502 7500 Length 11666 7470 12 735 1212 0 Stack frame is 576 (decimal) words. ENTRY POINT LOC ATTRIBUTES bad_data_types 007164 in misc_ops on line 1-1285 binop_ch_ch 007250 in misc_ops on line 1-1285 binop_cp_cp_round 003544 in to_cp_round on line 1-662 binop_cp_cp_trunc 005000 in to_cp_trunc on line 1-837 binop_cp_dp_round 003427 in to_cp_round on line 1-661 binop_cp_dp_trunc 004663 in to_cp_trunc on line 1-836 binop_cp_i_round 003150 in to_cp_round on line 1-661 binop_cp_i_trunc 004404 in to_cp_trunc on line 1-836 binop_cp_r_round 003314 in to_cp_round on line 1-661 binop_cp_r_trunc 004550 in to_cp_trunc on line 1-836 binop_dp_cp_round 003670 in to_cp_round on line 1-662 binop_dp_cp_trunc 005124 in to_cp_trunc on line 1-837 binop_dp_dp_round 002026 in to_dp_round on line 1-389 binop_dp_dp_trunc 002562 in to_dp_trunc on line 1-525 binop_dp_i_round 001651 in to_dp_round on line 1-389 binop_dp_i_trunc 002405 in to_dp_trunc on line 1-525 binop_dp_r_round 001746 in to_dp_round on line 1-389 binop_dp_r_trunc 002502 in to_dp_trunc on line 1-525 binop_i_cp_round 004114 in to_cp_round on line 1-663 binop_i_cp_trunc 005350 in to_cp_trunc on line 1-838 binop_i_dp_round 002173 in to_dp_round on line 1-390 binop_i_dp_trunc 002727 in to_dp_trunc on line 1-526 binop_i_i_round 000255 in to_i_round on line 1-57 binop_i_i_trunc 000462 in to_i_trunc on line 1-136 binop_i_r_round 001043 in to_r_round on line 1-195 binop_i_r_trunc 001437 in to_r_trunc on line 1-292 binop_lg_lg 007303 in misc_ops on line 1-1285 binop_no_op 007336 in misc_ops on line 1-1286 binop_r_cp_round 004004 in to_cp_round on line 1-662 binop_r_cp_trunc 005240 in to_cp_trunc on line 1-837 binop_r_dp_round 002113 in to_dp_round on line 1-390 binop_r_dp_trunc 002647 in to_dp_trunc on line 1-526 binop_r_i_round 000661 in to_r_round on line 1-195 binop_r_i_trunc 001255 in to_r_trunc on line 1-292 binop_r_r_round 000756 in to_r_round on line 1-195 binop_r_r_trunc 001352 in to_r_trunc on line 1-292 comp_ch_ch 007027 in to_log on line 1-1013 comp_cp_cp 006711 in to_log on line 1-1013 comp_dp_dp 006617 in to_log on line 1-1012 comp_dp_i 006403 in to_log on line 1-1012 comp_dp_r 006525 in to_log on line 1-1012 comp_i_dp 005753 in to_log on line 1-1010 comp_i_i 005537 in to_log on line 1-1010 comp_i_r 005631 in to_log on line 1-1010 comp_lg_lg 006762 in to_log on line 1-1013 comp_r_dp 006311 in to_log on line 1-1011 comp_r_i 006075 in to_log on line 1-1011 comp_r_r 006217 in to_log on line 1-1011 conv_ch_to_ch 007416 in misc_ops on line 1-1286 conv_cp_to_dp_round 001625 in to_dp_round on line 1-388 conv_cp_to_dp_trunc 002361 in to_dp_trunc on line 1-524 conv_cp_to_i_round 000226 in to_i_round on line 1-57 conv_cp_to_i_trunc 000433 in to_i_trunc on line 1-136 conv_cp_to_r_round 000635 in to_r_round on line 1-194 conv_cp_to_r_trunc 001231 in to_r_trunc on line 1-291 conv_dp_to_cp_round 003123 in to_cp_round on line 1-660 conv_dp_to_cp_trunc 004357 in to_cp_trunc on line 1-835 conv_dp_to_i_round 000162 in to_i_round on line 1-57 conv_dp_to_i_trunc 000406 in to_i_trunc on line 1-136 conv_dp_to_r_round 000613 in to_r_round on line 1-194 conv_dp_to_r_trunc 001207 in to_r_trunc on line 1-291 conv_i_to_cp_round 003046 in to_cp_round on line 1-660 conv_i_to_cp_trunc 004302 in to_cp_trunc on line 1-835 conv_i_to_dp_round 001556 in to_dp_round on line 1-388 conv_i_to_dp_trunc 002312 in to_dp_trunc on line 1-524 conv_i_to_r_round 000566 in to_r_round on line 1-194 conv_i_to_r_trunc 001162 in to_r_trunc on line 1-291 conv_r_to_cp_round 003077 in to_cp_round on line 1-660 conv_r_to_cp_trunc 004333 in to_cp_trunc on line 1-835 conv_r_to_dp_round 001603 in to_dp_round on line 1-388 conv_r_to_dp_trunc 002337 in to_dp_trunc on line 1-524 conv_r_to_i_round 000116 in to_i_round on line 1-57 conv_r_to_i_trunc 000361 in to_i_trunc on line 1-136 fort_parm_math 000014 on line 1-19 misc_ops 007144 on line 1-1282 to_cp_round 003027 on line 1-657 to_cp_trunc 004263 on line 1-832 to_dp_round 001537 on line 1-385 to_dp_trunc 002273 on line 1-521 to_i_round 000077 on line 1-54 to_i_trunc 000342 on line 1-133 to_log 005517 on line 1-1007 to_r_round 000547 on line 1-191 to_r_trunc 001143 on line 1-288 unary_bad_data 007215 in misc_ops on line 1-1287 unary_no_op 007366 in misc_ops on line 1-1286 version 000052 on line 1-37 ref in fort_parm_math 1-22 1-23 1-25 EXTERNAL REFERENCE LOC ATTRIBUTES ioa_ 000010 in fort_parm_math ref 1-21 1-25 NO COMMON BLOCKS SOURCE FILES USED IN THIS COMPILATION LINE NUMBER DATE MODIFIED PATHNAME 0 12/27/84 0751.4 >spec>online>fort_recompile>fort_bfp_math.fortran 15 1 12/21/84 1237.8 >ldd>include>fort_math.incl.fortran ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved