Changeset 310

Show
Ignore:
Timestamp:
04/24/06 16:27:12 (3 years ago)
Author:
gary
Message:

*.ini, change "print on" to "print on " - gcc on two new machines did not match on keyword - for some reason trailing space not added on with gcc

orion_hii_open.in - at print line optical depths to see HeI optical depths in orion

prt_alltau.c - changes in print helium optical depths - give lowest give continuum edges also give several explicit lines rather than cryptic code

Location:
trunk
Files:
9 modified

Legend:

Unmodified
Added
Removed

  • trunk/data/c84.ini

    r13 r310  
    3131element Copper off 
    3232element Zinc  off 
    33 print on 
     33print on   

  • trunk/data/fast.ini

    r13 r310  
    8181// 
    8282// turn print back on 
    83 print on 
     83print on   

  • trunk/data/honly.ini

    r13 r310  
    3030element nickel off 
    3131no level2 
    32 print on 
     32print on   

  • trunk/data/ism.ini

    r13 r310  
    4545//  
    4646// turn print back on 
    47 print on 
     47print on   

  • trunk/data/pdr_leiden.ini

    r13 r310  
    8686// stop at a visual extinction of 10 magnitudes 
    8787stop AV point 10 linear  
    88 print on 
     88print on   

  • trunk/data/pdr_leiden_hack.ini

    r62 r310  
    103103// stop at a visual extinction of 10 magnitudes 
    104104stop AV point 10 linear  
    105 print on 
     105print on  

  • trunk/source/date.h

    r305 r310  
    99#define YEAR    106 
    1010#define MONTH   3 
    11 #define DAY     22 
     11#define DAY     24 

  • trunk/source/prt_alltau.c

    r138 r310  
    209209        { 
    210210                fprintf( ioQQQ, "\n Old He Is optical depths:" ); 
    211                 for( i=1; i <= 8; i++ ) 
    212                 { 
    213                         fprintf( ioQQQ, "%4ld", i ); 
    214                         fprintf( ioQQQ,PrintEfmt("%9.2e", opac.TauAbsGeo[1][iso.ipIsoLevNIonCon[ipHE_LIKE][ipHELIUM][i-1]-1]/fcon) ); 
     211                for( i=0; i < 5; i++ ) 
     212                { 
     213                        fprintf( ioQQQ, "%5ld", i+1 ); 
     214                        fprintf( ioQQQ,PrintEfmt("%9.2e", opac.TauAbsGeo[1][iso.ipIsoLevNIonCon[ipHE_LIKE][ipHELIUM][i]-1]/fcon) ); 
    215215                } 
    216216                fprintf( ioQQQ, "\n" ); 
    217217 
    218218                fprintf( ioQQQ, " New He Is optical depths:" ); 
    219                 for( i=1; i <= 8; i++ ) 
    220                 { 
    221                         fprintf( ioQQQ, "%4ld", i ); 
    222                         fprintf( ioQQQ,PrintEfmt("%9.2e", opac.TauAbsGeo[0][iso.ipIsoLevNIonCon[ipHE_LIKE][ipHELIUM][i-1]-1]/fcon )); 
     219                for( i=0; i < 5; i++ ) 
     220                { 
     221                        fprintf( ioQQQ, "%5ld", i+1 ); 
     222                        fprintf( ioQQQ,PrintEfmt("%9.2e", opac.TauAbsGeo[0][iso.ipIsoLevNIonCon[ipHE_LIKE][ipHELIUM][i]-1]/fcon )); 
    223223                } 
    224224                fprintf( ioQQQ, "\n" ); 
    … …  
    228228 
    229229                fprintf( ioQQQ, "          Old He Is Lines:" ); 
    230                 fprintf( ioQQQ, "%2d-%1d",2, 1 ); 
     230                fprintf( ioQQQ, " %4d",584 ); 
    231231                fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe2p1P][ipHe1s1S].TauTot/flin )); 
    232                 fprintf( ioQQQ, "%2d-%1d",3, 2 ); 
    233                 fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe3s1S][ipHe2p1P].TauTot/flin )); 
     232                fprintf( ioQQQ, " %4d",3889 ); 
     233                fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe3p3P][ipHe2s3S].TauTot/flin )); 
     234                fprintf( ioQQQ, " %4d",5016 ); 
     235                fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe3p1P][ipHe2s1S].TauTot/flin )); 
     236                fprintf( ioQQQ, " %4d",5876 ); 
     237                fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe3d3D][ipHe2p3P2].TauTot/flin )); 
    234238                fprintf( ioQQQ, "\n" ); 
    235239 
    236240                fprintf( ioQQQ, "          New He Is Lines:" ); 
    237                 fprintf( ioQQQ, "%2d-%1d",2, 1 ); 
     241                fprintf( ioQQQ, " %4d",584 ); 
    238242                fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe2p1P][ipHe1s1S].TauIn/flin )); 
    239                 fprintf( ioQQQ, "%2d-%1d",3, 2 ); 
    240                 fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe3s1S][ipHe2p1P].TauIn/flin )); 
     243                fprintf( ioQQQ, " %4d",3889 ); 
     244                fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe3p3P][ipHe2s3S].TauIn/flin )); 
     245                fprintf( ioQQQ, " %4d",5016 ); 
     246                fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe3p1P][ipHe2s1S].TauIn/flin )); 
     247                fprintf( ioQQQ, " %4d",5876 ); 
     248                fprintf( ioQQQ,PrintEfmt("%9.2e", EmisLines[ipHE_LIKE][ipHELIUM][ipHe3d3D][ipHe2p3P2].TauIn/flin )); 
    241249                fprintf( ioQQQ, "\n" ); 
    242250 

  • trunk/tsuite/auto/orion_hii_open.in

    r266 r310  
    2727c print lines as surface brightness 
    2828print lines surface brightness arcsec  
     29print line optical depths 
    2930print diffuse continuum  
    3031c want to print line intensities are surface brightness, per arcsec^2