$ Set NoOn $ VERIFY = F$VERIFY(F$TRNLNM("SYLOGIN_VERIFY")) %SET-W-NOTSET, error modifying CFAKU6$DKB200: -SET-E-INVDEV, device is invalid for requested operation $ EXIT $SET DEF CRAY $FOR/LIS EXPAND3007 $TYPE EXPAND3007 EXPAND3007 Source Listing 24-AUG-2006 02:29:30 HP Fortran V7.6-3276 Page 1 19-AUG-2006 14:12:19 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;85 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 24-AUG-2006 02:29:30 HP Fortran V7.6-3276 Page 2 19-AUG-2006 14:12:19 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;85 58 339 READ(8,7)EXTRAJO(K) 59 DO 338 K=1,NE 60 338 READ(8,7)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 ELAB=ELABE(KO) 113 ELABP=ELABO(KE) 114 KK=KE EXPAND3007 Source Listing 24-AUG-2006 02:29:30 HP Fortran V7.6-3276 Page 3 19-AUG-2006 14:12:19 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;85 115 KE=KO 116 KO=KK 117 ELSE 118 ELAB=ELABE(KE) 119 ELABP=ELABO(KO) 120 ENDIF 121 122 REF='K06 ' 123 IF(EVEODD(KE).EQ.'EPo')REF='K06P' 124 IF(EVEODD(KE).EQ.'ERy')REF='K06R' 125 IF(ODDEVE(KO).EQ.'OPo')REF='K06P' 126 IF(ODDEVE(KO).EQ.'ORy')REF='K06R' 127 C 128 C THE DAMPING CONSTANTS ARE COMPUTED FROM SUMS OVER ALL POSSIBLE 129 C TRANSITIONS TO A GIVEN LEVEL (KURUCZ, SAO SPECIAL REPORT 390,1981). 130 C THESE SUMS ARE NOT COMPLETE EXCEPT FOR ASUMS FOR LEVELS BELOW 131 C THE LOWEST LEVEL LEFT OUT OF THE CALCULATIONS. CONSULT THE OUTPUT 132 C LISTINGS FOR THE LEAST SQUARES FITS BXXXXE.OUT,BXXXXO.OUT, 133 C CXXXXE.OUT,CXXXXO.OUT TO DETERMINE WHICH CONFIGURATIONS WERE INCLUDED. 134 C THE SUMS SHOULD BE COMPLETE OR NEARLY SO FOR MOST STRONG LINES. 135 C 136 C GAMMAW IS THE DAMPING CONSTANT PER HYDROGEN ATOM FOR VAN DER WAALS 137 C BROADENING BY HYDROGEN AT T=10000K. 138 C =84762*C6**.4 FROM ALLER 139 C FOR HELIUM MULTIPLY BY .42 140 C FOR H2 MULTIPLY BY .85 141 C GAMMAS IS THE STARK DAMPING CONSTANT PER ELECTRON ASSUMED TO BE 142 C TEMPERATURE INDEPENDENT 143 C =15385*C4**(2/3) AT 10000K FROM ALLER 144 C 145 GAMMAR=LOG10(ASUME(KE)+ASUMO(KO)) 146 C THESE DAMPING CONSTANTS ARE TOO SMALL 147 C GSLOG=LOG10(15835.*(MAX(ABS(C4P-C4), 148 C 1AMIN1(ABS(C4),ABS(C4P))))**.6666667) 149 C GWLOG=LOG10(84762.*(MAX(ABS(C6P-C6), 150 C 1AMIN1(ABS(C6),ABS(C6P))))**.4) 151 C 152 C TRY SUMMING 153 C GAMMAS=LOG10(15835.*(ABS(STARKE(KE))+ 154 C 1 ABS(STARKO(KO)))**.6666667) 155 C GAMMAW=LOG10(84762.*(ABS(WAALSE(KE))+ABS(WAALSO(KO)))**.4) 156 C 157 C TRY NOT DIFFERENCING 158 GAMMAS=LOG10(15835.*MAX(ABS(STARKE(KE)), 159 1 ABS(STARKO(KO)),1.D-20)**.6666667) 160 GAMMAW= 161 1 LOG10(84762.*MAX(ABS(WAALSE(KE)),ABS(WAALSO(KO)),1.D-40)**.4) 162 C 163 LANDE=GLANDEE(KE)*1000.+.5 164 IF(LANDE.LT.0)LANDE=GLANDEE(KE)*1000.-.5 165 LANDEP=GLANDEO(KO)*1000.+.5 166 IF(LANDEP.LT.0)LANDEP=GLANDEO(KO)*1000.-.5 167 C 168 C WAVENO=ABS(ABS(EJE(KE))-ABS(EJO(KO))) 169 WAVENO=ABS(ABS(EXTRAJE(KE))-ABS(EXTRAJO(KO))) 170 WLVAC=1.D7/WAVENO 171 WL=MIN(WL,999999.9999D0) EXPAND3007 Source Listing 24-AUG-2006 02:29:30 HP Fortran V7.6-3276 Page 4 19-AUG-2006 14:12:19 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;85 172 WAVENO=MIN(WAVENO,9999999.9999D0) 173 IF(IFPRED.EQ.1)WW=-WL 174 IF(ABS(EXTRAJE(KE)).LT.ABS(EXTRAJO(KO)))THEN 175 XJUP=XJO(KO) 176 XJLO=XJE(KE) 177 ASUM=ASUMO(KO) 178 ELSE 179 XJUP=XJE(KE) 180 XJLO=XJO(KO) 181 ASUM=ASUME(KE) 182 ENDIF 183 GLO=XJLO+XJLO+1. 184 GUP=XJUP+XJUP+1. 185 GF=10**GFLOG 186 A=GF*66702.E9/WLVAC**2/GUP 187 BRANCHINGFRAC=A/ASUM 188 FLOG=GFLOG-LOG10(GLO) 189 FEMISSLOG=GFLOG-LOG10(GUP) 190 GALOG=GFLOG+LOG10(66702.E9/WLVAC**2) 191 ALOG=GALOG-LOG10(GUP) 192 C 193 IF(IFPRED.EQ.0)THEN 194 WRITE(11,140)WL,GFLOG,CODE,EJE(KE),XJE(KE),ELABJE(KE),EJO(KO), 195 1 XJO(KO),ELABJO(KO),GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1, 196 2 ISO2,X2,OTHER1,OTHER2,LANDE,LANDEP,ISOSHIFT 197 ENDIF 198 C 199 WRITE(12,140)WL,GFLOG,CODE,EJE(KE),XJE(KE),ELABJE(KE),EJO(KO), 200 1 XJO(KO),ELABJO(KO) 201 C 202 WRITE(15,144)WW,WAVENO,GFLOG,FLOG,FEMISSLOG,ALOG,GALOG,CODE, 203 1 EJE(KE),XJE(KE),ELABJE(KE),EJO(KO),XJO(KO),ELABJO(KO) 204 144 FORMAT(F12.4,F12.3,5F7.3,F6.2,F12.3,F5.1,1X,A10,F12.3,F5.1,1X,A10) 205 C 206 WRITE(13,140)WL,GFLOG,CODE,EJE(KE),XJE(KE),ELABJE(KE),EJO(KO), 207 1 XJO(KO),ELABJO(KO),GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1, 208 2 ISO2,X2,OTHER1,OTHER2,LANDE,LANDEP,ISOSHIFT 209 C 210 IF(ABS(EJE(KE)).GT.EION)GO TO 99 211 IF(ABS(EJO(KO)).GT.EION)GO TO 99 212 WRITE(14,140)WL,GFLOG,CODE,EJE(KE),XJE(KE),ELABJE(KE),EJO(KO), 213 1 XJO(KO),ELABJO(KO),GAMMAR,GAMMAS,GAMMAW,REF,NBLO,NBUP,ISO1,X1, 214 2 ISO2,X2,OTHER1,OTHER2,LANDE,LANDEP,ISOSHIFT 215 140 FORMAT(F11.4,F7.3,F6.2,F12.3,F5.1,1X,A10,F12.3,F5.1,1X,A10, 216 1 F6.2,F6.2,F6.2,A4,I2,I2,I3,F6.3,I3,F6.3,2A10,2I5,I6) 217 C 218 WRITE(16,149)WL,GFLOG,CODE,ELAB,ELABP,REF,ASUM,A,BRANCHINGFRAC 219 149 FORMAT(F11.4,F7.3,F6.2,A28,A28,1X,A4,1P3E12.3) 220 99 CONTINUE 221 CALL EXIT 222 END EXPAND3007 Source Listing 24-AUG-2006 02:29:30 HP Fortran V7.6-3276 Page 5 19-AUG-2006 14:12:19 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;85 PROGRAM SECTIONS Name Bytes Attributes 1 $BSS$ 4520368 NOPIC CON REL LCL NOSHR NOEXE RD WRT *64 2 $DATA$ 1412 NOPIC CON REL LCL NOSHR NOEXE RD WRT OCTA 3 $CODE$ 9308 PIC CON REL LCL SHR EXE NORD NOWRT OCTA 4 $LINK$ 720 NOPIC CON REL LCL NOSHR NOEXE RD NOWRT OCTA Total Space Allocated 4531808 ENTRY POINTS Address Name 3-00000000 EXPAND3007 VARIABLES Address Type Name Address Type Name Address Type Name ** R*8 A 1-001D4C08 R*8 GLO 1-001D4C9C I*4 NE ** R*8 ALOG ** R*8 GUP 1-001D4C88 I*4 NELION ** R*8 ASUM 1-001D4C8C I*4 ICHARGE 1-001D4CA4 I*4 NLINES ** R*8 BRANCHINGFRAC 1-001D4C90 I*4 ICODE 1-001D4CA8 I*4 NO ** R*8 CODE 1-001D4C98 I*4 IEION 1-001D4CA0 I*4 NPOS ** R*8 EION 1-001D4C64 I*4 IFPRED 1-001D4CC0 CHAR OTHER1 1-001D4CF0 CHAR ELAB 1-001D4C70 I*4 ILINE 1-001D4CB0 CHAR OTHER2 1-001D4CD0 CHAR ELABP 1-001D4C94 I*4 ISKIP 1-001D4C50 CHAR PARITY 1-001D4C38 R*8 ELEM 1-001D4C7C I*4 ISO1 1-001D4C58 CHAR REF 1-001D4C40 CHAR EMQ 1-001D4C78 I*4 ISO2 1-0044F960 CHAR STRING80 1-001D4C48 CHAR EVENODD 1-001D4C74 I*4 ISOSHIFT ** R*8 WAVENO ** R*8 FEMISSLOG ** I*4 K 1-001D4C20 R*8 WL ** R*8 FLOG 1-001D4C6C I*4 KE ** R*8 WLVAC ** R*8 GALOG 1-001D4C60 I*4 KK 1-001D4C10 R*8 WW ** R*8 GAMMAR 1-001D4C68 I*4 KO 1-001D4C30 R*8 X1 ** R*8 GAMMAS ** I*4 LANDE 1-001D4C28 R*8 X2 ** R*8 GAMMAW ** I*4 LANDEP ** R*8 XJLO 1-001D4C00 R*8 GF 1-001D4C84 I*4 NBLO ** R*8 XJUP 1-001D4C18 R*8 GFLOG 1-001D4C80 I*4 NBUP 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-00365360 CHAR ELABE 560000 (20000) 1-0041EC20 CHAR ELABJE 200000 (20000) 1-003EDEE0 CHAR ELABJO 200000 (20000) EXPAND3007 Source Listing 24-AUG-2006 02:29:30 HP Fortran V7.6-3276 Page 6 19-AUG-2006 14:12:19 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;85 1-002DC7E0 CHAR ELABO 560000 (20000) 1-002CDD80 CHAR EVEODD 60000 (20000) 1-00298220 R*8 EXTRAJE 160000 (20000) 1-00271120 R*8 EXTRAJO 160000 (20000) 1-00222F20 R*8 FSUME 160000 (20000) 1-001D4D20 R*8 FSUMO 160000 (20000) 1-00075300 R*8 GLANDEE 160000 (20000) 1-0015F900 R*8 GLANDEO 160000 (20000) 1-0024A020 R*8 LJE 160000 (20000) 1-001FBE20 R*8 LJO 160000 (20000) 1-002BF320 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-000023B8 99 ** 334 ** 339 3-000003B4 988 ** 4 ** 9 ** 333 ** 338 ** 987 EXPAND3007 Source Listing 24-AUG-2006 02:29:30 HP Fortran V7.6-3276 Page 7 19-AUG-2006 14:12:19 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;85 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;12 /OBJECT=KU6E:[KURUCZ.CRAY]EXPAND3007.OBJ;40 /NOLIBRARY COMPILER: HP Fortran V7.6-3276-48D52 EXPAND3007 Source Listing 24-AUG-2006 02:29:30 HP Fortran V7.6-3276 Page 8 19-AUG-2006 14:12:19 KU6E:[KURUCZ.CRAY]EXPAND3007.FOR;85 COMPILATION STATISTICS CPU time: 0.61 seconds Elapsed time: 0.82 seconds Pagefaults: 2309 I/O Count: 15 $LINK EXPAND3007 $!wavelength-sorted linelist with energy level indices $ASSIGN K1C:GF2603.LIN FOR001 $!energy levels with E1 A-sums. predicted energies are labelled with minus $ASSIGN 2603:GF2603.GAM FOR008 $!or energy levels with E1+M+Q A-sums $ASSIGN 2603:Gammasum2603.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 2603:GF2603.POS FOR011 $! $!wavelength-sorted line list with all the lines $! 80 columns, no broadening, no lande, no hyperfine, no isotopes $ASSIGN K1B:GF2603.80COL FOR012 $! $!wavelength-sorted line list with all the lines (160 col) $ASSIGN K1B:GF2603.LINES FOR013 $! $!wavelength-sorted lines with upper levels below the ionization limit $ASSIGN K1B:GF2603.LOW FOR014 $! $!wavelength-sorted lines with all the lines including wavenumber, $!flog, femisslog, alog, and galog but no damping or splitting data. $ASSIGN K1B:GF2603.AgAfgf FOR015 $! $!wavelength-sorted lines with upper levels below the ionization limit $!branching fractions $ASSIGN K1B:GF2603.BF FOR016 $! $RUN CRAY:EXPAND3007 26.03 14617228 lines saved 8408 positive lines saved 13767 even 14211 odd levels 442000 ion pot cm-1 eve Meve Mevepos Modd Moddpos Qeve Qevepos Qodd Qoddpos 6924510 2358 8139867 7348 19311749 3495 21647093 10886 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 d2 4s2 4d H d2 4s2 5d I d2 4s2 6d J d2 4s2 7d K d2 4s2 8d L d2 4s2 9d M d2 4s2 10dN 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 d2 4s2 5s c d2 4s2 6s d d2 4s2 7s e d2 4s2 8s f d2 4s2 9s g d2 4s2 10s h d4 5g i d4 6g j d4 7g k d4 8g l d4 9g m d3 4s5g n d3 4s6g o d3 4s7g p d3 4s8g q d3 4s9g r d4 7i s d4 8i t d4 9i u d3 4s7i v d3 4s8i w d3 4s9i x d4 9l y d3 4s9l 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 d3 4s4p 9 d3 4s5p A d3 4s6p B d3 4s7p C d3 4s8p D d3 4s9p E d3 4s10p F d2 4s2 4p G d2 4s2 5p H d2 4s2 6p I d2 4s2 7p J d2 4s2 8p K d2 4s2 9p L d2 4s2 10pM d4 4f N d4 5f O d4 6f P d4 7f Q d4 8f R d4 9f S d4 10f T d3 4s4f U d3 4s5f V d3 4s6f W d3 4s7f X d3 4s8f Y d3 4s9f Z d3 4s10f a d2 4s2 4f b d2 4s2 5f c d2 4s2 6f d d2 4s2 7f e d2 4s2 8f f d2 4s2 9f g d2 4s2 10f h d4 6h i d4 7h j d4 8h k d4 9h l d3 4s6h m d3 4s7h n d3 4s8h o d3 4s9h p d4 8k q d4 9k r d3 4s8k s d3 4s9k t u v w x y z 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 24-AUG-2006 03:19:59.77 Accounting information: Buffered I/O count: 21529 Peak working set size: 23312 Direct I/O count: 481547 Peak virtual size: 204096 Page faults: 4876 Mounted volumes: 0 Charged CPU time: 0 00:29:26.62 Elapsed time: 0 00:50:29.81