src/utils/simError.h

 
#ifndef __FORTRAN90
#ifndef UTILS_SIMERROR_H
#define UTILS_SIMERROR_H

#define MAX_SIM_ERROR_MSG_LENGTH 2000

#define OOPSE_ERROR   1
#define OOPSE_WARNING 2
#define OOPSE_INFO    3

typedef struct{
  char errMsg[MAX_SIM_ERROR_MSG_LENGTH];
  int isFatal;
  int severity;
  int isEventLoop;
} errorStruct;

extern errorStruct painCave;

extern char checkPointMsg[MAX_SIM_ERROR_MSG_LENGTH];

extern int worldRank;

#ifdef __cplusplus
extern "C" {
#endif 
  
  int simError( void ); 

  void initSimError( void ); 

  void errorCheckPoint( void );
                             
#ifdef __cplusplus
}
#endif 

#endif 

#else 

  INTEGER, PARAMETER:: OOPSE_ERROR   = 1
  INTEGER, PARAMETER:: OOPSE_WARNING = 2
  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
    logical :: isEventLoop;
  end type errorStruct

  type (errorStruct), public, save :: painCave

#endif 
Revision:	1241
Committed:	Fri Apr 25 15:14:47 2008 UTC (17 years ago) by gezelter
Content type:	text/plain
File size:	1071 byte(s)
Log Message:	A bunch of minor changes to make MPI compilation faster than the double compilation we do now...
#	User	Rev	Content
1	gezelter	246
2	gezelter	2	#ifndef __FORTRAN90
3	gezelter	246	#ifndef UTILS_SIMERROR_H
4			#define UTILS_SIMERROR_H
5	gezelter	2
6			#define MAX_SIM_ERROR_MSG_LENGTH 2000
7
8			#define OOPSE_ERROR 1
9			#define OOPSE_WARNING 2
10			#define OOPSE_INFO 3
11
12			typedef struct{
13			char errMsg[MAX_SIM_ERROR_MSG_LENGTH];
14			int isFatal;
15			int severity;
16			int isEventLoop;
17			} errorStruct;
18
19			extern errorStruct painCave;
20
21			extern char checkPointMsg[MAX_SIM_ERROR_MSG_LENGTH];
22
23			extern int worldRank;
24
25			#ifdef __cplusplus
26			extern "C" {
27	tim	564	#endif
28	gezelter	2
29	tim	564	int simError( void );
30	gezelter	2
31	tim	564	void initSimError( void );
32	gezelter	1241
33			void errorCheckPoint( void );
34	tim	564
35	gezelter	2	#ifdef __cplusplus
36			}
37	tim	564	#endif
38	gezelter	2
39	tim	564	#endif
40	gezelter	2
41	tim	564	#else
42	gezelter	2
43			INTEGER, PARAMETER:: OOPSE_ERROR = 1
44			INTEGER, PARAMETER:: OOPSE_WARNING = 2
45			INTEGER, PARAMETER:: OOPSE_INFO = 3
46			INTEGER, PARAMETER:: MAX_SIM_ERROR_MSG_LENGTH = 2000
47
48	gezelter	507	type, public :: errorStruct
49			PRIVATE
50			SEQUENCE
51			character(len = MAX_SIM_ERROR_MSG_LENGTH) :: errMsg
52			logical :: isFatal
53			integer :: severity
54			logical :: isEventLoop;
55			end type errorStruct
56	gezelter	2
57	gezelter	507	type (errorStruct), public, save :: painCave
58	gezelter	2
59	tim	564	#endif