OOPSE/libmdtools/fInfo.c

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

#include "simError.h" 


void F90_FUNC_(c_info, C_INFO) (char *message, int len);
void F90_FUNC_(c_warning, C_WARNING) (char *message, int len);
void F90_FUNC_(c_error, C_ERROR) (char *message, int len);


void F90_FUNC_(c_info, C_INFO) (char *message, int len){

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

void F90_FUNC_(c_warning, C_WARNING) (char *message, int len){

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

}

void F90_FUNC_(c_error, C_ERROR) (char *message,int len){

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


}
Revision:	747
Committed:	Fri Sep 5 21:28:52 2003 UTC (20 years, 9 months ago) by gezelter
Content type:	text/plain
File size:	680 byte(s)
Log Message:	Changes to autoconf / configure method of configuring OOPSE
#	Content
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	}