| 59 |
|
!!$ |
| 60 |
|
!!$end interface |
| 61 |
|
|
| 62 |
< |
public :: handleInfo |
| 63 |
< |
public :: handleError |
| 64 |
< |
public :: handleWarning |
| 65 |
< |
public :: statusMsgSize |
| 66 |
< |
public :: nullchar |
| 67 |
< |
public :: newline |
| 68 |
< |
public :: tab |
| 62 |
> |
public :: handleInfo |
| 63 |
> |
public :: handleError |
| 64 |
> |
public :: handleWarning |
| 65 |
> |
public :: statusMsgSize |
| 66 |
> |
public :: nullchar |
| 67 |
> |
public :: newline |
| 68 |
> |
public :: tab |
| 69 |
|
|
| 70 |
|
contains |
| 71 |
|
|
| 72 |
|
subroutine handleInfo(myRoutine, myMessage) |
| 73 |
|
character(len=*), intent(in) :: myRoutine |
| 74 |
|
character(len=*), intent(in) :: myMessage |
| 75 |
< |
|
| 75 |
> |
|
| 76 |
|
painCave%errMsg = "Location: " // trim(myRoutine) // newline // & |
| 77 |
|
tab // trim(myMessage) // newline // nullchar |
| 78 |
|
|
| 94 |
|
painCave%isFatal = .true. |
| 95 |
|
|
| 96 |
|
call c_simError(painCave) |
| 97 |
< |
|
| 97 |
> |
|
| 98 |
|
end subroutine handleError |
| 99 |
|
|
| 100 |
|
subroutine handleWarning(myRoutine, myMessage) |
| 110 |
|
call c_simError(painCave) |
| 111 |
|
|
| 112 |
|
end subroutine handleWarning |
| 113 |
< |
|
| 113 |
> |
|
| 114 |
|
end module status |
