OOPSE/libmdtools/fInfo.c

/* Provides a fortran - c interface for info writer system.
 */
#include <string.h>

#include "simError.h" 


void c_info_(char *message, int len);
void c_warning_(char *message, int len);
void c_error_(char *message, int len);


void c_info_(char *message, int len){

  strcpy(painCave.errMsg,message);
  painCave.isFatal = 0;
}

void c_warning_(char *message, int len){

  strcpy(painCave.errMsg,message);
  painCave.isFatal = 0;

}

void c_error_(char *message,int len){

  strcpy(painCave.errMsg,message);
  painCave.isFatal = 1;


}
Revision:	632
Committed:	Thu Jul 17 19:29:09 2003 UTC (20 years, 11 months ago) by chuckv
Content type:	text/plain
File size:	538 byte(s)
Log Message:	added info module
#	Content
1	/* 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	}