Small wrapper to allow init_level_type to be passed instead of the level integer.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(init_type), | intent(inout) | :: | current | |||
type(init_level_type), | intent(in) | :: | target_level |
subroutine init_pass_type(current, target_level)
type(init_type), intent(inout) :: current
type(init_level_type), intent(in) :: target_level
call init(current, target_level%level)
end subroutine init_pass_type