--- trunk/OOPSE-4/src/utils/simError.h 2005/01/13 19:40:37 1937 +++ trunk/OOPSE-4/src/utils/simError.h 2005/04/15 22:04:00 2204 @@ -55,17 +55,17 @@ type, public :: errorStruct INTEGER, PARAMETER:: OOPSE_INFO = 3 INTEGER, PARAMETER:: MAX_SIM_ERROR_MSG_LENGTH = 2000 -type, public :: errorStruct - PRIVATE - SEQUENCE - character(len = MAX_SIM_ERROR_MSG_LENGTH) :: errMsg - logical :: isFatal - integer :: severity + type, public :: errorStruct + PRIVATE + SEQUENCE + character(len = MAX_SIM_ERROR_MSG_LENGTH) :: errMsg + logical :: isFatal + integer :: severity #ifdef IS_MPI - logical :: isEventLoop; + logical :: isEventLoop; #endif // IS_MPI -end type errorStruct + end type errorStruct -type (errorStruct), public, save :: painCave + type (errorStruct), public, save :: painCave #endif // __FORTRAN90