tstGammaSpectra.f90

./Core/dc/f/tests/tstGammaSpectra.f90

program tstgammaspectra

#include "ScaleSTL/FortranTestMacros.h"

use origen_gammaspectra_m
use scalestl_vec_dbl_m

implicit none

type(origen_gammaspectra)   :: gamma_spectra
type(scalestl_vec_dbl)      :: bounds
type(scalestl_vec_dbl)      :: intensity
integer,parameter :: i=c_size_t

call gamma_spectra % initialize()
expect_true(gamma_spectra % has_bounds() )
expect_true(gamma_spectra % has_intensity() )

call gamma_spectra % destroy()

end program