tstTransitionMatrixP.f90

./Core/dc/f/tests/tstTransitionMatrixP.f90

program tsttransitionmatrixp

#include "ScaleSTL/FortranTestMacros.h"

use origen_transitionmatrixp_m
use origen_library_m
use origen_fakefactory_m
use origen_containerfunctions_m, only: origen_copynativetointegerlist
type(origen_transitionmatrixp) :: trx
type(origen_library) :: lib
type(origen_fakefactory) :: ff
integer :: itot,non,id
integer :: nind
logical :: loaded
type(integerlist) :: ilist

call lib % initialize()
loaded = ff % Library_random1(lib,333)

call lib % newptr_transition_matrix_at(trx,1_c_size_t)
expect_true( c_associated(trx%instance_ptr) )

expect_eq( 2226, trx%get_itot() )

!target id
id = 381621

!check we can guess
nind = trx%find_nuclide_guess(id)
expect_eq(2193,nind) !0-based

!check index is the same
call trx%get_nucl(ilist)
expect_eq(id,ilist%at(nind+1))

nind = trx%find_nuclide_guess(391629)
expect_eq(trx%NOT_FOUND(),nind)

call trx % destroy()
call lib % destroy()

end program