$ Set NoOn $ VERIFY = F$VERIFY(F$TRNLNM("SYLOGIN_VERIFY")) %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 $SET4NEWDF $for/lis separatedf $type separatedf SEPARATEDF 3-AUG-2000 22:39:48 Digital Fortran 77 V7.0-6 Page 1 15-SEP-1999 18:15:08 KU4D:[KURUCZ.4NEWDF]SEPARATEDF.FOR;3 1 PROGRAM SEPARATEDF 2 INTEGER*4 IDFOUT(7) 3 INTEGER*2 IDF(12),ISTEPS(12,21,56) 4 EQUIVALENCE (IDFOUT(2),IDF(1)) 5 CHARACTER*13 NAMELIT(5),NAMEBIG(5) 6 DATA NAMEBIG/'NEWBDFP00BIG0','NEWBDFP00BIG1','NEWBDFP00BIG2', 7 1'NEWBDFP00BIG4','NEWBDFP00BIG8'/ 8 DATA NAMELIT/'NEWBDFP00LIT0','NEWBDFP00LIT1','NEWBDFP00LIT2', 9 1'NEWBDFP00LIT4','NEWBDFP00LIT8'/ 10 DO 9 IVT=1,5 11 OPEN(UNIT=2,NAME=NAMEBIG(IVT),FORM='UNFORMATTED',STATUS='NEW', 12 1 RECORDTYPE='FIXED',RECL=7056) 13 DO 5 NU=1,328 14 DO 3 IP=1,21 15 DO 3 IT=1,56 16 READ(1)IDFOUT 17 DO 3 ISTEP=1,12 18 3 ISTEPS(ISTEP,IP,IT)=IDF(ISTEP) 19 5 WRITE(2)ISTEPS 20 CLOSE(UNIT=2) 21 OPEN(UNIT=2,NAME=NAMELIT(IVT),FORM='UNFORMATTED',STATUS='NEW', 22 1 RECORDTYPE='FIXED',RECL=7056) 23 DO 8 NU=1,1212 24 DO 7 IP=1,21 25 DO 7 IT=1,56 26 READ(1)IDFOUT 27 DO 7 ISTEP=1,12 28 7 ISTEPS(ISTEP,IP,IT)=IDF(ISTEP) 29 8 WRITE(2)ISTEPS 30 CLOSE(UNIT=2) 31 9 CONTINUE 32 CALL EXIT 33 END SEPARATEDF 3-AUG-2000 22:39:48 Digital Fortran 77 V7.0-6 Page 2 Symbol Table 15-SEP-1999 18:15:08 KU4D:[KURUCZ.4NEWDF]SEPARATEDF.FOR;3 PROGRAM SECTIONS Name Bytes Attributes 1 $DATA$ 144 NOPIC CON REL LCL NOSHR NOEXE RD WRT NOSEC OCTA 2 $BSS$ 28256 NOPIC CON REL LCL NOSHR NOEXE RD WRT NOSEC OCTA 3 $CODE$ 1148 PIC CON REL LCL SHR EXE NORD NOWRT NOSEC OCTA 4 $LINK$ 248 NOPIC CON REL LCL NOSHR NOEXE RD NOWRT NOSEC OCTA Total Space Allocated 29796 ENTRY POINTS Address Type Name 3-00000000 SEPARATEDF VARIABLES Address Type Name Address Type Name Address Type Name ** I*4 IP ** I*4 IT REG-######## I*4 NU ** I*4 ISTEP ** I*4 IVT ARRAYS Address Type Name Bytes Dimensions 2-00000004 I*2 IDF 24 (12) 2-00000000 I*4 IDFOUT 28 (7) 2-00000020 I*2 ISTEPS 28224 (12, 21, 56) 1-00000000 CHAR NAMEBIG 65 (5) 1-00000048 CHAR NAMELIT 65 (5) LABELS Address Label Address Label Address Label Address Label Address Label 3-00000150 3 ** 5 3-000002F8 7 ** 8 3-00000000 9 SEPARATEDF 3-AUG-2000 22:39:48 Digital Fortran 77 V7.0-6 Page 3 Symbol Table 15-SEP-1999 18:15:08 KU4D:[KURUCZ.4NEWDF]SEPARATEDF.FOR;3 +---------------------------------------------------+ | KEY TO ADDRESS CODE FORMATS | | ppp-oooooooo - In Psect ppp, Offset oooooooo | | ***-******** - External | | # - Suffix: Also In Registers | | REG-rrrrrrrr - In Register rrrrrrrr | | REG-######## - In Various Registers | | ** - Not Used; Not Allocated | +---------------------------------------------------+ COMMAND QUALIFIERS /ALIGNMENT=(COMMONS=(PACKED,NOMULTILANGUAGE),RECORDS=NATURAL) /ASSUME=(ACCURACY_SENSITIVE,BACKSLASH,NOBYTERECL,NODUMMY_ALIASES,NOUNDERSCORE,NOSOURCE_INCLUDE) /CHECK=(NOASSERTIONS,NOBOUNDS,FORMAT,NOFP_EXCEPTIONS,OUTPUT_CONVERSION,NOOVERFLOW,POWER,NOUNDERFLOW) /DEBUG=(PARAMETERS=NONE,NOSYMBOLS,TRACEBACK) /DESIGN=(NOCOMMENTS) /SHOW=(NODICTIONARY,NOINCLUDE,MAP,NOPREPROCESSOR,SINGLE) /STANDARD=(NOMIA,NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX) /WARNINGS=(ALIGNMENTS,NOARGUMENT_CHECKING,NODECLARATIONS,GENERAL,INFORMATIONAL,NOTRUNCATED_SOURCE, UNCALLED,UNINITIALIZED,UNREACHABLE,NOUNUSED,USAGE) /NOAUTOMATIC /BLAS=NOMAPPED /CONVERT=NATIVE /NOCROSS_REFERENCE /NOD_LINES /DOUBLE_SIZE=64 /ERROR_LIMIT=30 /NOEXTEND_SOURCE /F77 /FLOAT=G_FLOAT /GRANULARITY=QUADWORD /NOIDENT /IEEE_MODE=FAST /INSTRUCTION_SET=FLOATING_POINT /INTEGER_SIZE=32 /NOMACHINE_CODE /MATH_LIBRARY=ACCURATE /NAMES=UPPERCASE /OPTIMIZE=(INLINE=SPEED,LEVEL=4,NOLOOPS,NOPIPELINE,SPECULATE=NONE,TUNE=unspecified,UNROLL=0) /NOPAD_SOURCE /REAL_SIZE=32 /NORECURSIVE /REENTRANCY=NONE /ROUNDING_MODE=NEAREST /NOSEPARATE_COMPILATION /NOSYNCHRONOUS_EXCEPTIONS /NOSYNTAX_ONLY /TERMINAL=NOSTATISTICS /NOTIE /VMS /NOANALYSIS_DATA /NODIAGNOSTICS /INCLUDE=(.FOR,.f,FORT$INCLUDE:.FOR,FORT$INCLUDE:.f) /LIST=KU4D:[KURUCZ.4NEWDF]SEPARATEDF.LIS;2 /OBJECT=KU4D:[KURUCZ.4NEWDF]SEPARATEDF.OBJ;2 /NOLIBRARY sys$lib= COMPILER: Digital Fortran 77 V7.0-6-3245 COMPILATION STATISTICS CPU time: 0.10 seconds Elapsed time: 1.02 seconds Pagefaults: 248 I/O Count: 10 $link separatedf $SETK4F $assign dfp00.srt for001 $run 4NEWDF:separatedf KURUCZ job terminated at 3-AUG-2000 22:57:15.39 Accounting information: Buffered I/O count: 6091 Peak working set size: 10720 Direct I/O count: 47383 Peak virtual size: 177680 Page faults: 840 Mounted volumes: 0 Charged CPU time: 0 00:01:30.30 Elapsed time: 0 00:17:27.64