tstNeutronSpectra.f90

./Core/dc/f/tests/tstNeutronSpectra.f90

program tstneutronspectra

#include "ScaleSTL/FortranTestMacros.h"

use origen_neutronspectra_m
use scalestl_vec_dbl_m

implicit none

type(origen_neutronspectra)   :: neutron_spectra
type(scalestl_vec_dbl)      :: bounds
type(scalestl_vec_dbl)      :: intensity
integer,parameter :: i=c_size_t

call neutron_spectra % initialize()
expect_true(neutron_spectra % has_bounds() )
expect_true(neutron_spectra % has_intensity() )
expect_true(neutron_spectra % has_intensity_alphan() )
expect_true(neutron_spectra % has_intensity_delayn() )

call neutron_spectra % destroy()

end program