tstSpectrum.f90

./Core/dc/f/tests/tstSpectrum.f90

program tstsspectrum

#include "ScaleSTL/FortranTestMacros.h"

use origen_spectrum_m
use scalestl_vec_dbl_m

implicit none

type(origen_spectrum)       :: spectrum
type(scalestl_vec_dbl)      :: bounds
type(scalestl_vec_dbl)      :: intensity
integer,parameter :: i=c_size_t

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

end program