$ SET NOVERIFY $ EXIT $SETCRAY $FOR/LIS GFAGAFGF $TYPE GFAGAFGF 24-Aug-2006 17:30:38 VAX FORTRAN V5.4-79 Page 1 20-Aug-2006 10:31:55 KU6E:[KURUCZ.CRAY]GFAGAFGF.FOR;6 0001 PROGRAM GFAGAFGF 0002 C Rewrites GFEMQ*.POS line list into *.AGAFGF format. 0003 C TAPE1 GFEMQ*.POS 0004 C TAPE15 GFEMQ*.AGAFGF WL,WN,gf,f,femiss,A,gA but no broadening 0005 IMPLICIT REAL*8 (A-H,O-Z) 0006 CHARACTER*10 ELAB,ELABP 0007 CHARACTER*4 REF 0008 OPEN(UNIT=1,STATUS='OLD',RECL=160,CARRIAGECONTROL='LIST') 0009 OPEN(UNIT=15,STATUS='NEW',CARRIAGECONTROL='LIST') 0010 WRITE(15,1515) 0011 1515 FORMAT(' wl(nm) ',' wn(cm-1)',' log gf',' log f',' log fe', 0012 1 ' log A',' log gA') 0013 DO 99 ILINE=1,9999999 0014 READ(1,140,END=100)WL,GFLOG,CODE,E,XJ,ELAB,EP,XJP,ELABP,GAMMAR, 0015 1 GAMMAS,GAMMAW,REF 0016 140 FORMAT(F11.4,F7.3,F6.2,F12.3,F5.1,1X,A10,F12.3,F5.1,1X,A10, 0017 1 F6.2,F6.2,F6.2,A4) 0018 WAVENO=ABS(ABS(E)-ABS(EP)) 0019 WLVAC=1.D7/WAVENO 0020 WAVENO=MIN(WAVENO,9999999.9999D0) 0021 GLO=XJ+XJ+1. 0022 GUP=XJP+XJP+1. 0023 IF(ABS(E).GT.ABS(EP))THEN 0024 GLO=XJP+XJP+1. 0025 GUP=XJ+XJ+1. 0026 ENDIF 0027 GF=10**GFLOG 0028 A=GF*66702.E9/WLVAC**2/GUP 0029 FLOG=GFLOG-LOG10(GLO) 0030 FEMISSLOG=GFLOG-LOG10(GUP) 0031 GALOG=GFLOG+LOG10(66702.E9/WLVAC**2) 0032 ALOG=GALOG-LOG10(GUP) 0033 WRITE(15,144)WL,WAVENO,GFLOG,FLOG,FEMISSLOG,ALOG,GALOG,CODE, 0034 1 E,XJ,ELAB,EP,XJP,ELABP,REF 0035 144 FORMAT(F12.4,F12.3,5F7.3,F6.2,F12.3,F5.1,1X,A10,F12.3,F5.1,1X,A10, 0036 1 A4) 0037 99 CONTINUE 0038 100 CALL EXIT 0039 END GFAGAFGF 24-Aug-2006 17:30:38 VAX FORTRAN V5.4-79 Page 2 01 20-Aug-2006 10:31:55 KU6E:[KURUCZ.CRAY]GFAGAFGF.FOR;6 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 587 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 152 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 212 PIC CON REL LCL NOSHR NOEXE RD WRT QUAD Total Space Allocated 951 ENTRY POINTS Address Type Name 0-00000000 GFAGAFGF VARIABLES Address Type Name Address Type Name Address Type Name Address Type Name ** R*8 A ** R*8 ALOG 2-00000028 R*8 CODE 2-00000030 R*8 E 2-00000000 CHAR ELAB 2-0000000A CHAR ELABP 2-00000040 R*8 EP 2-00000088 R*8 FEMISSLOG 2-00000080 R*8 FLOG ** R*8 GALOG 2-00000050 R*8 GAMMAR 2-00000058 R*8 GAMMAS 2-00000060 R*8 GAMMAW ** R*8 GF 2-00000020 R*8 GFLOG ** R*8 GLO 2-00000078 R*8 GUP ** I*4 ILINE 2-00000014 CHAR REF 2-00000068 R*8 WAVENO 2-00000018 R*8 WL 2-00000070 R*8 WLVAC 2-00000038 R*8 XJ 2-00000048 R*8 XJP LABELS Address Label Address Label Address Label Address Label Address Label ** 99 0-00000244 100 1-0000004A 140' 1-00000073 144' 1-00000000 1515' FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name FOR$EXIT FOR$OPEN R*8 MTH$DLOG10 COMMAND QUALIFIERS FORTRAN/LIS GFAGAFGF /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 /NOG_FLOATING /I4 /NOMACHINE_CODE /OPTIMIZE /NOPARALLEL /NOANALYSIS_DATA GFAGAFGF 24-Aug-2006 17:30:38 VAX FORTRAN V5.4-79 Page 3 01 20-Aug-2006 10:31:55 KU6E:[KURUCZ.CRAY]GFAGAFGF.FOR;6 /NODIAGNOSTICS /LIST=KU6E:[KURUCZ.CRAY]GFAGAFGF.LIS;10 /OBJECT=KU6E:[KURUCZ.CRAY]GFAGAFGF.OBJ;11 COMPILATION STATISTICS Run Time: 0.09 seconds Elapsed Time: 0.45 seconds Page Faults: 315 Dynamic Memory: 504 pages $LINK GFAGAFGF $ASSIGN 2603:GFEMQ2603.POS FOR001 $ASSIGN 2603:GFEMQ2603.AGAFGF FOR015 $RUN GFAGAFGF KURUCZ job terminated at 24-AUG-2006 17:30:50.21 Accounting information: Buffered I/O count: 172 Peak working set size: 3369 Direct I/O count: 349 Peak page file size: 6823 Page faults: 6130 Mounted volumes: 0 Charged CPU time: 0 00:00:10.25 Elapsed time: 0 00:00:13.91