--- trunk/src/utils/simError.h 2004/09/24 04:16:43 2 +++ trunk/src/utils/simError.h 2005/04/15 22:04:00 507 @@ -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 @@ extern "C" { 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