$ SET NOVERIFY SYS$NODE = "CFAKU2::" (LNM$SYSTEM_TABLE) 31-MAR-1998 14:35:39 $ IF F$SEARCH("LOGIN.COM") .NES. "" THEN @LOGIN $ SET NOON ! IGC 15-APR-1987 $SET NOVERIFY %SET-I-NEWLIMS, new working set: Limit = 4000 Quota = 4000 Extent = 20000 %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 REPACKHI $TYPE REPACKHI 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 1 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 0001 PROGRAM REPACKHI 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 NELIONOLD(1005) 0009 DIMENSION NELIONOLDA(209),NELIONOLDB(286),NELIONOLDC(95) 0010 DIMENSION NELIONOLDD( 95),NELIONOLDE( 95),NELIONOLDF(60) 0011 DIMENSION NELIONOLDG(165) 0012 EQUIVALENCE (NELIONOLD( 1),NELIONOLDA(1)) 0013 EQUIVALENCE (NELIONOLD(210),NELIONOLDB(1)) 0014 EQUIVALENCE (NELIONOLD(496),NELIONOLDC(1)) 0015 EQUIVALENCE (NELIONOLD(591),NELIONOLDD(1)) 0016 EQUIVALENCE (NELIONOLD(686),NELIONOLDE(1)) 0017 EQUIVALENCE (NELIONOLD(781),NELIONOLDF(1)) 0018 EQUIVALENCE (NELIONOLD(841),NELIONOLDG(1)) 0019 DATA NELIONOLDA/ 0020 1 1, 2, 0021 2 7, 8, 9, 0022 3 13, 14, 15, 16, 0023 4 19, 20, 21, 22, 23, 0024 5 25, 26, 27, 28, 29, 30, 0025 6 31, 32, 33, 34, 35, 36,0, 0026 7 37, 38, 39, 40, 41, 42,0,0, 0027 8 43, 44, 45, 46, 47, 48,0,0,0, 0028 9 49, 50, 51, 52, 53, 54,0,0,0,0, 0029 A 55, 56, 57, 58, 59, 60,0,0,0,0,0, 0030 1 61, 62, 63, 64, 65, 66,0,0,0,0,0,0, 0031 2 67, 68, 69, 70, 71, 72,0,0,0,0,0,0,0, 0032 3 73, 74, 75, 76, 77, 78,0,0,0,0,0,0,0,0, 0033 4 79, 80, 81, 82, 83, 84,0,0,0,0,0,0,0,0,0, 0034 5 85, 86, 87, 88, 89, 90,0,0,0,0,0,0,0,0,0,0, 0035 6 91, 92, 93, 94, 95, 96,0,0,0,0,0,0,0,0,0,0,0, 0036 7 97, 98, 99,100,101, 0,0,0,0,0,0,0,0,0,0,0,0,0, 0037 8 103,104,105,106,107, 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0038 9 109,110,111,112,113, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0/ 0039 DATA NELIONOLDB/ 0040 A 115,116,117,118,119,120,299,359,419,479, 11*0, 0041 1 121,122,123,124,125,126,305,365,425,485, 12*0, 0042 2 127,128,129,130,131,132,311,371,431,491, 13*0, 0043 3 133,134,135,136,137,138,317,377,437,497, 14*0, 0044 4 139,140,141,142,143,144,323,383,443,503, 15*0, 0045 5 145,146,147,148,149,150,329,389,449,509, 16*0, 0046 6 151,152,153,154,155,156,335,395,455,515, 17*0, 0047 7 157,158,159,160,161,162,341,401,461,521, 18*0, 0048 8 163,164,165,166,167,168,347,407,467,527, 19*0, 0049 9 169,170,171, 27*0, 0050 A 175,176,177, 28*0/ 0051 DATA NELIONOLDC/ 0052 1 181,182,183, 0, 0, 0053 2 187,188,189, 0, 0, 0054 3 193,194,195, 0, 0, 0055 4 199,200,201, 0, 0, 0056 5 205,206,207, 0, 0, 0057 6 211,212,213, 0, 0, REPACKHI 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 2 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 0058 7 217,218,219, 0, 0, 0059 8 223,224,225, 0, 0, 0060 9 229,230,231, 0, 0, 0061 A 235,236,237, 0, 0, 0062 1 241,242,243, 0, 0, 0063 2 247,248,249, 0, 0, 0064 3 253,254,255, 0, 0, 0065 4 259,260,261, 0, 0, 0066 5 265,266,267, 0, 0, 0067 6 271,272,273, 0, 0, 0068 7 277,278,279, 0, 0, 0069 8 283,284,285, 0, 0, 0070 9 289,290,291, 0, 0/ 0071 DATA NELIONOLDD/ 0072 A 295,296,297, 0, 0, 0073 1 301,302,303, 0, 0, 0074 2 307,308,309, 0, 0, 0075 3 313,314,315, 0, 0, 0076 4 319,320,321, 0, 0, 0077 5 325,326,327, 0, 0, 0078 6 331,332,333, 0, 0, 0079 7 337,338,339, 0, 0, 0080 8 343,344,345, 0, 0, 0081 9 349,350,351, 0, 0, 0082 A 355,356,357, 0, 0, 0083 1 361,362,363, 0, 0, 0084 2 367,368,369, 0, 0, 0085 3 373,374,375, 0, 0, 0086 4 379,380,381, 0, 0, 0087 5 385,386,387, 0, 0, 0088 6 391,392,393, 0, 0, 0089 7 397,398,399, 0, 0, 0090 8 403,404,405, 0, 0/ 0091 DATA NELIONOLDE/ 0092 9 409,410,411, 0, 0, 0093 A 415,416,417, 0, 0, 0094 1 421,422,423, 0, 0, 0095 2 427,428,429, 0, 0, 0096 3 433,434,435, 0, 0, 0097 4 439,440,441, 0, 0, 0098 5 445,446,447, 0, 0, 0099 6 451,452,453, 0, 0, 0100 7 457,458,459, 0, 0, 0101 8 463,464,465, 0, 0, 0102 9 469,470,471, 0, 0, 0103 A 475,476,477, 0, 0, 0104 1 481,482,483, 0, 0, 0105 2 487,488,489, 0, 0, 0106 3 493,494,495, 0, 0, 0107 4 499,500,501, 0, 0, 0108 5 505,506,507, 0, 0, 0109 6 511,512,513, 0, 0, 0110 7 517,518,519, 0, 0/ 0111 DATA NELIONOLDF/ 0112 8 523,524,525, 0, 0, 0113 9 529,530,531, 0, 0, 0114 A 535,536,537, 0, 0, REPACKHI 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 3 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 0115 1 541,542,543, 0, 0, 0116 2 547,548,549, 0, 0, 0117 3 553,554,555, 0, 0, 0118 4 559,560,561, 0, 0, 0119 5 565,566,567, 0, 0, 0120 6 571,572,573, 0, 0, 0121 7 577,578,579, 0, 0, 0122 8 583,584,585, 0, 0, 0123 9 589,590,591, 0, 0/ 0124 c H2 841 240 0125 c HeH 842 0126 c LiH 843 378 0127 c BeH 844 384 0128 c BH 845 390 0129 c CH 846 246 0130 c NH 847 252 0131 c OH 848 258 0132 c HF 849 396 0133 c NaH 850 0134 c MgH 851 300 0135 c AlH 852 306 0136 c SiH 853 312 0137 c PH 854 402 0138 c HS 855 336 0139 c HCl 856 408 0140 c KH 857 0141 c CaH 858 342 0142 c ScH 859 414 0143 c TiH 860 420 0144 c VH 861 426 0145 c CrH 862 432 0146 c MnH 863 438 0147 c FeH 864 444 0148 c CoH 865 558 0149 c NiH 866 564 0150 c CuH 867 570 0151 c C2 868 264 0152 c CN 869 270 0153 c CO 870 276 0154 c CF 871 0155 c SiC 872 0156 c CP 873 0157 c CS 874 0158 c N2 875 282 0159 c NO 876 288 0160 c NF 877 0161 c SiN 878 0162 c PN 879 0163 c NS 880 0164 c LiO 881 0165 c BeO 882 492 0166 c BO 883 498 0167 c O2 884 294 0168 c FO 885 0169 c NaO 886 0170 c MgO 887 318 0171 c AlO 888 324 REPACKHI 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 4 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 0172 c SiO 889 330 0173 c PO 890 504 0174 c SO 891 348 0175 c ClO 892 510 0176 c CaO 893 354 0177 c ScO 894 360 0178 c TiO 895 366 0179 c VO 896 372 0180 c CrO 897 516 0181 c MnO 898 522 0182 c FeO 899 528 0183 c CoO 900 576 0184 c NiO 901 582 0185 c CuO 902 588 0186 c GeO 903 0187 c SrO 904 0188 c YO 905 0189 c ZrO 906 0190 c NbO 907 0191 c Si2 908 0192 c SiS 909 0193 c S2 910 0194 c TiS 911 0195 c ZrS 912 0196 c H2+ 913 0197 c HeH+ 914 0198 c LiH+ 915 0199 c CH+ 916 450 0200 c NH+ 917 456 0201 c OH+ 918 462 0202 c HF+ 919 0203 c NeH+ 920 0204 c MgH+ 921 468 0205 c AlH+ 922 474 0206 c SiH+ 923 480 0207 c PH+ 924 0208 c SH+ 925 0209 c HCl+ 926 0210 c CaH+ 927 486 0211 c He2+ 928 0212 c C2+ 929 0213 c CN+ 930 0214 c CO+ 931 594 0215 c N2+ 932 0216 c NO+ 933 0217 c NS+ 934 0218 c O2+ 935 0219 c SiO+ 936 0220 c PO+ 937 0221 c SO+ 938 0222 c S2+ 939 0223 c H2O 940 534 0224 c CO2 941 540 0225 c CH2 942 546 0226 c C2H 943 0227 c C2N 944 0228 c C3 945 552 REPACKHI 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 5 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 0229 c O3 946 0230 c NO2 947 0231 c N2O 948 0232 c NH2 949 0233 c HCO 950 0234 c HCN 951 0235 c HNO 952 0236 c SiC2 953 0237 c NaOH 954 0238 c MgOH 955 0239 c AlOH 956 0240 c KOH 957 0241 c CaOH 958 0242 c AlOF 959 0243 c AlOCl 960 0244 c Al2O 961 0245 c SH2 962 0246 c CaF2 963 0247 c CaCl2 964 0248 c COS 965 0249 c SiO2 966 0250 c SO2 967 0251 c TiO2 968 0252 c VO2 969 0253 c NH3 970 0254 c CH3 971 0255 c C2H2 972 0256 c C3H 973 0257 c C2N2 974 0258 c CH4 975 0259 c H- 976 0260 c Li- 977 0261 c C- 978 0262 c O- 979 0263 c F- 980 0264 c Na- 981 0265 c Al- 982 0266 c Si- 983 0267 c P- 984 0268 c S- 985 0269 c Cl- 986 0270 c K- 987 0271 c Sc- 988 0272 c Ti- 989 0273 c V- 990 0274 c Cr- 991 0275 c Fe- 992 0276 c Co- 993 0277 c Ni- 994 0278 c Cu- 995 0279 c C2- 996 0280 c CH- 997 0281 c CN- 998 0282 c CO- 999 0283 c N2- 1000 0284 c NO- 1001 0285 c OH- 1002 REPACKHI 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 6 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 0286 c O2- 1003 0287 c S2- 1004 0288 c SH- 1005 0289 C 0290 DATA NELIONOLDG/ 0291 1 240, 0,378,384,390,246,252,258,396, 0, 0292 2 300,306,312,402,336,408, 0,342,414,420, 0293 3 426,432,438,444,558,564,570,264,270,276, 0294 4 0, 0, 0, 0,282,288, 0, 0, 0, 0, 0295 5 0,492,498,294, 0, 0,318,324,330,504, 0296 6 348,510,354,360,366,372,516,522,528,576, 0297 7 582,588, 0, 0, 0, 0, 0, 0, 0, 0, 0298 8 0, 0, 0, 0, 0,450,456,462, 0, 0, 0299 9 468,474,480, 0, 0, 0,486, 0, 0, 0, 0300 A 594, 0, 0, 0, 0, 0, 0, 0, 0,534, 0301 1 540,546, 0, 0,552, 0, 0, 0, 0, 0, 0302 2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0303 3 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0304 4 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0305 5 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0306 6 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0307 7 0, 0, 0, 0, 0/ 0308 RATIOLOG=LOG(1.D0+1.D0/2000000.D0) 0309 RATIOLG=LOG(1.D0+1.D0/500000.D0) 0310 WLBEG=8.97666 0311 WLEND=10000. 0312 IXWLBEG=DLOG(WLBEG)/RATIOLG 0313 IF(DEXP(IXWLBEG*RATIOLG).LT.WLBEG)IXWLBEG=IXWLBEG+1 0314 IWLSTART=DLOG(WLBEG)/RATIOLOG+.5 0315 IWLSTOP=DLOG(WLEND)/RATIOLOG+.5 0316 NLINES=0 0317 C HIGHLINES 0318 OPEN(UNIT=11,TYPE='OLD',FORM='UNFORMATTED', 0319 1RECORDTYPE='FIXED',BLOCKSIZE=8000,RECL=4) 0320 OPEN(UNIT=12,TYPE='NEW',FORM='UNFORMATTED', 0321 1RECORDTYPE='FIXED',BLOCKSIZE=32000,RECL=8000) 0322 DO 5 LINE=1,50000000 0323 READ(11,END=8)IIIIIII 0324 IF(IWL.LT.IWLSTART)GO TO 5 0325 IF(IWL.GT.IWLSTOP)GO TO 5 0326 NELIONNEW=ABS(IELION)/10 0327 IELION=NELIONOLD(NELIONNEW) 0328 WLVAC=EXP(IWL*RATIOLOG) 0329 IXWL=DLOG(WLVAC)/RATIOLG+.5D0 0330 NBUFF=IXWL-IXWLBEG+1 0331 IWL=NBUFF 0332 IF(IWL.LT.1)GO TO 5 0333 CALL PACK(IIIIIII) 0334 NLINES=NLINES+1 0335 5 CONTINUE 0336 8 PRINT 1,NLINES 0337 1 FORMAT(I10,' LINES FROM HIGHLINES') 0338 WRITE(12)PACK8000 0339 CALL EXIT 0340 END REPACKHI 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 7 01 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 401 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 26 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 4156 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 36599 ENTRY POINTS Address Type Name 0-00000000 REPACKHI 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 3-00000000 I*4 IWL 2-00000FC8 I*4 IWLSTART 2-00000FCC I*4 IWLSTOP ** I*4 IXWL ** I*4 IXWLBEG 2-00000FD0 I*4 LINE ** I*4 NBUFF ** I*4 NELIONNEW ** I*4 NLINES 2-00000FC0 R*8 RATIOLG 2-00000FB8 R*8 RATIOLOG ** R*8 WLBEG ** R*8 WLEND ** R*8 WLVAC ARRAYS Address Type Name Bytes Dimensions 3-00000000 I*4 IIIIIII 16 (4) 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 1-00000000 1' 0-00000145 5 0-00000150 8 REPACKHI 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 8 01 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name Type Name Type Name FOR$EXIT FOR$OPEN R*8 MTH$GEXP R*8 MTH$GLOG PACK 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 9 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 0001 SUBROUTINE PACK(IIIIIII) 0002 INTEGER*4 PACK8000,IIIIIII(4) 0003 COMMON /PACK8000/PACK8000(4,2000) 0004 DATA IREC/0/ 0005 IREC=IREC+1 0006 PACK8000(1,IREC)=IIIIIII(1) 0007 PACK8000(2,IREC)=IIIIIII(2) 0008 PACK8000(3,IREC)=IIIIIII(3) 0009 PACK8000(4,IREC)=IIIIIII(4) 0010 IF(IREC.EQ.2000)THEN 0011 WRITE(12)PACK8000 0012 IREC=0 0013 ENDIF 0014 RETURN 0015 END PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 109 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 32149 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 31-Mar-1998 14:35:40 VAX FORTRAN V5.4-79 Page 10 01 11-Mar-1998 16:36:17 KU2C:[KURUCZ.NEWDF]REPACKHI.FOR;5 COMMAND QUALIFIERS FORTRAN/G/LIS REPACKHI /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]REPACKHI.LIS;1 /OBJECT=KU2C:[KURUCZ.NEWDF]REPACKHI.OBJ;2 COMPILATION STATISTICS Run Time: 0.27 seconds Elapsed Time: 1.73 seconds Page Faults: 408 Dynamic Memory: 652 pages $LINK REPACKHI $ASSIGN POOLG:HIGHLINES.DAT FOR011 $ASSIGN POOLG:HIGHLINESDF.DAT FOR012 $RUN REPACKHI 10057571 LINES FROM HIGHLINES KURUCZ job terminated at 31-MAR-1998 14:58:49.64 Accounting information: Buffered I/O count: 2667 Peak working set size: 2493 Direct I/O count: 34037 Peak page file size: 5147 Page faults: 6076 Mounted volumes: 0 Charged CPU time: 0 00:08:27.40 Elapsed time: 0 00:23:12.33