Prints warning message in specific format.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | warning |
subroutine s_err_warn(warning) ! ==== Description !! Prints warning message in specific format. ! ==== Declarations character(len=*), intent(in) :: warning character(len=128) :: fstring ! ==== Instructions fstring = warning ! fstring = txt_warn // trim(warning) // txt_reset write(std_e, '(A)') fstring end subroutine s_err_warn