tstAlphaSpectra.f90

./Core/dc/f/tests/tstAlphaSpectra.f90

program tstalphaspectra

#include "ScaleSTL/FortranTestMacros.h"

use origen_alphaspectra_m
use scalestl_vec_dbl_m

implicit none

type(origen_alphaspectra)   :: alpha_spectra
type(scalestl_vec_dbl)      :: bounds
type(scalestl_vec_dbl)      :: intensity
integer,parameter :: i=c_size_t

call alpha_spectra % initialize()
expect_true(alpha_spectra % has_bounds() )
expect_true(alpha_spectra % has_intensity() )
call alpha_spectra % destroy()

end program