1 |
+ |
|
2 |
|
#ifndef __FORTRAN90 |
3 |
< |
#ifndef __SIMERROR_H__ |
4 |
< |
#define __SIMERROR_H__ |
3 |
> |
#ifndef UTILS_SIMERROR_H |
4 |
> |
#define UTILS_SIMERROR_H |
5 |
|
|
6 |
|
#define MAX_SIM_ERROR_MSG_LENGTH 2000 |
7 |
|
|
55 |
|
INTEGER, PARAMETER:: OOPSE_INFO = 3 |
56 |
|
INTEGER, PARAMETER:: MAX_SIM_ERROR_MSG_LENGTH = 2000 |
57 |
|
|
58 |
< |
type, public :: errorStruct |
59 |
< |
PRIVATE |
60 |
< |
SEQUENCE |
61 |
< |
character(len = MAX_SIM_ERROR_MSG_LENGTH) :: errMsg |
62 |
< |
logical :: isFatal |
63 |
< |
integer :: severity |
58 |
> |
type, public :: errorStruct |
59 |
> |
PRIVATE |
60 |
> |
SEQUENCE |
61 |
> |
character(len = MAX_SIM_ERROR_MSG_LENGTH) :: errMsg |
62 |
> |
logical :: isFatal |
63 |
> |
integer :: severity |
64 |
|
#ifdef IS_MPI |
65 |
< |
logical :: isEventLoop; |
65 |
> |
logical :: isEventLoop; |
66 |
|
#endif // IS_MPI |
67 |
< |
end type errorStruct |
67 |
> |
end type errorStruct |
68 |
|
|
69 |
< |
type (errorStruct), public, save :: painCave |
69 |
> |
type (errorStruct), public, save :: painCave |
70 |
|
|
71 |
|
#endif // __FORTRAN90 |