FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ingen_config_type), | intent(in), | optional | :: | ingen_config_in |
subroutine init_ingen(ingen_config_in)
implicit none
type(ingen_config_type), intent(in), optional :: ingen_config_in
if(initialized) return
initialized = .true.
if (present(ingen_config_in)) ingen_config = ingen_config_in
call ingen_config%init(name = 'ingen_knobs', requires_index = .false.)
! Copy out internal values into module level parameters
associate(self => ingen_config)
#include "ingen_copy_out_auto_gen.inc"
end associate
allocate(sweet_spots(0))
end subroutine init_ingen