| Revision: | 1490 |
| Committed: | Fri Sep 24 04:16:43 2004 UTC (19 years, 9 months ago) by gezelter |
| Content type: | text/plain |
| File size: | 444 byte(s) |
| Log Message: | Import of OOPSE v. 2.0 |
| # | Content |
|---|---|
| 1 | /* Provides a fortran - c interface for info writer system. |
| 2 | */ |
| 3 | #include <string.h> |
| 4 | #include "config.h" |
| 5 | |
| 6 | #include "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 | } |