PoPs_data.cc File Reference

#include <string.h>
#include "PoPs.h"
#include "PoPs_private.h"
#include "PoPs_data.h"

Go to the source code of this file.

Functions
int	PoPs_particleReadDatabase (statusMessageReporting *smr, char const *)
PoP *	PoPs_particleCreateLoadInfo (statusMessageReporting *smr, const char *name)
int	PoPs_particleLoadInfo (statusMessageReporting *smr, const char *name, PoP *pop)
int	PoPs_setBDFLS_File (char const *name)

Function Documentation

PoPs_particleCreateLoadInfo()

PoP * PoPs_particleCreateLoadInfo	(	statusMessageReporting *	smr,
		const char *	name )

Definition at line 61 of file PoPs_data.cc.

                                                                                  {
 
    PoP *pop;
 
    if( ( pop = PoP_new( smr ) ) != NULL ) {
        if( PoPs_particleLoadInfo( smr, name, pop ) != 0 ) pop = PoP_free( pop );
    }
    return( pop );
}

Referenced by lPoPs_addParticleIfNeeded(), and PoPs_particleReadDatabase().

PoPs_particleLoadInfo()

int PoPs_particleLoadInfo	(	statusMessageReporting *	smr,
		const char *	name,
		PoP *	pop )

Definition at line 73 of file PoPs_data.cc.

                                                                                     {
 
    int i, n = sizeof( PoPDatas ) / sizeof( PoPDatas[0] );
 
    if( ( pop->name = smr_allocateCopyString2( smr, name, "name" ) ) == NULL ) return( -1 );
    for( i = 0; i < n; i++ ) {
        if( strcmp( PoPDatas[i].name, name ) == 0 ) {
            pop->genre = PoPDatas[i].genre;
            pop->Z = PoPDatas[i].Z;
            pop->A = 0;
            if( PoPDatas[i].N >= 0 ) pop->A = pop->Z + PoPDatas[i].N;
            pop->l = PoPDatas[i].nuclearLevel;
            pop->mass = PoPs_getBDFLS_mass( name, pop, PoPDatas[i].mass );
            pop->massUnit = unitsDB_addUnitIfNeeded( smr, "amu" );
            return( 0 );
        }
    }
    smr_freeMemory( (void **) &(pop->name) );
    smr_setReportError2( smr, smr_unknownID, 1, "particle %s not in database", name );
    return( -1 );
}

Referenced by PoPs_particleCreateLoadInfo().

PoPs_particleReadDatabase()

int PoPs_particleReadDatabase	(	statusMessageReporting *	smr,
		char const *	name )

Definition at line 36 of file PoPs_data.cc.

                                                                             {
 
    int i1, n1 = sizeof( PoPDatas ) / sizeof( PoPDatas[0] );
    PoP *pop;
    char ZAName[32];
 
    for( i1 = 0; i1 < n1; ++i1 ) {
        if( ( pop = PoPs_particleCreateLoadInfo( smr, PoPDatas[i1].name ) ) == NULL ) return( 1 );
        if( PoPs_addParticleIfNeeded( smr, pop ) == pop ) {
            if( ( pop->genre == PoPs_genre_atom ) && ( pop->Z < 110 ) ) {
                snprintf( ZAName, sizeof ZAName, "%d%.3d", pop->Z, pop->A );
                if( lPoPs_addParticleIfNeeded( smr, ZAName, "LLNL" ) < 0 ) return( 1 );
            } }
        else {
            PoP_free( pop );
        }
        if( smr_isOk( smr ) == 0 ) return( 1 );
    }
    if( lPoPs_addParticleIfNeeded( smr, "gamma", "LLNL" ) < 0 ) return( 1 );
    if( lPoPs_addParticleIfNeeded( smr, "g", "LLNL" ) < 0 ) return( 1 );
    return( 0 );
}

Referenced by PoPs_readDatabase().

PoPs_setBDFLS_File()

int PoPs_setBDFLS_File

(

char const *

name

)

Definition at line 121 of file PoPs_data.cc.

                                           {
 
#ifdef POPS_BDFLS
 
    cbdfls_file *p;
    cbdflsErrors Error;
 
    if( BDFLS_Data != NULL ) cbdflsRelease( (cbdfls_file *) BDFLS_Data );
    BDFLS_Data = NULL;
    if( name != NULL ) {
        if( ( p = cbdflsOpen( name, &Error ) ) == NULL ) return( 1 );
        BDFLS_Data = (void *) p;
    }
#else
    if( name == NULL ) BDFLS_Data = NULL;   /* Do something with name so compilers do not complain. */
#endif
    return( 0 );
}