ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libBASS/simError.h
(Generate patch)

Comparing trunk/OOPSE/libBASS/simError.h (file contents):
Revision 1218 by gezelter, Wed Jun 2 14:21:54 2004 UTC vs.
Revision 1233 by gezelter, Fri Jun 4 02:38:23 2004 UTC

# Line 1 | Line 1
1 + #ifndef __FORTRAN90
2   #ifndef __SIMERROR_H__
3   #define __SIMERROR_H__
4  
# Line 45 | Line 46 | extern "C" {
46   #endif //__cplusplus
47  
48   #endif // __SIMERROR_H__
49 +
50 + #else // __FORTRAN90
51 +
52 +  INTEGER, PARAMETER:: OOPSE_ERROR   = 1
53 +  INTEGER, PARAMETER:: OOPSE_WARNING = 2
54 +  INTEGER, PARAMETER:: OOPSE_INFO    = 3
55 +  INTEGER, PARAMETER:: MAX_SIM_ERROR_MSG_LENGTH = 2000
56 +  
57 + type, public :: errorStruct
58 +  PRIVATE
59 +  SEQUENCE
60 +  character(len = MAX_SIM_ERROR_MSG_LENGTH) :: errMsg
61 +  logical :: isFatal
62 +  integer :: severity
63 + #ifdef IS_MPI
64 +  logical :: isEventLoop;
65 + #endif // IS_MPI
66 + end type errorStruct
67 +
68 + type (errorStruct), public, save :: painCave
69 +
70 + #endif // __FORTRAN90

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines