$ SET NOVERIFY %DCL-I-SUPERSEDE, previous value of POOLKU2A has been superseded %DCL-W-UNDSYM, undefined symbol - check validity and spelling %DCL-W-PARMDEL, invalid parameter delimiter - check use of special characters \$\ $ IF "BATCH" .EQS. "BATCH" THEN EXIT $SETNEWDF $FOR/G/LIS REPACKDI $TYPE REPACKDI 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 1 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 0001 PROGRAM REPACKDI 0002 IMPLICIT REAL*8 (A-H,O-Z) 0003 INTEGER*2 IELION,IELO,IGFLOG,IGR,IGS,IGW 0004 COMMON /IIIIIII/IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW 0005 INTEGER*4 IIIIIII(4),PACK8000 0006 EQUIVALENCE (IIIIIII(1),IWL) 0007 COMMON /PACK8000/PACK8000(4,2000) 0008 DIMENSION MOLCODES(31),ISOX(31) 0009 DIMENSION NELIONOLD(1005) 0010 DIMENSION NELIONOLDA(209),NELIONOLDB(286),NELIONOLDC(95) 0011 DIMENSION NELIONOLDD( 95),NELIONOLDE( 95),NELIONOLDF(60) 0012 DIMENSION NELIONOLDG(165) 0013 EQUIVALENCE (NELIONOLD( 1),NELIONOLDA(1)) 0014 EQUIVALENCE (NELIONOLD(210),NELIONOLDB(1)) 0015 EQUIVALENCE (NELIONOLD(496),NELIONOLDC(1)) 0016 EQUIVALENCE (NELIONOLD(591),NELIONOLDD(1)) 0017 EQUIVALENCE (NELIONOLD(686),NELIONOLDE(1)) 0018 EQUIVALENCE (NELIONOLD(781),NELIONOLDF(1)) 0019 EQUIVALENCE (NELIONOLD(841),NELIONOLDG(1)) 0020 DATA NELIONOLDA/ 0021 1 1, 2, 0022 2 7, 8, 9, 0023 3 13, 14, 15, 16, 0024 4 19, 20, 21, 22, 23, 0025 5 25, 26, 27, 28, 29, 30, 0026 6 31, 32, 33, 34, 35, 36,0, 0027 7 37, 38, 39, 40, 41, 42,0,0, 0028 8 43, 44, 45, 46, 47, 48,0,0,0, 0029 9 49, 50, 51, 52, 53, 54,0,0,0,0, 0030 A 55, 56, 57, 58, 59, 60,0,0,0,0,0, 0031 1 61, 62, 63, 64, 65, 66,0,0,0,0,0,0, 0032 2 67, 68, 69, 70, 71, 72,0,0,0,0,0,0,0, 0033 3 73, 74, 75, 76, 77, 78,0,0,0,0,0,0,0,0, 0034 4 79, 80, 81, 82, 83, 84,0,0,0,0,0,0,0,0,0, 0035 5 85, 86, 87, 88, 89, 90,0,0,0,0,0,0,0,0,0,0, 0036 6 91, 92, 93, 94, 95, 96,0,0,0,0,0,0,0,0,0,0,0, 0037 7 97, 98, 99,100,101, 0,0,0,0,0,0,0,0,0,0,0,0,0, 0038 8 103,104,105,106,107, 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0039 9 109,110,111,112,113, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0/ 0040 DATA NELIONOLDB/ 0041 A 115,116,117,118,119,120,299,359,419,479, 11*0, 0042 1 121,122,123,124,125,126,305,365,425,485, 12*0, 0043 2 127,128,129,130,131,132,311,371,431,491, 13*0, 0044 3 133,134,135,136,137,138,317,377,437,497, 14*0, 0045 4 139,140,141,142,143,144,323,383,443,503, 15*0, 0046 5 145,146,147,148,149,150,329,389,449,509, 16*0, 0047 6 151,152,153,154,155,156,335,395,455,515, 17*0, 0048 7 157,158,159,160,161,162,341,401,461,521, 18*0, 0049 8 163,164,165,166,167,168,347,407,467,527, 19*0, 0050 9 169,170,171, 27*0, 0051 A 175,176,177, 28*0/ 0052 DATA NELIONOLDC/ 0053 1 181,182,183, 0, 0, 0054 2 187,188,189, 0, 0, 0055 3 193,194,195, 0, 0, 0056 4 199,200,201, 0, 0, 0057 5 205,206,207, 0, 0, REPACKDI 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 2 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 0058 6 211,212,213, 0, 0, 0059 7 217,218,219, 0, 0, 0060 8 223,224,225, 0, 0, 0061 9 229,230,231, 0, 0, 0062 A 235,236,237, 0, 0, 0063 1 241,242,243, 0, 0, 0064 2 247,248,249, 0, 0, 0065 3 253,254,255, 0, 0, 0066 4 259,260,261, 0, 0, 0067 5 265,266,267, 0, 0, 0068 6 271,272,273, 0, 0, 0069 7 277,278,279, 0, 0, 0070 8 283,284,285, 0, 0, 0071 9 289,290,291, 0, 0/ 0072 DATA NELIONOLDD/ 0073 A 295,296,297, 0, 0, 0074 1 301,302,303, 0, 0, 0075 2 307,308,309, 0, 0, 0076 3 313,314,315, 0, 0, 0077 4 319,320,321, 0, 0, 0078 5 325,326,327, 0, 0, 0079 6 331,332,333, 0, 0, 0080 7 337,338,339, 0, 0, 0081 8 343,344,345, 0, 0, 0082 9 349,350,351, 0, 0, 0083 A 355,356,357, 0, 0, 0084 1 361,362,363, 0, 0, 0085 2 367,368,369, 0, 0, 0086 3 373,374,375, 0, 0, 0087 4 379,380,381, 0, 0, 0088 5 385,386,387, 0, 0, 0089 6 391,392,393, 0, 0, 0090 7 397,398,399, 0, 0, 0091 8 403,404,405, 0, 0/ 0092 DATA NELIONOLDE/ 0093 9 409,410,411, 0, 0, 0094 A 415,416,417, 0, 0, 0095 1 421,422,423, 0, 0, 0096 2 427,428,429, 0, 0, 0097 3 433,434,435, 0, 0, 0098 4 439,440,441, 0, 0, 0099 5 445,446,447, 0, 0, 0100 6 451,452,453, 0, 0, 0101 7 457,458,459, 0, 0, 0102 8 463,464,465, 0, 0, 0103 9 469,470,471, 0, 0, 0104 A 475,476,477, 0, 0, 0105 1 481,482,483, 0, 0, 0106 2 487,488,489, 0, 0, 0107 3 493,494,495, 0, 0, 0108 4 499,500,501, 0, 0, 0109 5 505,506,507, 0, 0, 0110 6 511,512,513, 0, 0, 0111 7 517,518,519, 0, 0/ 0112 DATA NELIONOLDF/ 0113 8 523,524,525, 0, 0, 0114 9 529,530,531, 0, 0, REPACKDI 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 3 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 0115 A 535,536,537, 0, 0, 0116 1 541,542,543, 0, 0, 0117 2 547,548,549, 0, 0, 0118 3 553,554,555, 0, 0, 0119 4 559,560,561, 0, 0, 0120 5 565,566,567, 0, 0, 0121 6 571,572,573, 0, 0, 0122 7 577,578,579, 0, 0, 0123 8 583,584,585, 0, 0, 0124 9 589,590,591, 0, 0/ 0125 c H2 841 240 0126 c HeH 842 0127 c LiH 843 378 0128 c BeH 844 384 0129 c BH 845 390 0130 c CH 846 246 0131 c NH 847 252 0132 c OH 848 258 0133 c HF 849 396 0134 c NaH 850 0135 c MgH 851 300 0136 c AlH 852 306 0137 c SiH 853 312 0138 c PH 854 402 0139 c HS 855 336 0140 c HCl 856 408 0141 c KH 857 0142 c CaH 858 342 0143 c ScH 859 414 0144 c TiH 860 420 0145 c VH 861 426 0146 c CrH 862 432 0147 c MnH 863 438 0148 c FeH 864 444 0149 c CoH 865 558 0150 c NiH 866 564 0151 c CuH 867 570 0152 c C2 868 264 0153 c CN 869 270 0154 c CO 870 276 0155 c CF 871 0156 c SiC 872 0157 c CP 873 0158 c CS 874 0159 c N2 875 282 0160 c NO 876 288 0161 c NF 877 0162 c SiN 878 0163 c PN 879 0164 c NS 880 0165 c LiO 881 0166 c BeO 882 492 0167 c BO 883 498 0168 c O2 884 294 0169 c FO 885 0170 c NaO 886 0171 c MgO 887 318 REPACKDI 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 4 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 0172 c AlO 888 324 0173 c SiO 889 330 0174 c PO 890 504 0175 c SO 891 348 0176 c ClO 892 510 0177 c CaO 893 354 0178 c ScO 894 360 0179 c TiO 895 366 0180 c VO 896 372 0181 c CrO 897 516 0182 c MnO 898 522 0183 c FeO 899 528 0184 c CoO 900 576 0185 c NiO 901 582 0186 c CuO 902 588 0187 c GeO 903 0188 c SrO 904 0189 c YO 905 0190 c ZrO 906 0191 c NbO 907 0192 c Si2 908 0193 c SiS 909 0194 c S2 910 0195 c TiS 911 0196 c ZrS 912 0197 c H2+ 913 0198 c HeH+ 914 0199 c LiH+ 915 0200 c CH+ 916 450 0201 c NH+ 917 456 0202 c OH+ 918 462 0203 c HF+ 919 0204 c NeH+ 920 0205 c MgH+ 921 468 0206 c AlH+ 922 474 0207 c SiH+ 923 480 0208 c PH+ 924 0209 c SH+ 925 0210 c HCl+ 926 0211 c CaH+ 927 486 0212 c He2+ 928 0213 c C2+ 929 0214 c CN+ 930 0215 c CO+ 931 594 0216 c N2+ 932 0217 c NO+ 933 0218 c NS+ 934 0219 c O2+ 935 0220 c SiO+ 936 0221 c PO+ 937 0222 c SO+ 938 0223 c S2+ 939 0224 c H2O 940 534 0225 c CO2 941 540 0226 c CH2 942 546 0227 c C2H 943 0228 c C2N 944 REPACKDI 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 5 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 0229 c C3 945 552 0230 c O3 946 0231 c NO2 947 0232 c N2O 948 0233 c NH2 949 0234 c HCO 950 0235 c HCN 951 0236 c HNO 952 0237 c SiC2 953 0238 c NaOH 954 0239 c MgOH 955 0240 c AlOH 956 0241 c KOH 957 0242 c CaOH 958 0243 c AlOF 959 0244 c AlOCl 960 0245 c Al2O 961 0246 c SH2 962 0247 c CaF2 963 0248 c CaCl2 964 0249 c COS 965 0250 c SiO2 966 0251 c SO2 967 0252 c TiO2 968 0253 c VO2 969 0254 c NH3 970 0255 c CH3 971 0256 c C2H2 972 0257 c C3H 973 0258 c C2N2 974 0259 c CH4 975 0260 c H- 976 0261 c Li- 977 0262 c C- 978 0263 c O- 979 0264 c F- 980 0265 c Na- 981 0266 c Al- 982 0267 c Si- 983 0268 c P- 984 0269 c S- 985 0270 c Cl- 986 0271 c K- 987 0272 c Sc- 988 0273 c Ti- 989 0274 c V- 990 0275 c Cr- 991 0276 c Fe- 992 0277 c Co- 993 0278 c Ni- 994 0279 c Cu- 995 0280 c C2- 996 0281 c CH- 997 0282 c CN- 998 0283 c CO- 999 0284 c N2- 1000 0285 c NO- 1001 REPACKDI 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 6 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 0286 c OH- 1002 0287 c O2- 1003 0288 c S2- 1004 0289 c SH- 1005 0290 C 0291 DATA NELIONOLDG/ 0292 1 240, 0,378,384,390,246,252,258,396, 0, 0293 2 300,306,312,402,336,408, 0,342,414,420, 0294 3 426,432,438,444,558,564,570,264,270,276, 0295 4 0, 0, 0, 0,282,288, 0, 0, 0, 0, 0296 5 0,492,498,294, 0, 0,318,324,330,504, 0297 6 348,510,354,360,366,372,516,522,528,576, 0298 7 582,588, 0, 0, 0, 0, 0, 0, 0, 0, 0299 8 0, 0, 0, 0, 0,450,456,462, 0, 0, 0300 9 468,474,480, 0, 0, 0,486, 0, 0, 0, 0301 A 594, 0, 0, 0, 0, 0, 0, 0, 0,534, 0302 1 540,546, 0, 0,552, 0, 0, 0, 0, 0, 0303 2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0304 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0305 4 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0306 5 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0307 6 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0308 7 0, 0, 0, 0, 0/ 0309 DATA MOLCODES/ 0310 1 8410, 8460, 8461, 8470, 8471, 8480, 8481, 8482, 8510, 8511, 0311 2 8512, 8530, 8531, 8532, 8680, 8681, 8682, 8690, 8691, 8692, 0312 3 8693, 8700, 8701, 8702, 8703, 8704, 8705, 8890, 8891, 8892, 8896/ 0313 C 0314 C DIATOMICS 0315 C H2 0316 ISOX(01)=-0 0317 C 12CH 0318 ISOX(02)=-005 0319 C 13CH 0320 ISOX(03)=-1955 0321 C 14NH 0322 ISOX(04)=-002 0323 C 15NH 0324 ISOX(05)=-2444 0325 C 16OH 0326 ISOX(06)=-001 0327 C 17OH 0328 ISOX(07)=-3398 0329 C 18OH 0330 ISOX(08)=-2690 0331 C 24MgH 0332 ISOX(09)=-105 0333 C 25MgH 0334 ISOX(10)=-996 0335 C 26MgH 0336 ISOX(11)=-947 0337 C 28SiH 0338 ISOX(12)=-035 0339 C 29SiH 0340 ISOX(13)=-1331 0341 C 30SiH 0342 ISOX(14)=-1516 REPACKDI 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 7 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 0343 C 12C12C 0344 ISOX(15)=-005-005 0345 C 12C13C 0346 ISOX(16)=-005-1955 0347 C 13C13C 0348 ISOX(17)=-1955-1955 0349 C 12C14N 0350 ISOX(18)=-005-002 0351 C 13C14N 0352 ISOX(19)=-1955-002 0353 C 12C15N 0354 ISOX(20)=-005-2444 0355 C 13C15N 0356 ISOX(21)=-1955-2444 0357 C 12C16O 0358 ISOX(22)=-005-001 0359 C 13C16O 0360 ISOX(23)=-1955-001 0361 C 12C17O 0362 ISOX(24)=-005-3398 0363 C 13C17O 0364 ISOX(25)=-1955-3398 0365 C 12C18O 0366 ISOX(26)=-005-2690 0367 C 13C18O 0368 ISOX(27)=-1955-2690 0369 C 28Si16O 0370 ISOX(28)=-001-035 0371 C 29SI16O 0372 ISOX(29)=-001-1331 0373 C 30SI16O 0374 ISOX(30)=-001-1516 0375 C 28Si18O 0376 ISOX(31)=-2690-035 0377 RATIOLOG=LOG(1.D0+1.D0/2000000.D0) 0378 RATIOLG=LOG(1.D0+1.D0/500000.D0) 0379 WLBEG=8.97666 0380 WLEND=10000. 0381 IXWLBEG=DLOG(WLBEG)/RATIOLG 0382 IF(DEXP(IXWLBEG*RATIOLG).LT.WLBEG)IXWLBEG=IXWLBEG+1 0383 IWLSTART=DLOG(WLBEG)/RATIOLOG+.5 0384 IWLSTOP=DLOG(WLEND)/RATIOLOG+.5 0385 NLINES=0 0386 OPEN(UNIT=11,TYPE='OLD',FORM='UNFORMATTED', 0387 1RECORDTYPE='FIXED',BLOCKSIZE=8000,RECL=4) 0388 OPEN(UNIT=12,TYPE='NEW',FORM='UNFORMATTED', 0389 1RECORDTYPE='FIXED',BLOCKSIZE=32000,RECL=8000) 0390 MOLCODEOLD=0 0391 DO 5 LINE=1,50000000 0392 READ(11,END=11)IIIIIII 0393 IF(IWL.LT.IWLSTART)GO TO 5 0394 IF(IWL.GT.IWLSTOP)GO TO 5 0395 MOLCODE=ABS(IELION) 0396 KGFLOG=IGFLOG 0397 IGS=1 0398 IF(MOLCODE.EQ.MOLCODEOLD)GO TO 8 0399 MOLCODEOLD=MOLCODE REPACKDI 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 8 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 0400 DO 7 IMOL=1,31 0401 IF(MOLCODE.EQ.MOLCODES(IMOL))GO TO 8 0402 7 CONTINUE 0403 PRINT 9,N,IIIIIII 0404 9 FORMAT(9I12) 0405 CALL ABORT 0406 8 IGFLOG=MAX(KGFLOG+ISOX(IMOL),1) 0407 NELION=ABS(IELION/10) 0408 NELIONNEW=ABS(IELION)/10 0409 IELION=NELIONOLD(NELIONNEW) 0410 WLVAC=EXP(IWL*RATIOLOG) 0411 IXWL=DLOG(WLVAC)/RATIOLG+.5D0 0412 IWL=IXWL-IXWLBEG+1 0413 CALL PACK(IIIIIII) 0414 NLINES=NLINES+1 0415 5 CONTINUE 0416 11 PRINT 1,NLINES 0417 1 FORMAT(I10,' LINES FROM DIATOMICS') 0418 CALL PACK(0) 0419 CALL EXIT 0420 END PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 660 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 35 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 4412 PIC CON REL LCL NOSHR NOEXE RD WRT QUAD 3 IIIIIII 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 PACK8000 32000 PIC OVR REL GBL SHR NOEXE RD WRT LONG Total Space Allocated 37123 ENTRY POINTS Address Type Name 0-00000000 REPACKDI VARIABLES Address Type Name Address Type Name Address Type Name Address Type Name 3-00000004 I*2 IELION 3-00000006 I*2 IELO 3-00000008 I*2 IGFLOG 3-0000000A I*2 IGR 3-0000000C I*2 IGS 3-0000000E I*2 IGW 2-000010D4 I*4 IMOL 3-00000000 I*4 IWL 2-000010C4 I*4 IWLSTART 2-000010C8 I*4 IWLSTOP ** I*4 IXWL 2-000010C0 I*4 IXWLBEG ** I*4 KGFLOG 2-000010D0 I*4 LINE ** I*4 MOLCODE 2-000010CC I*4 MOLCODEOLD 2-000010D8 I*4 N ** I*4 NELION ** I*4 NELIONNEW ** I*4 NLINES 2-000010B8 R*8 RATIOLG 2-000010B0 R*8 RATIOLOG ** R*8 WLBEG ** R*8 WLEND ** R*8 WLVAC REPACKDI 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 9 01 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 ARRAYS Address Type Name Bytes Dimensions 3-00000000 I*4 IIIIIII 16 (4) 2-00001030 I*4 ISOX 124 (31) 2-00000FB4 I*4 MOLCODES 124 (31) 2-00000000 I*4 NELIONOLD 4020 (1005) 2-00000000 I*4 NELIONOLDA 836 (209) 2-00000344 I*4 NELIONOLDB 1144 (286) 2-000007BC I*4 NELIONOLDC 380 (95) 2-00000938 I*4 NELIONOLDD 380 (95) 2-00000AB4 I*4 NELIONOLDE 380 (95) 2-00000C30 I*4 NELIONOLDF 240 (60) 2-00000D20 I*4 NELIONOLDG 660 (165) 4-00000000 I*4 PACK8000 32000 (4, 2000) LABELS Address Label Address Label Address Label Address Label Address Label Address Label 1-00000009 1' 0-00000259 5 ** 7 0-000001FB 8 1-00000004 9' 0-00000264 11 FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name Type Name Type Name Type Name ABORT FOR$EXIT FOR$OPEN R*8 MTH$GEXP R*8 MTH$GLOG PACK 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 10 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 0001 SUBROUTINE PACK(IIIIIII) 0002 INTEGER*4 PACK8000,IIIIIII(4) 0003 COMMON /PACK8000/PACK8000(4,2000) 0004 DATA IREC/0/ 0005 IF(IIIIIII(1).EQ.0)GO TO 1 0006 IREC=IREC+1 0007 PACK8000(1,IREC)=IIIIIII(1) 0008 PACK8000(2,IREC)=IIIIIII(2) 0009 PACK8000(3,IREC)=IIIIIII(3) 0010 PACK8000(4,IREC)=IIIIIII(4) 0011 IF(IREC.EQ.2000)THEN 0012 1 WRITE(12)PACK8000 0013 IREC=0 0014 ENDIF 0015 RETURN 0016 END PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 114 PIC CON REL LCL SHR EXE RD NOWRT LONG 2 $LOCAL 40 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 3 PACK8000 32000 PIC OVR REL GBL SHR NOEXE RD WRT LONG Total Space Allocated 32154 ENTRY POINTS Address Type Name 0-00000000 PACK VARIABLES Address Type Name 2-00000000 I*4 IREC ARRAYS Address Type Name Bytes Dimensions AP-00000004@ I*4 IIIIIII 16 (4) 3-00000000 I*4 PACK8000 32000 (4, 2000) PACK 26-Jun-2000 17:21:56 VAX FORTRAN V5.4-79 Page 11 01 29-Oct-1997 00:01:47 KU2C:[KURUCZ.NEWDF]REPACKDI.FOR;8 LABELS Address Label 0-00000052 1 COMMAND QUALIFIERS FORTRAN/G/LIS REPACKDI /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW) /DEBUG=(NOSYMBOLS,TRACEBACK) /DESIGN=(NOCOMMENTS,NOPLACEHOLDERS) /SHOW=(NODICTIONARY,NOINCLUDE,MAP,NOPREPROCESSOR,SINGLE) /STANDARD=(NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX) /WARNINGS=(NODECLARATIONS,GENERAL,NOULTRIX,NOVAXELN) /CONTINUATIONS=19 /NOCROSS_REFERENCE /NOD_LINES /NOEXTEND_SOURCE /F77 /G_FLOATING /I4 /NOMACHINE_CODE /OPTIMIZE /NOPARALLEL /NOANALYSIS_DATA /NODIAGNOSTICS /LIST=KU2C:[KURUCZ.NEWDF]REPACKDI.LIS;2 /OBJECT=KU2C:[KURUCZ.NEWDF]REPACKDI.OBJ;2 COMPILATION STATISTICS Run Time: 0.28 seconds Elapsed Time: 0.73 seconds Page Faults: 409 Dynamic Memory: 704 pages $LINK REPACKDI %LINK-W-NUDFSYMS, 1 undefined symbol: %LINK-I-UDFSYM, ABORT %LINK-W-USEUNDEF, undefined symbol ABORT referenced in psect $CODE offset %X000001F6 in module REPACKDI file KU2C:[KURUCZ.NEWDF]REPACKDI.OBJ;2 $ASSIGN K4F:DIATOMICSDF.DAT FOR012 $ASSIGN K4E:DIATOMICS.PCK FOR011 $RUN REPACKDI 7771848 LINES FROM DIATOMICS KURUCZ job terminated at 26-JUN-2000 17:33:01.22 Accounting information: Buffered I/O count: 2097 Peak working set size: 3347 Direct I/O count: 21331 Peak page file size: 6828 Page faults: 6362 Mounted volumes: 0 Charged CPU time: 0 00:06:46.27 Elapsed time: 0 00:11:06.58