#include <string.h>
#include "MCGIDI.h"

Functions
MCGIDI_particle *	MCGIDI_particle_free (statusMessageReporting smr, MCGIDI_particle particle)

int	MCGIDI_particle_freeInternalList (statusMessageReporting *smr)

MCGIDI_particle *	MCGIDI_particle_getInternalID (statusMessageReporting smr, const char const name, MCGIDI_POPs *pops)

int	MCGIDI_particle_initialize (statusMessageReporting , MCGIDI_particle particle)

MCGIDI_particle *	MCGIDI_particle_new (statusMessageReporting *smr)

int	MCGIDI_particle_printInternalSortedList (statusMessageReporting *)

int	MCGIDI_particle_release (statusMessageReporting , MCGIDI_particle particle)

Variables
static int	incrementalSizeOfList = 1000

static int	initialSizeOfList = 1000

static int	numberOfParticles = 0

static MCGIDI_particle *	particleList = NULL

static MCGIDI_particle *	particleListEnd = NULL

static MCGIDI_particle **	particleSortedList = NULL

static int	sizeOfParticleSortedList = 0

Function Documentation

◆ MCGIDI_particle_free()

MCGIDI_particle * MCGIDI_particle_free	(	statusMessageReporting *	smr,
		MCGIDI_particle *	particle
	)

Definition at line 39 of file MCGIDI_particle.cc.

                                                                                                {
 
    int i, j;
    MCGIDI_particle **p;
 
    for( i = 0, p = particleSortedList; i < numberOfParticles; i++, p++ ) {
        if( *p == particle ) {
            numberOfParticles--;
            for( j = i; j < numberOfParticles; j++, p++ ) *p = p[1];
            break;
        }
    }
    if( particle == particleListEnd ) particleListEnd = particle->prior;
    if( particle == particleList ) particleList = particle->next;
    if( particle->prior != NULL ) particle->prior->next = particle->next;
    if( particle->next != NULL ) particle->next->prior = particle->prior;
    MCGIDI_particle_release( smr, particle );
    smr_freeMemory( (void **) &particle );
    return( NULL );
}

References MCGIDI_particle_release(), MCGIDI_particle_s::next, numberOfParticles, particleList, particleListEnd, particleSortedList, MCGIDI_particle_s::prior, and smr_freeMemory().

Referenced by MCGIDI_particle_freeInternalList(), and MCGIDI_particle_getInternalID().

◆ MCGIDI_particle_freeInternalList()

int MCGIDI_particle_freeInternalList ( statusMessageReporting * smr )

Definition at line 70 of file MCGIDI_particle.cc.

                                                                    {
 
    while( particleList != NULL ) MCGIDI_particle_free( smr, particleList );  // Loop checking, 11.06.2015, T. Koi
    particleSortedList = (MCGIDI_particle **) smr_freeMemory( (void **) &particleSortedList );
    return( 0 );
}

References MCGIDI_particle_free(), particleList, particleSortedList, and smr_freeMemory().

◆ MCGIDI_particle_getInternalID()

MCGIDI_particle * MCGIDI_particle_getInternalID	(	statusMessageReporting *	smr,
		const char *const	name,
		MCGIDI_POPs *	pops
	)

