tstBetaSpectra.f90

./Core/dc/f/tests/tstBetaSpectra.f90

program tstbetaspectra

#include "ScaleSTL/FortranTestMacros.h"

use origen_betaspectra_m
use scalestl_vec_dbl_m

implicit none

type(origen_betaspectra)    :: beta_spectra
type(scalestl_vec_dbl)      :: bounds
type(scalestl_vec_dbl)      :: intensity
integer,parameter :: i=c_size_t

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

call beta_spectra % destroy()

end program