Revision: | 1492 |
Committed: | Fri Sep 24 16:27:58 2004 UTC (19 years, 11 months ago) by tim |
Content type: | text/plain |
Original Path: | trunk/OOPSE-2.0/src/utils/fError.c |
File size: | 450 byte(s) |
Log Message: | change the #include in source files |
# | Content |
---|---|
1 | /* Provides a fortran - c interface for info writer system. |
2 | */ |
3 | #include <string.h> |
4 | #include "config.h" |
5 | |
6 | #include "utils/simError.h" |
7 | |
8 | void F90_FUNC_(c_simerror, C_SIMERROR) (errorStruct* pc); |
9 | |
10 | void F90_FUNC_(c_simerror, C_SIMERROR) (errorStruct* pc){ |
11 | |
12 | strcpy(painCave.errMsg, (*pc).errMsg); |
13 | painCave.severity = (*pc).severity; |
14 | painCave.isFatal = (*pc).isFatal; |
15 | #ifdef IS_MPI |
16 | painCave.isEventLoop = (*pc).isEventLoop; |
17 | #endif |
18 | simError(); |
19 | |
20 | } |