This routine will be called if an error occurs in one of the subroutines of this module.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | err_string |
subroutine handle_error(err_string) character(len=*), intent(in) :: err_string print *, "The following error occured in mod_config:" print *, trim(err_string) ! It is usually best to quit after an error, to make sure the error message ! is not overlooked in the program's output error stop end subroutine handle_error