$ SET NOVERIFY SYS$NODE = "CFAKU3::" (LNM$SYSTEM_TABLE) 28-OCT-1997 22:23:52 $ IF F$SEARCH("LOGIN.COM") .NES. "" THEN @LOGIN $ SET NOON ! IGC 15-APR-1987 $SET NOVERIFY %SET-I-NEWLIMS, new working set: Limit = 16000 Quota = 16000 Extent = 16000 %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 REPACKLOW $TYPE REPACKLOW 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 1 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 0001 PROGRAM RPACKEDLINES 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),PACK 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, RPACKEDLINES 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 2 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 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, RPACKEDLINES 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 3 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 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 RPACKEDLINES 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 4 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 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 RPACKEDLINES 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 5 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 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 RPACKEDLINES 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 6 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 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 LOWLINES 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 CALL PACK(IIIIIII) 0333 NLINES=NLINES+1 0334 5 CONTINUE 0335 8 PRINT 1,NLINES 0336 1 FORMAT(I10,' LINES FROM LOWLINES') 0337 CALL PACK(0) 0338 CALL EXIT 0339 END RPACKEDLINES 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 7 01 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 372 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 29 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 4144 PIC CON REL LCL NOSHR NOEXE RD WRT QUAD 3 IIIIIII 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 PACK8000 64000 PIC OVR REL GBL SHR NOEXE RD WRT LONG Total Space Allocated 68561 ENTRY POINTS Address Type Name 0-00000000 RPACKEDLINES 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 ** 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 R*8 PACK8000 64000 (4, 2000) LABELS Address Label Address Label Address Label 1-00000004 1' 0-0000013B 5 0-00000145 8 RPACKEDLINES 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 8 01 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 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 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 9 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 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 IF(IIIIIII(1).EQ.0)GO TO 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 28-Oct-1997 22:23:53 VAX FORTRAN V5.4-79 Page 10 01 28-Oct-1997 22:23:33 KU2C:[KURUCZ.NEWDF]REPACKLOW.FOR;12 LABELS Address Label 0-00000052 1 COMMAND QUALIFIERS FORTRAN/G/LIS REPACKLOW /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]REPACKLOW.LIS;3 /OBJECT=KU2C:[KURUCZ.NEWDF]REPACKLOW.OBJ;4 COMPILATION STATISTICS Run Time: 0.22 seconds Elapsed Time: 0.57 seconds Page Faults: 771 Dynamic Memory: 636 pages $LINK REPACKLOW $ASSIGN POOLG:LOWLINES.DAT FOR011 $ASSIGN POOLG:LOWLINESDF.DAT FOR012 $RUN REPACKLOW 31108567 LINES FROM LOWLINES KURUCZ job terminated at 28-OCT-1997 23:18:46.35 Accounting information: Buffered I/O count: 7885 Peak working set size: 2965 Direct I/O count: 100556 Peak page file size: 5206 Page faults: 6195 Mounted volumes: 0 Charged CPU time: 0 00:30:19.69 Elapsed time: 0 00:54:54.69