Print meaningful error message to standard-error.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(object), | intent(in) | :: | self |
Object data. |
subroutine print_error_message(self) !< Print meaningful error message to standard-error. class(object), intent(in) :: self !< Object data. write(self%error_lun, '(A)') self%error_message write(self%error_lun, '(A)') endsubroutine print_error_message