| 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 |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | gezelter | 1490 | /* 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 | } |