tstNuclideResource.f90

./Core/re/f/tests/tstNuclideResource.f90

program tstdecayresource

#include "ScaleSTL/FortranTestMacros.h"

 use origen_decayresource_m
 use origen_testpaths_m
 use doublelist_m
 use stringlist_m

 implicit none

 type(origen_decayresource)    :: decay_resource
 type(origen_decayparent)      :: parent
 type(origen_decaychannellist) :: decay_channel_list
 type(origen_decaychannel)     :: decay_channel
 type(integerlist) :: decay_modes
 type(integerlist) :: parent_ids
 type(integerlist) :: yield_ids
 type(doublelist) :: yields

 type(stringlist) :: errors
 integer :: status
 logical :: has
 integer :: i,j,k,id,did,decay_mode,yield_type
 character(100) :: yield_id_string


end program