--- trunk/OOPSE-4/src/utils/simError.h 2004/09/24 04:16:43 1490 +++ trunk/OOPSE-4/src/utils/simError.h 2005/04/15 22:04:00 2204 @@ -1,6 +1,7 @@ + #ifndef __FORTRAN90 -#ifndef __SIMERROR_H__ -#define __SIMERROR_H__ +#ifndef UTILS_SIMERROR_H +#define UTILS_SIMERROR_H #define MAX_SIM_ERROR_MSG_LENGTH 2000 @@ -54,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