Definition at line 79 of file MCGIDI_particle.cc.

                                                                                                                          {
 
    int i, iCmp, min, mid, max, Z, A, m, level;
    MCGIDI_particle *particle;
    MCGIDI_POP *pop;
 
    iCmp = 0;
    min = mid = 0;
    max = numberOfParticles;
    while( min != max ) {  // Loop checking, 11.06.2015, T. Koi
        mid = ( min + max ) / 2;
        iCmp = strcmp( name, particleSortedList[mid]->name );
        if( iCmp == 0 ) return( particleSortedList[mid] );
        if( iCmp < 0 ) {
            max = mid - 1;
            if( mid == 0 ) max = 0; }
        else {
            min = mid + 1;
            if( min > max ) min = max;
        }
    }
    mid = min;
    if( numberOfParticles > 0 ) {
        iCmp = strcmp( name, particleSortedList[mid]->name );
        if( iCmp == 0 ) return( particleSortedList[mid] );
        if( ( iCmp < 0 ) && ( mid != 0 ) ) {
            mid--;
            iCmp = strcmp( name, particleSortedList[mid]->name );
        }
    }
 
    if( ( particle = MCGIDI_particle_new( smr ) ) == NULL ) return( NULL );
    if( ( particle->name = smr_allocateCopyString( smr, name, "particle->name", __FILE__, __LINE__, __func__ ) ) == NULL ) goto err;
    if( MCGIDI_miscNameToZAm( smr, name, &Z, &A, &m, &level ) != 0 ) goto err;
    particle->prior = NULL;
    particle->next = NULL;
    particle->Z = Z;
    particle->A = A;
    particle->m = m;
    if( ( pop = MCGIDI_POPs_findParticle( pops, name ) ) == NULL ) {    /* This should not happend. */
        particle->mass_MeV = MCGIDI_AMU2MeV * MCGIDI_particleMass_AMU( smr, name ); }
    else {
        particle->mass_MeV = pop->mass_MeV;
    }
    if( !smr_isOk( smr ) ) goto err;
 
    if( sizeOfParticleSortedList < ( numberOfParticles + 1 ) ) {
        if( sizeOfParticleSortedList == 0 ) {
            sizeOfParticleSortedList = initialSizeOfList; }
        else {
            sizeOfParticleSortedList += incrementalSizeOfList;
        }
        if( ( particleSortedList = (MCGIDI_particle **) smr_realloc2( smr, particleSortedList, sizeOfParticleSortedList * sizeof( MCGIDI_particle * ), 
            "particleSortedList" ) ) == NULL ) goto err;
    }
 
    if( particleList == NULL ) {
        particle->ordinal = 0;
        particleListEnd = particleList = particle; }
    else {
        particle->ordinal = particleListEnd->ordinal + 1;
        particle->prior = particleListEnd;
        particleListEnd->next = particle;
        particleListEnd = particle;
    }
 
    if( ( mid != 0 ) || ( iCmp > 0 ) ) mid++;
    for( i = numberOfParticles; i > mid; i-- ) particleSortedList[i] = particleSortedList[i-1];
    particleSortedList[mid] = particle;
    numberOfParticles++;
 
    return( particle );
 
err:
    MCGIDI_particle_free( smr, particle );
    return( NULL );
}

References A, MCGIDI_particle_s::A, incrementalSizeOfList, initialSizeOfList, m, MCGIDI_particle_s::m, MCGIDI_POP_s::mass_MeV, MCGIDI_particle_s::mass_MeV, G4INCL::Math::max(), MCGIDI_AMU2MeV, MCGIDI_miscNameToZAm(), MCGIDI_particle_free(), MCGIDI_particle_new(), MCGIDI_particleMass_AMU(), MCGIDI_POPs_findParticle(), G4INCL::Math::min(), G4InuclParticleNames::name(), MCGIDI_particle_s::name, MCGIDI_particle_s::next, numberOfParticles, MCGIDI_particle_s::ordinal, particleList, particleListEnd, particleSortedList, MCGIDI_particle_s::prior, sizeOfParticleSortedList, smr_allocateCopyString(), smr_isOk(), smr_realloc2, Z, and MCGIDI_particle_s::Z.

◆ MCGIDI_particle_initialize()

int MCGIDI_particle_initialize	(	statusMessageReporting *	smr,
		MCGIDI_particle *	particle
	)

Definition at line 31 of file MCGIDI_particle.cc.

                                                                                        {
 
    memset( particle, 0, sizeof( MCGIDI_particle ) );
    return( 0 );
}

Referenced by MCGIDI_particle_new().

◆ MCGIDI_particle_new()

MCGIDI_particle * MCGIDI_particle_new ( statusMessageReporting * smr )

Definition at line 20 of file MCGIDI_particle.cc.

                                                                    {
 
    MCGIDI_particle *particle = (MCGIDI_particle *) smr_malloc2( smr, sizeof( MCGIDI_particle ), 0, "particle" );
 
    if( particle == NULL ) return( NULL );
    MCGIDI_particle_initialize( smr, particle );
    return( particle );
}

References MCGIDI_particle_initialize(), and smr_malloc2.

Referenced by MCGIDI_particle_getInternalID().

◆ MCGIDI_particle_printInternalSortedList()

int MCGIDI_particle_printInternalSortedList ( statusMessageReporting * smr )

Definition at line 159 of file MCGIDI_particle.cc.

                                                                          {
 
    int i;
 
    for( i = 0; i < numberOfParticles; i++ ) printf( "%s\n", particleSortedList[i]->name );
    return( 0 );
}

References G4InuclParticleNames::name(), numberOfParticles, and particleSortedList.

◆ MCGIDI_particle_release()

int MCGIDI_particle_release	(	statusMessageReporting *	smr,
		MCGIDI_particle *	particle
	)

Definition at line 62 of file MCGIDI_particle.cc.

                                                                                     {
 
    smr_freeMemory( (void **) &(particle->name) );
    return( 0 );
}