@brief Print warning message to standard-error and continue execution. @details
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | file_name | |||
| integer, | intent(in) | :: | line_num | |||
| character(len=*), | intent(in) | :: | caller | |||
| character(len=*), | intent(in) | :: | message |
subroutine sll_s_warning_handler( file_name, line_num, caller, message ) character(len=*), intent(in) :: file_name !< file name integer , intent(in) :: line_num !< line number character(len=*), intent(in) :: caller !< program/subroutine/function character(len=*), intent(in) :: message !< error message call errout( error_unit, 'W', file_name, line_num, caller, message ) end subroutine sll_s_warning_handler