15 #if defined __cplusplus
103 double crossSectionInit[4] = { 0., 0., 0., 0., };
106 int subtag1_Notice = 0;
116 if( strcmp( version,
"GND 1.3" ) != 0 ) {
121 if( strcmp( element->
name,
"reactionSuite" ) != 0 ) {
132 while( isspace( *e1 ) ) ++
e1;
152 if( strcmp( child->
name,
"particles" ) == 0 )
continue;
153 if( strcmp( child->
name,
"styles" ) == 0 )
continue;
154 if( strcmp( child->
name,
"documentations" ) == 0 )
continue;
155 if( strcmp( child->
name,
"resonances" ) == 0 )
continue;
156 if( strcmp( child->
name,
"summedReaction" ) == 0 )
continue;
157 if( strcmp( child->
name,
"fissionComponent" ) == 0 )
continue;
158 if( strcmp( child->
name,
"reaction" ) == 0 ) {
164 if( ir == 0 ) { target->
EMin = EMin; target->
EMax = EMax; }
165 if( EMin < target->EMin ) target->
EMin = EMin;
166 if( EMax > target->
EMax ) target->
EMax = EMax;
167 for( transportabilitiesMap::const_iterator iter = reaction->
transportabilities->begin( );
172 else if( strcmp( child->
name,
"production" ) == 0 ) {
174 else if( strcmp( child->
name,
"aliases" ) == 0 ) {
176 else if( strcmp( child->
name,
"partialGammaProduction" ) == 0 ) {
177 if( subtag1_Notice == 0 )
printf(
"Unsupported reactionSuite sub-tag = '%s'\n", child->
name );
180 printf(
"Unsupported reactionSuite sub-tag = '%s'\n", child->
name );
183 crossSectionInit[0] = target->
EMin;
184 crossSectionInit[2] = target->
EMax;
221 if( strcmp( child->
name,
"particle" ) ) {
263 int globalParticle = 1;
264 char const *
name = NULL, *
mass = NULL;
281 if( strcmp( child->
name,
"level" ) ) {
299 int globalParticle = 0;
300 char const *
name, *level, *aliasValue;
301 double level_MeV = 0.;
319 if( strcmp( aliasValue, name ) == 0 ) globalParticle = 1;
337 char const *finalLevelString;
341 if( strcmp( child->
name,
"gamma" ) ) {
347 if( gammaCounts > 0 ) {
403 if( ( index >= 0 ) && ( index < target->numberOfReactions ) )
return( &(target->
reactions[index]) );
413 if( reaction == NULL ) {
424 MCGIDI_channel *channel = NULL;
426 if( ( index >= 0 ) && ( index < target->nProductionReactions ) ) channel = target->productionReactions[index];
469 if( e_in < target->EMin ) e_in = target->
EMin;
470 if( e_in > target->
EMax ) e_in = target->
EMax;
482 if( xSecP != NULL ) {
514 if( reaction == NULL )
return( -1 );
524 if( reaction == NULL )
return( -1 );
525 return( reaction->
EMin );
534 if( reaction == NULL )
return( -1 );
535 *EMin = reaction->
EMin;
536 *EMax = reaction->
EMax;
547 if( reaction == NULL )
return( 0. );
567 if( projectileSettings == NULL ) {
576 if( ( totalGroupedCrossSection =
ptwX_createLine( numberOfGroups, numberOfGroups, 0, 0, &status_nf ) ) == NULL ) {
604 totalGroupedCrossSection = NULL;
614 #if defined __cplusplus