1 |
chuckv |
632 |
/* Provides a fortran - c interface for info writer system. |
2 |
|
|
*/ |
3 |
|
|
#include <string.h> |
4 |
|
|
|
5 |
|
|
#include "simError.h" |
6 |
|
|
|
7 |
|
|
|
8 |
|
|
void c_info_(char *message, int len); |
9 |
|
|
void c_warning_(char *message, int len); |
10 |
|
|
void c_error_(char *message, int len); |
11 |
|
|
|
12 |
|
|
|
13 |
|
|
void c_info_(char *message, int len){ |
14 |
|
|
|
15 |
|
|
strcpy(painCave.errMsg,message); |
16 |
|
|
painCave.isFatal = 0; |
17 |
|
|
} |
18 |
|
|
|
19 |
|
|
void c_warning_(char *message, int len){ |
20 |
|
|
|
21 |
|
|
strcpy(painCave.errMsg,message); |
22 |
|
|
painCave.isFatal = 0; |
23 |
|
|
|
24 |
|
|
} |
25 |
|
|
|
26 |
|
|
void c_error_(char *message,int len){ |
27 |
|
|
|
28 |
|
|
strcpy(painCave.errMsg,message); |
29 |
|
|
painCave.isFatal = 1; |
30 |
|
|
|
31 |
|
|
|
32 |
|
|
} |