Changeset 1916 for branches/c08_branch/source/prt_alltau.cpp

Timestamp:

04/04/08 03:02:50 (9 months ago)

Author:

gary

Message:

merge of r1913-1915 on mainline

Files:

• branches/c08_branch/source/prt_alltau.cpp (modified) (2 diffs)

branches/c08_branch/source/prt_alltau.cpp

@@ -116 +116 @@
         PrintE93( ioQQQ , opac.TauTotalGeo[0][iso.ipIsoLevNIonCon[ipH_LIKE][1][ipH1s]-1]/fcon);
         fprintf( ioQQQ, "\n");
-
-        if( dense.lgElmtOn[ipHELIUM] )
-        {
-                /* print optical depths of previous iteration with old atom */
-
-                /* these results are for new HeI as part of he iso sequence */
-                fprintf( ioQQQ, "  Line Optical Depths: 10830:");
-                fprintf( ioQQQ,PrintEfmt("%9.2e", (Transitions[ipHE_LIKE][ipHELIUM][ipHe2p3P0][ipHe2s3S].Emis->TauIn+
-                        Transitions[ipHE_LIKE][ipHELIUM][ipHe2p3P1][ipHe2s3S].Emis->TauIn+
-                        Transitions[ipHE_LIKE][ipHELIUM][ipHe2p3P2][ipHe2s3S].Emis->TauIn)/flin));
-                fprintf( ioQQQ, "  3889:");
-                fprintf( ioQQQ,PrintEfmt("%9.2e", Transitions[ipHE_LIKE][ipHELIUM][ipHe3p3P][ipHe2s3S].Emis->TauIn/flin));
-                fprintf( ioQQQ, "    5876:");
-                fprintf( ioQQQ,PrintEfmt("%9.2e", (Transitions[ipHE_LIKE][ipHELIUM][ipHe3d3D][ipHe2p3P0].Emis->TauIn+
-                        Transitions[ipHE_LIKE][ipHELIUM][ipHe3d3D][ipHe2p3P1].Emis->TauIn+
-                        Transitions[ipHE_LIKE][ipHELIUM][ipHe3d3D][ipHe2p3P2].Emis->TauIn)/flin));
-                fprintf( ioQQQ, " 7065:");
-                fprintf( ioQQQ,PrintEfmt("%9.2e", (Transitions[ipHE_LIKE][ipHELIUM][ipHe3s3S][ipHe2p3P0].Emis->TauIn+
-                        Transitions[ipHE_LIKE][ipHELIUM][ipHe3s3S][ipHe2p3P1].Emis->TauIn+
-                        Transitions[ipHE_LIKE][ipHELIUM][ipHe3s3S][ipHe2p3P2].Emis->TauIn)/flin));
-                fprintf( ioQQQ, "  2.06m:");
-                fprintf( ioQQQ,PrintEfmt("%9.2e", Transitions[ipHE_LIKE][ipHELIUM][ipHe2p1P][ipHe2s1S].Emis->TauIn/flin));
-                fprintf( ioQQQ, "  21c:");
-                fprintf( ioQQQ,PrintEfmt("%9.2e", HFLines[0].Emis->TauIn/flin));
-                /* the HeII 3 cm equivalent of H 21 cm */
-                fprintf( ioQQQ, "\n" );
-        }
 
         /* print optical depths of some metal lines */
@@ -251 +224 @@
                 /* ================================================================================*/
 
-
                 fprintf( ioQQQ, "          Old He Is Lines:" );
                 fprintf( ioQQQ, " %4d",584 );