1 |
chuckv |
632 |
/* Provides a fortran - c interface for info writer system. |
2 |
|
|
*/ |
3 |
|
|
#include <string.h> |
4 |
gezelter |
747 |
#include "config.h" |
5 |
chuckv |
632 |
|
6 |
|
|
#include "simError.h" |
7 |
|
|
|
8 |
|
|
|
9 |
gezelter |
747 |
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 |
chuckv |
632 |
|
13 |
|
|
|
14 |
gezelter |
747 |
void F90_FUNC_(c_info, C_INFO) (char *message, int len){ |
15 |
chuckv |
632 |
|
16 |
|
|
strcpy(painCave.errMsg,message); |
17 |
|
|
painCave.isFatal = 0; |
18 |
|
|
} |
19 |
|
|
|
20 |
gezelter |
747 |
void F90_FUNC_(c_warning, C_WARNING) (char *message, int len){ |
21 |
chuckv |
632 |
|
22 |
|
|
strcpy(painCave.errMsg,message); |
23 |
|
|
painCave.isFatal = 0; |
24 |
|
|
|
25 |
|
|
} |
26 |
|
|
|
27 |
gezelter |
747 |
void F90_FUNC_(c_error, C_ERROR) (char *message,int len){ |
28 |
chuckv |
632 |
|
29 |
|
|
strcpy(painCave.errMsg,message); |
30 |
|
|
painCave.isFatal = 1; |
31 |
|
|
|
32 |
|
|
|
33 |
|
|
} |