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 |
|
9 |
void F90_FUNC_(c_info, C_INFO) (char *message, int len); |
10 |
void F90_FUNC_(c_warning, C_WARNING) (char *message, int len); |
11 |
void F90_FUNC_(c_error, C_ERROR) (char *message, int len); |
12 |
|
13 |
|
14 |
void F90_FUNC_(c_info, C_INFO) (char *message, int len){ |
15 |
|
16 |
strcpy(painCave.errMsg,message); |
17 |
painCave.isFatal = 0; |
18 |
} |
19 |
|
20 |
void F90_FUNC_(c_warning, C_WARNING) (char *message, int len){ |
21 |
|
22 |
strcpy(painCave.errMsg,message); |
23 |
painCave.isFatal = 0; |
24 |
|
25 |
} |
26 |
|
27 |
void F90_FUNC_(c_error, C_ERROR) (char *message,int len){ |
28 |
|
29 |
strcpy(painCave.errMsg,message); |
30 |
painCave.isFatal = 1; |
31 |
|
32 |
|
33 |
} |