tstStateInfo.f90

./Core/dc/f/tests/tstStateInfo.f90

program tststateinfo

#include "ScaleSTL/FortranTestMacros.h"

use origen_stateinfo_m
use origen_tagmanager_m

implicit none

type(origen_stateinfo)      :: state_info
type(origen_tagmanager)     :: tag_manager
!type(ScaleSTL_Vec_Int)      :: ivec
!type(ScaleSTL_Vec_Dbl)      :: dvec
integer,parameter :: i=c_size_t
real :: power,flux,time,burnup
integer :: case_number,library_position,step_number

!create a new state info
call state_info % initialize()
call state_info % getptr_tag_manager(tag_manager)
assert_c_assoc(tag_manager)

!set parameters
call state_info % set_power(40.0)
call state_info % set_flux(1.e14)
call state_info % set_time(10.0)
call state_info % set_burnup(0.1)

!get parameters
power = state_info % power()
expect_eq(40.0,power)

flux = state_info % flux()
expect_eq(1.e14,flux)

time = state_info % time()
expect_eq(10.0,time)

burnup = state_info % burnup()
expect_eq(0.1,burnup)

!destroy
call state_info % destroy()
assert_not_c_assoc(state_info)

end program