tpia_particle.cc File Reference

#include <string.h>
#include <tpia_target.h>
#include "G4Types.hh"

Go to the source code of this file.

Functions
tpia_particle *	tpia_particle_create (statusMessageReporting *smr)
int	tpia_particle_initialize (statusMessageReporting *, tpia_particle *particle)
tpia_particle *	tpia_particle_free (statusMessageReporting *smr, tpia_particle *particle)
int	tpia_particle_release (statusMessageReporting *smr, tpia_particle *particle)
int	tpia_particle_freeInternalList (statusMessageReporting *smr)
tpia_particle *	tpia_particle_getInternalID (statusMessageReporting *smr, const char *const name)
int	tpia_particle_printInternalSortedList (statusMessageReporting *)

Function Documentation

tpia_particle* tpia_particle_create

(

statusMessageReporting *

smr

)

Definition at line 52 of file tpia_particle.cc.

References tpia_particle_initialize(), and xData_malloc2.

Referenced by tpia_particle_getInternalID().

                                                                   {

    //tpia_particle *particle = xData_malloc2( smr, sizeof( tpia_particle ), 0, "particle" );
    tpia_particle *particle = (tpia_particle*) xData_malloc2( smr, sizeof( tpia_particle ), 0, "particle" );

    if( particle == NULL ) return( NULL );
    tpia_particle_initialize( smr, particle );
    return( particle );
}

tpia_particle* tpia_particle_free	(	statusMessageReporting *	smr,
		tpia_particle *	particle
	)

Definition at line 73 of file tpia_particle.cc.

References tpia_particle_s::next, tpia_particle_s::prior, tpia_particle_release(), and xData_free().

Referenced by tpia_particle_freeInternalList(), and tpia_particle_getInternalID().

                                                                                          {

    int i, j;
    tpia_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;
    tpia_particle_release( smr, particle );
    xData_free( smr, particle );
    return( NULL );
}

int tpia_particle_freeInternalList

(

statusMessageReporting *

smr

)

Definition at line 104 of file tpia_particle.cc.

References tpia_particle_free(), and xData_free().

                                                                  {

    while( particleList != NULL ) tpia_particle_free( smr, particleList );
    //particleSortedList = xData_free( smr, particleSortedList );
    particleSortedList = (tpia_particle**) xData_free( smr, particleSortedList );
    return( 0 );
}

tpia_particle* tpia_particle_getInternalID	(	statusMessageReporting *	smr,
		const char *const	name
	)

Definition at line 114 of file tpia_particle.cc.

References tpia_particle_s::A, tpia_particle_s::fullMass_MeV, tpi_spectralID_s::level, python.hepunit::m, tpia_particle_s::m, tpia_particle_s::mass, G4INCL::Math::max(), G4INCL::Math::min(), tpi_spectralID_s::name, tpia_particle_s::name, tpia_particle_s::next, tpia_particle_s::ordinal, tpia_particle_s::prior, smr_isOk(), tpia_particle_s::spectralID, tpi_spectralID_parse(), tpia_AMU2MeV, tpia_miscNameToZAm(), tpia_particle_create(), tpia_particle_free(), tpia_particleMass_AMU(), xData_realloc2, and tpia_particle_s::Z.

Referenced by tpia_product_getFromElement(), tpia_target_heated_read(), and tpia_target_read().

                                                                                                   {

    int i, iCmp, min, mid, max, Z, A, m;
    tpia_particle *particle;
    char *EOP;

    iCmp = 0;
    min = mid = 0;
    max = numberOfParticles;
    while( min != max ) {
        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 = tpia_particle_create( smr ) ) == NULL ) return( NULL );
    if( ( particle->spectralID = tpi_spectralID_parse( smr, name, &(EOP) ) ) == NULL ) return( tpia_particle_free( smr, particle ) );
    particle->name = particle->spectralID->name;
    if( tpia_miscNameToZAm( smr, particle->name, &Z, &A, &m ) != 0 ) return( tpia_particle_free( smr, particle ) );
    particle->prior = NULL;
    particle->next = NULL;
    particle->Z = Z;
    particle->A = A;
    particle->m = m;
    particle->mass = tpia_particleMass_AMU( smr, particle->name );
    if( !smr_isOk( smr ) ) return( tpia_particle_free( smr, particle ) );
    particle->fullMass_MeV = tpia_AMU2MeV * particle->mass + particle->spectralID->level;

    if( sizeOfParticleSortedList < ( numberOfParticles + 1 ) ) {
        if( sizeOfParticleSortedList == 0 ) {
            sizeOfParticleSortedList = initialSizeOfList; }
        else {
            sizeOfParticleSortedList += incrementalSizeOfList;
        }
        //if( ( particleSortedList = xData_realloc2( smr, particleSortedList, sizeOfParticleSortedList * sizeof( tpia_particle * ), 
        if( ( particleSortedList = (tpia_particle** ) xData_realloc2( smr, particleSortedList, sizeOfParticleSortedList * sizeof( tpia_particle * ), 
            "particleSortedList" ) ) == NULL ) return( tpia_particle_free( smr, particle ) );
    }

    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 );
}

int tpia_particle_initialize	(	statusMessageReporting *	,
		tpia_particle *	particle
	)

Definition at line 65 of file tpia_particle.cc.

Referenced by tpia_particle_create().

                                                                                  {

    memset( particle, 0, sizeof( tpia_particle ) );
    return( 0 );
}

int tpia_particle_printInternalSortedList

(

statusMessageReporting *

)

Definition at line 190 of file tpia_particle.cc.

                                                                      {

    int i;

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

int tpia_particle_release	(	statusMessageReporting *	smr,
		tpia_particle *	particle
	)

Definition at line 96 of file tpia_particle.cc.

References tpia_particle_s::spectralID, and tpi_spectralID_free().

Referenced by tpia_particle_free().

                                                                                  {

    if( particle->spectralID != NULL ) tpi_spectralID_free( smr, particle->spectralID );
    return( 0 );
}