$ 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 REPACKTIO $TYPE REPACKTIO 4-Jan-2000 15:59:55 VAX FORTRAN V5.4-79 Page 1 4-Jan-2000 15:59:48 KU2C:[KURUCZ.NEWDF]REPACKTIO.FOR;9 0001 PROGRAM RPACKEDLINES 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 C TIOLINES 0018 c!$MOUNT/MEDIA=CDROM/UNDEFINED_FAT=(FIXED:NONE:16) DKA270 CDROM24 CDROM24 0019 c!$ASSIGN CDROM24:[CDROM24]SCHWENKE.BIN FOR011 0020 c$ASSIGN TIOSCHWENKE.BIN FOR011 0021 c$ASSIGN TIO:ETIOSCHWENKE.BIN FOR048 0022 c$RUN SYNTHE:RTIOSCHWENKE 0023 c$! 0024 OPEN(UNIT=11,TYPE='OLD',FORM='UNFORMATTED', 0025 1RECORDTYPE='FIXED',BLOCKSIZE=8000,RECL=4) 0026 OPEN(UNIT=12,TYPE='NEW',FORM='UNFORMATTED', 0027 1RECORDTYPE='FIXED',BLOCKSIZE=32000,RECL=8000) 0028 DO 5 LINE=1,50000000 0029 READ(11,END=8)IIIIIII 0030 IF(IWL.LT.IWLSTART)GO TO 5 0031 IF(IWL.GT.IWLSTOP)GO TO 5 0032 KGFLOG=IGFLOG 0033 ISO=ABS(IELION)-8949 0034 GO TO (811,812,813,814,815),ISO 0035 C 46TiO 0036 811 IGFLOG=MAX(KGFLOG-1101,1) 0037 GO TO 816 0038 C 47TiO 0039 812 IGFLOG=MAX(KGFLOG-1138,1) 0040 GO TO 816 0041 C 48TiO 0042 813 IGFLOG=MAX(KGFLOG-131,1) 0043 GO TO 816 0044 C 49TiO 0045 814 IGFLOG=MAX(KGFLOG-1259,1) 0046 GO TO 816 0047 C 50TiO 0048 815 IGFLOG=MAX(KGFLOG-1272,1) 0049 816 IELION=366 0050 C GAMMAS=0. 0051 IGS=1 0052 C LOG GAMMAW=-7 0053 IGW=9384 0054 WLVAC=EXP(IWL*RATIOLOG) 0055 IXWL=DLOG(WLVAC)/RATIOLG+.5D0 0056 NBUFF=IXWL-IXWLBEG+1 0057 IWL=NBUFF RPACKEDLINES 4-Jan-2000 15:59:55 VAX FORTRAN V5.4-79 Page 2 4-Jan-2000 15:59:48 KU2C:[KURUCZ.NEWDF]REPACKTIO.FOR;9 0058 CALL PACK(IIIIIII) 0059 NLINES=NLINES+1 0060 5 CONTINUE 0061 8 PRINT 1,NLINES 0062 1 FORMAT(I10,' LINES FROM TIOLINES') 0063 WRITE(12)PACK8000 0064 CALL EXIT 0065 END PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 546 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 25 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 132 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 32719 ENTRY POINTS Address Type Name 0-00000000 RPACKEDLINES VARIABLES Address Type Name Address Type Name Address Type Name Address Type Name 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-00000010 I*4 IWLSTART 2-00000014 I*4 IWLSTOP ** I*4 IXWL ** I*4 IXWLBEG ** I*4 KGFLOG 2-00000018 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 ** R*8 WLVAC ARRAYS Address Type Name Bytes Dimensions 4-00000000 I*4 IIIIIII 16 (4) 3-00000000 I*4 PACK8000 32000 (4, 2000) RPACKEDLINES 4-Jan-2000 15:59:55 VAX FORTRAN V5.4-79 Page 3 01 4-Jan-2000 15:59:48 KU2C:[KURUCZ.NEWDF]REPACKTIO.FOR;9 LABELS Address Label Address Label Address Label Address Label Address Label Address Label 1-00000000 1' 0-000001D6 5 0-000001E1 8 0-0000010D 811 0-00000128 812 0-00000144 813 0-00000160 814 0-0000017C 815 0-00000192 816 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 4-Jan-2000 15:59:55 VAX FORTRAN V5.4-79 Page 4 4-Jan-2000 15:59:48 KU2C:[KURUCZ.NEWDF]REPACKTIO.FOR;9 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 4-Jan-2000 15:59:55 VAX FORTRAN V5.4-79 Page 5 01 4-Jan-2000 15:59:48 KU2C:[KURUCZ.NEWDF]REPACKTIO.FOR;9 COMMAND QUALIFIERS FORTRAN/G/LIS REPACKTIO /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]REPACKTIO.LIS;4 /OBJECT=KU2C:[KURUCZ.NEWDF]REPACKTIO.OBJ;3 COMPILATION STATISTICS Run Time: 0.18 seconds Elapsed Time: 0.58 seconds Page Faults: 317 Dynamic Memory: 504 pages $LINK REPACKTIO %DCL-W-SKPDAT, image data (records not beginning with "$") ignored $ASSIGN POOL2:TIOSCHWENKE.BIN FOR011 $ASSIGN K4D:TIOLINESDF.DAT FOR012 $RUN REPACKTIO 36979284 LINES FROM TIOLINES KURUCZ job terminated at 4-JAN-2000 16:48:41.64 Accounting information: Buffered I/O count: 8423 Peak working set size: 3347 Direct I/O count: 115809 Peak page file size: 6828 Page faults: 6189 Mounted volumes: 0 Charged CPU time: 0 00:31:48.86 Elapsed time: 0 00:48:47.87