$ Set NoOn $ VERIFY = F$VERIFY(F$TRNLNM("SYLOGIN_VERIFY")) %SET-W-NOTSET, error modifying CFAKU1$DKB0: -SET-E-INVDEV, device is invalid for requested operation $ EXIT $SET DEF CRAY $FOR/LIS EXPAND3007 $TYPE EXPAND3007 EXPAND3007 Source Listing 23-JUL-2010 00:34:50 HP Fortran V7.6-3276 Page 1 9-JAN-2010 16:15:04 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;116 1 PROGRAM EXPAND3007 2 C Puts the linelist and energy levels together and writes lines 3 C in various formats. If input is wavelengths output is wavelengths. 4 C If input is wavenumbers output is wavenumbers. 5 C 6 C TAPE1 GF*.LIN OR GF*.WNLIN input wavelength or wavenumber linelist 7 C (air nm) (cm-1) 8 C TAPE8 GF*.GAM input energy levels 9 C 10 C TAPE11 GF*.POS or GF*.WNPOS subset of GF*.LINES with good positions 11 C TAPE12 GF*.80COL or GF*.WN80COL GF*.LINES with no damping or splitting 12 C TAPE13 GF*.LINES or GF*.WNLINES output linelist 13 C TAPE14 GF*.LOW or GF*.WNLOW GF*.LINES with upper energy below IP 14 C TAPE15 GF*.AGAFGF GF*.LINES with WL,WN,gf,f,femiss,A,gA 15 C but no broadening for commparison 16 C with other work 17 C TAPE16 GF*.BF or GF*.WNBF branching fractions 18 C 19 IMPLICIT REAL*8 (A-H,O-Z) 20 CHARACTER*80 STRING80 21 CHARACTER*10 ELABJE(20000),ELABJO(20000) 22 CHARACTER*28 ELABE(20000),ELABO(20000),ELAB,ELABP 23 CHARACTER*4 REF 24 CHARACTER*3 EVEODD(20000),ODDEVE(20000),PARITY,EVENODD 25 CHARACTER*10 OTHER1,OTHER2 26 CHARACTER*1 EMQ 27 REAL*8 EXTRAJE(20000),EXTRAJO(20000) 28 REAL*8 XJE(20000),LJE(20000),ASUME(20000), 29 1EJE(20000),WAALSE(20000),STARKE(20000),FSUME(20000),GLANDEE(20000) 30 REAL*8 XJO(20000),LJO(20000),ASUMO(20000), 31 1EJO(20000),WAALSO(20000),STARKO(20000),FSUMO(20000),GLANDEO(20000) 32 33 C WRITE(8,996)ELEM,NLINES,NPOS,JJSUML,JJSUMLP,IEION,EVENODD 34 C 996 FORMAT(F5.2,I10,' lines saved',I10,' positive lines saved',I7, 35 C 1' even',I7,' odd levels',I10,' ion pot cm-1') 36 READ(8,1)ELEM,NLINES,NPOS,NE,NO,IEION,EVENODD 37 1 FORMAT(F5.2,I10,12X,I10,21X,I7,5X,I7,11X,I10,14X,A3) 38 PRINT 996,ELEM,NLINES,NPOS,NE,NO,IEION,EVENODD 39 996 FORMAT(F6.2,I10,' lines saved',I10,' positive lines saved',I7, 40 1' even',I7,' odd levels',I10,' ion pot cm-1',1X,A3) 41 EION=IEION 42 DO 987 ISKIP=1,29 43 READ(8,991)STRING80 44 991 FORMAT(A80) 45 PRINT 997,STRING80 46 997 FORMAT(1X,A80) 47 IF(STRING80(1:4).EQ.'ELEM')GO TO 988 48 987 CONTINUE 49 988 CONTINUE 50 IF(EVENODD.EQ.'odd')THEN 51 DO 334 K=1,NO 52 334 READ(8,2)ODDEVE(K),EJO(K),XJO(K),ELABJO(K),GLANDEO(K),ASUMO(K), 53 1STARKO(K),WAALSO(K) 54 DO 333 K=1,NE 55 333 READ(8,2)EVEODD(K),EJE(K),XJE(K),ELABJE(K),GLANDEE(K),ASUME(K), 56 1STARKE(K),WAALSE(K) 57 DO 339 K=1,NO EXPAND3007 Source Listing 23-JUL-2010 00:34:50 HP Fortran V7.6-3276 Page 2 9-JAN-2010 16:15:04 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;116 58 339 READ(8,7)ELABO(K),EXTRAJO(K) 59 DO 338 K=1,NE 60 338 READ(8,7)ELABE(K),EXTRAJE(K) 61 ELSE 62 DO 3 K=1,NE 63 3 READ(8,2)EVEODD(K),EJE(K),XJE(K),ELABJE(K),GLANDEE(K),ASUME(K), 64 1STARKE(K),WAALSE(K) 65 2 FORMAT(5X,A3,4X,F12.3,F5.1,1X,A10,F7.3,1P3E9.2,0PF10.3) 66 DO 4 K=1,NO 67 4 READ(8,2)ODDEVE(K),EJO(K),XJO(K),ELABJO(K),GLANDEO(K),ASUMO(K), 68 1STARKO(K),WAALSO(K) 69 7 FORMAT(12X,A28,E24.14) 70 DO 8 K=1,NE 71 8 READ(8,7)ELABE(K),EXTRAJE(K) 72 DO 9 K=1,NO 73 9 READ(8,7)ELABO(K),EXTRAJO(K) 74 ENDIF 75 CLOSE(UNIT=8) 76 C 77 READ(1,'(I22,1X,A1,1X,A3)')ICODE,EMQ,PARITY 78 CODE=FLOAT(ICODE)*.01 79 ICHARGE=MOD(ICODE,100) 80 NELION=(ICODE/100-1)*6+ICHARGE+1 81 REF='K89' 82 REF='K94' 83 REF='K98' 84 REF='K99' 85 REF='K00' 86 REF='K03' 87 REF='K04' 88 REF='K06' 89 NBLO=0 90 NBUP=0 91 ISO1=0 92 X1=0. 93 ISO2=0 94 X2=0. 95 OTHER1=' ' 96 OTHER2=' ' 97 ISOSHIFT=0 98 OPEN(UNIT=11,STATUS='NEW',RECL=160,CARRIAGECONTROL='LIST') 99 OPEN(UNIT=12,STATUS='NEW',CARRIAGECONTROL='LIST') 100 OPEN(UNIT=13,STATUS='NEW',RECL=160,CARRIAGECONTROL='LIST') 101 OPEN(UNIT=14,STATUS='NEW',RECL=160,CARRIAGECONTROL='LIST') 102 OPEN(UNIT=15,STATUS='NEW',CARRIAGECONTROL='LIST') 103 OPEN(UNIT=16,STATUS='NEW',CARRIAGECONTROL='LIST') 104 WRITE(15,1515) 105 1515 FORMAT(' wl(nm) ',' wn(cm-1)',' log gf',' log f',' log fe', 106 1 ' log A',' log gA') 107 DO 99 ILINE=1,NLINES 108 READ(1,5)WL,GFLOG,KE,KO,IFPRED 109 C PRINT 5,WL,GFLOG,KE,KO,IFPRED 110 5 FORMAT(F18.8,F7.3,I5,I5,I1,I4) 111 IF(EVENODD.EQ.'odd')THEN 112 KK=KE 113 KE=KO 114 KO=KK EXPAND3007 Source Listing 23-JUL-2010 00:34:50 HP Fortran V7.6-3276 Page 3 9-JAN-2010 16:15:04 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;116 115 ELAB=ELABO(KO) 116 ELABP=ELABE(KE) 117 ELSE 118 ELAB=ELABE(KE) 119 ELABP=ELABO(KO) 120 ENDIF 121 122 REF='K08 ' 123 REF='K09 ' 124 REF='K10 ' 125 IF(EVEODD(KE).EQ.'EPo')REF='K10P' 126 IF(EVEODD(KE).EQ.'ERy')REF='K10R' 127 IF(ODDEVE(KO).EQ.'OPo')REF='K10P' 128 IF(ODDEVE(KO).EQ.'ORy')REF='K10R' 129 C 130 C THE DAMPING CONSTANTS ARE COMPUTED FROM SUMS OVER ALL POSSIBLE 131 C TRANSITIONS TO A GIVEN LEVEL (KURUCZ, SAO SPECIAL REPORT 390,1981). 132 C THESE SUMS ARE NOT COMPLETE EXCEPT FOR ASUMS FOR LEVELS BELOW 133 C THE LOWEST LEVEL LEFT OUT OF THE CALCULATIONS. CONSULT THE OUTPUT 134 C LISTINGS FOR THE LEAST SQUARES FITS BXXXXE.OUT,BXXXXO.OUT, 135 C CXXXXE.OUT,CXXXXO.OUT TO DETERMINE WHICH CONFIGURATIONS WERE INCLUDED. 136 C THE SUMS SHOULD BE COMPLETE OR NEARLY SO FOR MOST STRONG LINES. 137 C 138 C GAMMAW IS THE DAMPING CONSTANT PER HYDROGEN ATOM FOR VAN DER WAALS 139 C BROADENING BY HYDROGEN AT T=10000K. 140 C =84762*C6**.4 FROM ALLER 141 C FOR HELIUM MULTIPLY BY .42 142 C FOR H2 MULTIPLY BY .85 143 C GAMMAS IS THE STARK DAMPING CONSTANT PER ELECTRON ASSUMED TO BE 144 C TEMPERATURE INDEPENDENT 145 C =15385*C4**(2/3) AT 10000K FROM ALLER 146 C 147 GAMMAR=LOG10(ASUME(KE)+ASUMO(KO)) 148 C THESE DAMPING CONSTANTS ARE TOO SMALL 149 C GSLOG=LOG10(15835.*(MAX(ABS(C4P-C4), 150 C 1AMIN1(ABS(C4),ABS(C4P))))**.6666667) 151 C GWLOG=LOG10(84762.*(MAX(ABS(C6P-C6), 152 C 1AMIN1(ABS(C6),ABS(C6P))))**.4) 153 C 154 C TRY SUMMING 155 C GAMMAS=LOG10(15835.*(ABS(STARKE(KE))+ 156 C 1 ABS(STARKO(KO)))**.6666667) 157 C GAMMAW=LOG10(84762.*(ABS(WAALSE(KE))+ABS(WAALSO(KO)))**.4) 158 C 159 C TRY NOT DIFFERENCING 160 GAMMAS=LOG10(15835.*MAX(ABS(STARKE(KE)), 161 1 ABS(STARKO(KO)),1.D-20)**.6666667) 162 GAMMAW= 163 1 LOG10(84762.*MAX(ABS(WAALSE(KE)),ABS(WAALSO(KO)),1.D-40)**.4) 164 C 165 LANDE=GLANDEE(KE)*1000.+.5 166 IF(LANDE.LT.0)LANDE=GLANDEE(KE)*1000.-.5 167 LANDEP=GLANDEO(KO)*1000.+.5 168 IF(LANDEP.LT.0)LANDEP=GLANDEO(KO)*1000.-.5 169 C 170 C WAVENO=ABS(ABS(EJE(KE))-ABS(EJO(KO))) 171 WAVENO=ABS(ABS(EXTRAJE(KE))-ABS(EXTRAJO(KO))) EXPAND3007 Source Listing 23-JUL-2010 00:34:50 HP Fortran V7.6-3276 Page 4 9-JAN-2010 16:15:04 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;116 172 WLVAC=1.D7/WAVENO 173 WL=MIN(WL,999999.9999D0) 174 WAVEN=WAVENO 175 WAVENO=MIN(WAVENO,9999999.9999D0) 176 WW=WL 177 IF(IFPRED.EQ.1)WW=-WL 178 IF(ABS(EXTRAJE(KE)).LT.ABS(EXTRAJO(KO)))THEN 179 XJUP=XJO(KO) 180 XJLO=XJE(KE) 181 ASUM=ASUMO(KO) 182 ELSE 183 XJUP=XJE(KE) 184 XJLO=XJO(KO) 185 ASUM=ASUME(KE) 186 ENDIF 187 GLO=XJLO+XJLO+1. 188 GUP=XJUP+XJUP+1. 189 GF=10**GFLOG 190 A=GF*66702.D9/WLVAC**2/GUP 191 BRANCHINGFRAC=0. 192 IF(ASUM.GT.0.)BRANCHINGFRAC=A/ASUM 193 FLOG=GFLOG-LOG10(GLO) 194 FEMISSLOG=GFLOG-LOG10(GUP) 195 GALOG=GFLOG+LOG10(66702.D9/WLVAC**2) 196 ALOG=GALOG-LOG10(GUP) 197 C 198 IF(IFPRED.EQ.0)THEN 199 C WRITE(11,140)WL,GFLOG,CODE,EJE(KE),XJE(KE),ELABJE(KE),EJO(KO), 200 C 1 XJO(KO),ELABJO(KO),GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1, 201 WRITE(11,140)WL,GFLOG,CODE,ELAB,ELABP, 202 1 GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1, 203 2 ISO2,X2,OTHER1,OTHER2,LANDE,LANDEP,ISOSHIFT 204 ENDIF 205 C 206 WRITE(12,140)WL,GFLOG,CODE,ELAB,ELABP 207 C 208 IF(WAVEN.LE.9999999.999D0)THEN 209 WRITE(15,144)WW,WAVEN,GFLOG,FLOG,FEMISSLOG,ALOG,GALOG,CODE, 210 1 ELAB,ELABP 211 144 FORMAT(F12.4,F12.3,5F7.3,F6.2,A28,A28) 212 GO TO 7144 213 ENDIF 214 IF(WAVEN.LE.99999999.99D0)THEN 215 WRITE(15,4144)WW,WAVEN,GFLOG,FLOG,FEMISSLOG,ALOG,GALOG,CODE, 216 1 ELAB,ELABP 217 4144 FORMAT(F12.4,F12.2,5F7.3,F6.2,A28,A28) 218 GO TO 7144 219 ENDIF 220 IF(WAVEN.LE.999999999.9D0)THEN 221 WRITE(15,5144)WW,WAVEN,GFLOG,FLOG,FEMISSLOG,ALOG,GALOG,CODE, 222 1 ELAB,ELABP 223 5144 FORMAT(F12.4,F12.1,5F7.3,F6.2,A28,A28) 224 GO TO 7144 225 ENDIF 226 WRITE(15,6144)WW,WAVEN,GFLOG,FLOG,FEMISSLOG,ALOG,GALOG,CODE, 227 1 ELAB,ELABP 228 6144 FORMAT(F12.4,F12.0,5F7.3,F6.2,A28,A28) EXPAND3007 Source Listing 23-JUL-2010 00:34:50 HP Fortran V7.6-3276 Page 5 9-JAN-2010 16:15:04 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;116 229 7144 CONTINUE 230 C 231 WRITE(13,140)WL,GFLOG,CODE,ELAB,ELABP, 232 1 GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1, 233 2 ISO2,X2,OTHER1,OTHER2,LANDE,LANDEP,ISOSHIFT 234 C 235 IF(ABS(EJE(KE)).GT.EION)GO TO 99 236 IF(ABS(EJO(KO)).GT.EION)GO TO 99 237 WRITE(14,140)WL,GFLOG,CODE,ELAB,ELABP, 238 1 GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1, 239 2 ISO2,X2,OTHER1,OTHER2,LANDE,LANDEP,ISOSHIFT 240 C 140 FORMAT(F11.4,F7.3,F6.2,F12.3,F5.1,1X,A10,F12.3,F5.1,1X,A10, 241 140 FORMAT(F11.4,F7.3,F6.2,A28,A28, 242 1 F6.2,F6.2,F6.2,A4,I2,I2,I3,F6.3,I3,F6.3,2A10,2I5,I6) 243 C 244 WRITE(16,149)WL,GFLOG,CODE,ELAB,ELABP,REF,ASUM,A,BRANCHINGFRAC 245 149 FORMAT(F11.4,F7.3,F6.2,A28,A28,1X,A4,1P3E12.3) 246 99 CONTINUE 247 CALL EXIT 248 END PROGRAM SECTIONS Name Bytes Attributes 1 $BSS$ 4520336 NOPIC CON REL LCL NOSHR NOEXE RD WRT *64 2 $DATA$ 1508 NOPIC CON REL LCL NOSHR NOEXE RD WRT OCTA 3 $CODE$ 9708 PIC CON REL LCL SHR EXE NORD NOWRT OCTA 4 $LINK$ 717 NOPIC CON REL LCL NOSHR NOEXE RD NOWRT OCTA Total Space Allocated 4532269 ENTRY POINTS Address Name 3-00000000 EXPAND3007 VARIABLES Address Type Name Address Type Name Address Type Name ** R*8 A ** R*8 FLOG 1-001D4C50 I*4 IFPRED ** R*8 ALOG ** R*8 GALOG 1-001D4C5C I*4 ILINE ** R*8 ASUM ** R*8 GAMMAR 1-001D4C80 I*4 ISKIP ** R*8 BRANCHINGFRAC ** R*8 GAMMAS 1-001D4C68 I*4 ISO1 ** R*8 CODE ** R*8 GAMMAW 1-001D4C64 I*4 ISO2 ** R*8 EION 1-001D4C00 R*8 GF 1-001D4C60 I*4 ISOSHIFT 1-001D4CD8 CHAR ELAB 1-001D4C08 R*8 GFLOG ** I*4 K 1-001D4CB8 CHAR ELABP ** R*8 GLO 1-001D4C58 I*4 KE 1-001D4C28 R*8 ELEM ** R*8 GUP ** I*4 KK 1-001D4C30 CHAR EMQ 1-001D4C78 I*4 ICHARGE 1-001D4C54 I*4 KO 1-001D4C38 CHAR EVENODD 1-001D4C7C I*4 ICODE ** I*4 LANDE ** R*8 FEMISSLOG 1-001D4C84 I*4 IEION ** I*4 LANDEP EXPAND3007 Source Listing 23-JUL-2010 00:34:50 HP Fortran V7.6-3276 Page 6 9-JAN-2010 16:15:04 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;116 Address Type Name Address Type Name Address Type Name 1-001D4C70 I*4 NBLO 1-001D4CA8 CHAR OTHER1 1-001D4C10 R*8 WL 1-001D4C6C I*4 NBUP 1-001D4C98 CHAR OTHER2 ** R*8 WLVAC 1-001D4C88 I*4 NE 1-001D4C40 CHAR PARITY ** R*8 WW 1-001D4C74 I*4 NELION 1-001D4C48 CHAR REF 1-001D4C20 R*8 X1 1-001D4C90 I*4 NLINES 1-0044F940 CHAR STRING80 1-001D4C18 R*8 X2 1-001D4C94 I*4 NO ** R*8 WAVEN ** R*8 XJLO 1-001D4C8C I*4 NPOS ** R*8 WAVENO ** R*8 XJUP ARRAYS Address Type Name Bytes Dimensions 1-0004E200 R*8 ASUME 160000 (20000) 1-00138800 R*8 ASUMO 160000 (20000) 1-000C3500 R*8 EJE 160000 (20000) 1-001ADB00 R*8 EJO 160000 (20000) 1-00365340 CHAR ELABE 560000 (20000) 1-0041EC00 CHAR ELABJE 200000 (20000) 1-003EDEC0 CHAR ELABJO 200000 (20000) 1-002DC7C0 CHAR ELABO 560000 (20000) 1-002CDD60 CHAR EVEODD 60000 (20000) 1-00298200 R*8 EXTRAJE 160000 (20000) 1-00271100 R*8 EXTRAJO 160000 (20000) 1-00222F00 R*8 FSUME 160000 (20000) 1-001D4D00 R*8 FSUMO 160000 (20000) 1-00075300 R*8 GLANDEE 160000 (20000) 1-0015F900 R*8 GLANDEO 160000 (20000) 1-0024A000 R*8 LJE 160000 (20000) 1-001FBE00 R*8 LJO 160000 (20000) 1-002BF300 CHAR ODDEVE 60000 (20000) 1-00000000 R*8 STARKE 160000 (20000) 1-000EA600 R*8 STARKO 160000 (20000) 1-00027100 R*8 WAALSE 160000 (20000) 1-00111700 R*8 WAALSO 160000 (20000) 1-0009C400 R*8 XJE 160000 (20000) 1-00186A00 R*8 XJO 160000 (20000) LABELS Address Label Address Label Address Label Address Label Address Label Address Label ** 3 ** 8 3-00002548 99 ** 334 ** 339 3-000003B4 988 ** 4 ** 9 ** 333 ** 338 ** 987 ** 7144 EXPAND3007 Source Listing 23-JUL-2010 00:34:50 HP Fortran V7.6-3276 Page 7 9-JAN-2010 16:15:04 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;116 COMMAND QUALIFIERS /ALIGNMENT=(COMMONS=(NONATURAL,PACKED,NOSTANDARD,NOMULTILANGUAGE),RECORDS=NATURAL,NOSEQUENCE) /ANNOTATIONS=(NOCODE,NODETAIL,NOFEEDBACK,NOINLINING,NOLOOP_TRANSFORMS,NOLOOP_UNROLLING,NOPREFETCHING,NOSHRINKWRAPPING, NOSOFTWARE_PIPELINING,NOTAIL_CALLS,NOTAIL_RECURSION) /ARCHITECTURE=GENERIC /ASSUME=(ACCURACY_SENSITIVE,ALTPARAM,NOBUFFERED_IO,NOBYTERECL,NODUMMY_ALIASES,NOF77RTL,NOFP_CONSTANT,NOINT_CONSTANT, NOMINUS0,PROTECT_CONSTANTS,NOSOURCE_INCLUDE,NOUNDERSCORE) /NOAUTOMATIC /NOBY_REF_CALL /CCDEFAULT=DEFAULT /CHECK=(NOARG_TEMP_CREATED,NOBOUNDS,FORMAT,NOFP_EXCEPTIONS,OUTPUT_CONVERSION,NOOVERFLOW,POWER,NOUNDERFLOW) /CONVERT=NATIVE /DEBUG=(NOSYMBOLS,TRACEBACK) /NODEFINE /DOUBLE_SIZE=64 /NOD_LINES /ERROR_LIMIT=30 /NOEXTEND_SOURCE /F77 /NOFAST /FLOAT=G_FLOAT /GRANULARITY=QUADWORD /IEEE_MODE=FAST /INTEGER_SIZE=32 /NOMACHINE_CODE /MATH_LIBRARY=ACCURATE /NOMODULE /NAMES=UPPERCASE /OPTIMIZE=(INLINE=SPEED,LEVEL=4,NOLOOPS,PIPELINE,TUNE=GENERIC,UNROLL=0) /NOPAD_SOURCE /REAL_SIZE=32 /NORECURSIVE /REENTRANCY=NONE /ROUNDING_MODE=NEAREST /NOSEPARATE_COMPILATION /SEVERITY=(WARNING=WARNING) /SHOW=(NOINCLUDE,MAP) /SOURCE_FORM=FIXED /STANDARD=NONE /NOSYNCHRONOUS_EXCEPTIONS /NOSYNTAX_ONLY /NOTIE /VMS /WARNINGS=(ALIGNMENT,NOARGUMENT_CHECKING,NODECLARATIONS,GENERAL,GRANULARITY,NOIGNORE_LOC,NOTRUNCATED_SOURCE,UNCALLED, UNINITIALIZED,NOUNUSED,USAGE) /NOANALYSIS_DATA /NODIAGNOSTICS /INCLUDE=FORT$INCLUDE: /LIST=KU6E:[KURUCZ.CRAY]EXPAND3007.LIS;5 /OBJECT=KU6E:[KURUCZ.CRAY]EXPAND3007.OBJ;5 /NOLIBRARY COMPILER: HP Fortran V7.6-3276-48D52 EXPAND3007 Source Listing 23-JUL-2010 00:34:50 HP Fortran V7.6-3276 Page 8 9-JAN-2010 16:15:04 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;116 COMPILATION STATISTICS CPU time: 0.67 seconds Elapsed time: 0.85 seconds Pagefaults: 2021 I/O Count: 15 $LINK EXPAND3007 $!wavelength-sorted linelist with energy level indices $ASSIGN POOLQ:GF2502.LIN FOR001 $!energy levels with E1 A-sums. predicted energies are labelled with minus $ASSIGN POOLQ:GF2502.GAM FOR008 $!or energy levels with E1+M+Q A-sums $ASSIGN 2502:Gammasum2502.GAM FOR008 %DCL-I-SUPERSEDE, previous value of FOR008 has been superseded $! $!wavelength-sorted line list for lines with good wavelengths $! no predicted energies 160 columns $ASSIGN 2502:GF2502.POS FOR011 $! $!wavelength-sorted line list with all the lines $! 80 columns, no broadening, no lande, no hyperfine, no isotopes $ASSIGN K1B:GF2502.80COL FOR012 $! $!wavelength-sorted line list with all the lines (160 col) $ASSIGN K1B:GF2502.LINES FOR013 $! $!wavelength-sorted lines with upper levels below the ionization limit $ASSIGN K1B:GF2502.LOW FOR014 $! $!wavelength-sorted lines with all the lines including wavenumber, $!flog, femisslog, alog, and galog but no damping or splitting data. $ASSIGN K1B:GF2502.AgAfgf FOR015 $! $!wavelength-sorted lines with upper levels below the ionization limit $!branching fractions $ASSIGN K1B:GF2502.BF FOR016 $! $RUN CRAY:EXPAND3007 25.02 10525088 lines saved 17294 positive lines saved 13706 even 15890 odd levels 271550 ion pot cm-1 eve Meve Mevepos Modd Moddpos Qeve Qevepos Qodd Qoddpos 3900086 8371 5252780 8573 14631741 12898 19094938 13143 1 d5 2 d4 4d 3 d4 5d 4 d4 6d 5 d4 7d 6 d4 8d 7 d4 9d 8 d4 10d 9 d3 4s4d A d3 4s5d B d3 4s6d C d3 4s7d D d3 4s8d E d3 4s9d F d3 4s10d G d24s2 4d H d2s2 5d I d2s2 6d J d2s2 7d K d2s2 8d L d2s2 9d M d2s2 10d N d4 4s O d4 5s P d4 6s Q d4 7s R d4 8s S d4 9s T d4 10s U d3 4s2 V d3 4s5s W d3 4s6s X d3 4s7s Y d3 4s8s Z d3 4s9s a d3 4s10s b d2s2 5s c d2s2 6s d d2s2 7s e d2s2 8s f d2s2 9s g d2s2 10s h d4 5g i d4 6g j d4 7g k d4 8g l d4 9g m d4 10g n d3 4s5g o d3 4s6g p d3 4s7g q d3 4s8g r d3 4s9g s d3 4s10g t d4 7i u d4 8i v d4 9i w d3 4s7i x d3 4s8i y d3 4s9i z d3 4p2 1 d4 4p 2 d4 5p 3 d4 6p 4 d4 7p 5 d4 8p 6 d4 9p 7 d4 10p 8 d4 11p 9 d3 4s4p A d3 4s5p B d3 4s6p C d3 4s7p D d3 4s8p E d3 4s9p F d3 4s10p G d3 4s11p H d2s2 4p I d2s2 5p J d2s2 6p K d2s2 7p L d2s2 8p M d2s2 9p N d2s2 10p O d2s2 11p P d4 4f Q d4 5f R d4 6f S d4 7f T d4 8f U d4 9f V d4 10f W d4 11f X d3 4s4f Y d3 4s5f Z d3 4s6f a d3 4s7f b d3 4s8f c d3 4s9f d d3 4s10f e d3 4s11f f d2s2 4f g d2s2 5f h d2s2 6f i d2s2 7f j d2s2 8f k d2s2 9f l d2s2 10f m d2s2 11f n d4 6h o d4 7h p d4 8h q d4 9h r d4 10h s d3 4s6h t d3 4s7h u d3 4s8h v d3 4s9h w d4 8k x d4 9k y d3 4s8k z d3 4s9k level type: EVE or ODD + even or odd observed level level type: ERz or ORz even or odd extrapolated Ritz level level type: EPo or OPo even or odd extrapolated polarization level level type: EVE or ODD - even or odd least squares predicted level ELEM index(J) E(cm-1) J label g Lande' sum A C4 C6 sum f KURUCZ job terminated at 23-JUL-2010 01:06:01.36 Accounting information: Buffered I/O count: 15040 Peak working set size: 23616 Direct I/O count: 335553 Peak virtual size: 204432 Page faults: 4614 Mounted volumes: 0 Charged CPU time: 0 00:15:58.45 Elapsed time: 0 00:31:11.07