Changeset 2139 for branches/newmole/source/atmdat_readin.cpp
- Timestamp:
- 06/29/08 09:04:54 (6 months ago)
- Files:
-
- 1 modified
-
branches/newmole/source/atmdat_readin.cpp (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/newmole/source/atmdat_readin.cpp
r1830 r2139 538 538 539 539 /* this is new in c94.01 and returns nothing (0.) for most lines */ 540 TauLines[i].Coll.c s= (realnum)FFmtRead(chLine,&j,INPUT_LINE_LENGTH,&lgEOL);540 TauLines[i].Coll.col_str = (realnum)FFmtRead(chLine,&j,INPUT_LINE_LENGTH,&lgEOL); 541 541 542 542 /* finally increment i */ … … 956 956 957 957 /*ASSERT( UTALines[i].Emis->Aul / sum_spon_auto <= 1. && UTALines[i].Aul / sum_spon_auto >= 0. );*/ 958 UTALines[i].Coll.c s= (realnum)MIN2(0., UTALines[i].Emis->Aul / sum_spon_auto - 1. );958 UTALines[i].Coll.col_str = (realnum)MIN2(0., UTALines[i].Emis->Aul / sum_spon_auto - 1. ); 959 959 960 960 /* option to print UTAs */ … … 1028 1028 double frac_ioniz = Aauto/(Aul + Aauto); 1029 1029 ASSERT( frac_ioniz >=0. && frac_ioniz <=1. ); 1030 UTALines[i].Coll.c s= -(realnum)frac_ioniz;1030 UTALines[i].Coll.col_str = -(realnum)frac_ioniz; 1031 1031 1032 1032 /* save gf scanned from line */ … … 1130 1130 /* >>chng 03 feb 18, cs to negative of branching ratio */ 1131 1131 ASSERT( frac_relax >=0. && frac_relax <=1. ); 1132 UTALines[i].Coll.c s= (realnum)(frac_relax-1.);1132 UTALines[i].Coll.col_str = (realnum)(frac_relax-1.); 1133 1133 # if 0 1134 1134 fprintf(ioQQQ,"data set %li line %li %2s%2li\t%.4f\t%.3e\t%.3e\n", … … 1214 1214 /* >>chng 03 feb 18, cs to negative of br */ 1215 1215 ASSERT( frac_relax >=0. && frac_relax <=1. ); 1216 UTALines[i].Coll.c s= (realnum)(frac_relax-1.);1216 UTALines[i].Coll.col_str = (realnum)(frac_relax-1.); 1217 1217 1218 1218 /* finally increment i */
