src/utils/fError.c

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

#include "utils/simError.h" 

void F90_FUNC_(c_simerror, C_SIMERROR) (errorStruct* pc);

void F90_FUNC_(c_simerror, C_SIMERROR) (errorStruct* pc){

  strcpy(painCave.errMsg, (*pc).errMsg);
  painCave.severity = (*pc).severity;
  painCave.isFatal = (*pc).isFatal;
#ifdef IS_MPI
  painCave.isEventLoop = (*pc).isEventLoop;
#endif
  simError();

}
Revision:	3
Committed:	Fri Sep 24 16:27:58 2004 UTC (20 years, 7 months ago) by tim
Content type:	text/plain
File size:	450 byte(s)
Log Message:	change the #include in source files
#	User	Rev	Content
1	gezelter	2	/* Provides a fortran - c interface for info writer system.
2			*/
3			#include <string.h>
4			#include "config.h"
5
6	tim	3	#include "utils/simError.h"
7	gezelter	2
8			void F90_FUNC_(c_simerror, C_SIMERROR) (errorStruct* pc);
9
10			void F90_FUNC_(c_simerror, C_SIMERROR) (errorStruct* pc){
11
12			strcpy(painCave.errMsg, (*pc).errMsg);
13			painCave.severity = (*pc).severity;
14			painCave.isFatal = (*pc).isFatal;
15			#ifdef IS_MPI
16			painCave.isEventLoop = (*pc).isEventLoop;
17			#endif
18			simError();
19
20			}