15 #if defined __cplusplus
23 #if defined __cplusplus
31 #if defined __cplusplus
42 for( i1 = 0; i1 <
n1; ++i1 ) {
46 sprintf( ZAName,
"%d%.3d", pop->
Z, pop->
A );
52 if(
smr_isOk( smr ) == 0 )
return( 1 );
65 if( ( pop =
PoP_new( smr ) ) != NULL ) {
78 for( i = 0; i <
n; i++ ) {
79 if( strcmp(
PoPDatas[i].name, name ) == 0 ) {
104 int ZA = 1000 * pop->Z + pop->A;
109 mass_ = cbdflsGetMass( (cbdfls_file *)
BDFLS_Data, ZA ); }
111 if( pop->name[0] ==
'e' ) mass_ = cbdflsGetMass( (cbdfls_file *)
BDFLS_Data, 8 );
113 if( mass_ < 0 ) mass_ =
mass;
131 if( ( p = cbdflsOpen( name, &Error ) ) == NULL )
return( 1 );
140 #if defined __cplusplus