Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | sub_name | |||
character(len=*), | intent(in) | :: | error_msg |
pure subroutine stop_all(sub_name, error_msg)
character(*), intent(in) :: sub_name, error_msg
call hidden_stop_all(sub_name, error_msg)
end subroutine stop_all