$ 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 REPACKH2O $TYPE REPACKH2O 22-Jan-2000 11:24:59 VAX FORTRAN V5.4-79 Page 1 22-Jan-2000 11:24:39 KU2C:[KURUCZ.NEWDF]REPACKH2O.FOR;11 0001 PROGRAM REPACKH2O 0002 IMPLICIT REAL*8 (A-H,O-Z) 0003 COMMON /PACK8000/PACK8000(4,2000) 0004 INTEGER*2 IELION,IELO,IGFLOG,IGR,IGS,IGW 0005 COMMON /IIIIIII/IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW 0006 INTEGER*4 IIIIIII(4),PACK8000 0007 EQUIVALENCE (IIIIIII(1),IWL) 0008 RATIOLOG=LOG(1.D0+1.D0/2000000.D0) 0009 RATIOLG=LOG(1.D0+1.D0/500000.D0) 0010 WLBEG=8.97666 0011 WLEND=10000. 0012 IXWLBEG=DLOG(WLBEG)/RATIOLG 0013 IF(DEXP(IXWLBEG*RATIOLG).LT.WLBEG)IXWLBEG=IXWLBEG+1 0014 IWLSTART=DLOG(WLBEG)/RATIOLOG+.5 0015 IWLSTOP=DLOG(WLEND)/RATIOLOG+.5 0016 NLINES=0 0017 OPEN(UNIT=11,TYPE='OLD',FORM='UNFORMATTED', 0018 1RECORDTYPE='FIXED',BLOCKSIZE=8000,RECL=2) 0019 OPEN(UNIT=12,TYPE='NEW',FORM='UNFORMATTED', 0020 1RECORDTYPE='FIXED',BLOCKSIZE=32000,RECL=8000) 0021 DO 5 LINE=1,65912356 0022 READ(11)IWL,IELO,IGFLOG 0023 IF(IWL.LT.IWLSTART)GO TO 5 0024 IF(IWL.GT.IWLSTOP)GO TO 5 0025 KGFLOG=ABS(IGFLOG) 0026 1871 ISO=1 0027 IF(IELO.GT.0.AND.IGFLOG.GT.0)GO TO 1819 0028 ISO=2 0029 IF(IELO.GT.0)GO TO 1819 0030 ISO=3 0031 IF(IGFLOG.GT.0)GO TO 1819 0032 ISO=4 0033 1819 GO TO (1811,1812,1813,1814),ISO 0034 C 1H1H16O 0035 1811 IGFLOG=MAX(KGFLOG-001,1) 0036 GO TO 1816 0037 C 1H1H17O 0038 1812 IGFLOG=MAX(KGFLOG-3398,1) 0039 GO TO 1816 0040 C 1H1H18O 0041 1813 IGFLOG=MAX(KGFLOG-2690,1) 0042 GO TO 1816 0043 C 1H2H16O 0044 1814 IGFLOG=MAX(KGFLOG-5000,1) 0045 1816 IELION=534 0046 IELO=ABS(IELO) 0047 C GAMMAS=0. 0048 IGS=1 0049 C LOG GAMMAW=-7 0050 IGW=9384 0051 WLVAC=EXP(IWL*RATIOLOG) 0052 IXWL=DLOG(WLVAC)/RATIOLG+.5D0 0053 NBUFF=IXWL-IXWLBEG+1 0054 IWL=NBUFF 0055 GAMMAR=2.223E13/WLVAC**2*.001 0056 GR=LOG10(GAMMAR) 0057 IGR=GR*1000.+16384.5 REPACKH2O 22-Jan-2000 11:24:59 VAX FORTRAN V5.4-79 Page 2 22-Jan-2000 11:24:39 KU2C:[KURUCZ.NEWDF]REPACKH2O.FOR;11 0058 CALL PACK(IIIIIII) 0059 NLINES=NLINES+1 0060 5 CONTINUE 0061 8 PRINT 1,NLINES 0062 1 FORMAT(I10,' LINES FROM H2OFAST') 0063 WRITE(12)PACK8000 0064 CALL EXIT 0065 END PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 634 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 24 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 124 PIC CON REL LCL NOSHR NOEXE RD WRT QUAD 3 PACK8000 32000 PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 IIIIIII 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG Total Space Allocated 32798 ENTRY POINTS Address Type Name 0-00000000 REPACKH2O VARIABLES Address Type Name Address Type Name Address Type Name Address Type Name ** R*8 GAMMAR ** R*8 GR 4-00000004 I*2 IELION 4-00000006 I*2 IELO 4-00000008 I*2 IGFLOG 4-0000000A I*2 IGR 4-0000000C I*2 IGS 4-0000000E I*2 IGW ** I*4 ISO 4-00000000 I*4 IWL 2-00000018 I*4 IWLSTART 2-0000001C I*4 IWLSTOP ** I*4 IXWL ** I*4 IXWLBEG ** I*4 KGFLOG 2-00000020 I*4 LINE ** I*4 NBUFF ** I*4 NLINES 2-00000008 R*8 RATIOLG 2-00000000 R*8 RATIOLOG ** R*8 WLBEG ** R*8 WLEND 2-00000010 R*8 WLVAC ARRAYS Address Type Name Bytes Dimensions 4-00000000 I*4 IIIIIII 16 (4) 3-00000000 I*4 PACK8000 32000 (4, 2000) REPACKH2O 22-Jan-2000 11:24:59 VAX FORTRAN V5.4-79 Page 3 01 22-Jan-2000 11:24:39 KU2C:[KURUCZ.NEWDF]REPACKH2O.FOR;11 LABELS Address Label Address Label Address Label Address Label Address Label Address Label 1-00000000 1' 0-0000022E 5 ** 8 0-0000012F 1811 0-00000144 1812 0-00000160 1813 0-0000017C 1814 0-00000192 1816 0-00000123 1819 ** 1871 FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name Type Name Type Name Type Name FOR$EXIT FOR$OPEN R*8 MTH$GEXP R*8 MTH$GLOG R*8 MTH$GLOG10 PACK 22-Jan-2000 11:24:59 VAX FORTRAN V5.4-79 Page 4 22-Jan-2000 11:24:39 KU2C:[KURUCZ.NEWDF]REPACKH2O.FOR;11 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 22-Jan-2000 11:24:59 VAX FORTRAN V5.4-79 Page 5 01 22-Jan-2000 11:24:39 KU2C:[KURUCZ.NEWDF]REPACKH2O.FOR;11 COMMAND QUALIFIERS FORTRAN/G/LIS REPACKH2O /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]REPACKH2O.LIS;3 /OBJECT=KU2C:[KURUCZ.NEWDF]REPACKH2O.OBJ;4 COMPILATION STATISTICS Run Time: 0.17 seconds Elapsed Time: 0.65 seconds Page Faults: 325 Dynamic Memory: 504 pages $LINK REPACKH2O $ASSIGN H2O:H2OFAST.BIN FOR011 $ASSIGN K4D:H2OLINESDF.DAT FOR012 $RUN REPACKH2O 48999850 LINES FROM H2OFAST KURUCZ job terminated at 22-JAN-2000 12:42:32.76 Accounting information: Buffered I/O count: 11104 Peak working set size: 3347 Direct I/O count: 120079 Peak page file size: 6795 Page faults: 6199 Mounted volumes: 0 Charged CPU time: 0 00:57:31.69 Elapsed time: 0 01:17:35.49