replace_layers Function

function replace_layers(full_delineation_x, full_delineation_y, iy) result(wrapper_layer_x)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: full_delineation_x(:)
character(len=*), intent(in) :: full_delineation_y(:)
integer :: iy

Return Value character(len=len(full_delineation_x)) (size(full_delineation_x))


Contents

None