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, 10 months ago) by gezelter
Content type:	text/plain
File size:	680 byte(s)
Log Message:	Changes to autoconf / configure method of configuring OOPSE
#	User	Rev	Content
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			}