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 (22 years, 3 months ago) by chuckv
Content type:	text/plain
Original Path:	*trunk/OOPSE/libmdtools/fInfo.c*
File size:	538 byte(s)
Log Message:	added info module
#	User	Rev	Content
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			}