UseTheForce/DarkSide/simulation_interface.h

/*
 *  simulation_module_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 University of Notre Dame. All rights reserved.
 *
 */

#ifndef USETHEFORCE_DARKSIDE_SIMULATION_INTERFACE_H
#define USETHEFORCE_DARKSIDE_SIMULATION_INTERFACE_H

#define __C
#include "brains/fSimulation.h"
#include "config.h"

#define setFortranSim F90_FUNC(setfortransim, SETFORTRANSIM)
#define setFortranBox F90_FUNC(setfortranbox, SETFORTRANBOX)

extern "C"{
  void setFortranSim( simtype* the_Info,
                      int* nGlobal, 
                      int* nLocal, 
                      int* identArray,
                      int* nLocalExcludes,
                      int* excludesLocalArray,
                      int* nGlobalExcludes,
                      int* excludesGlobalArray,
                      int* molMembershipArray,
                      double* mfact,
                      int* ngroup,
                      int* globalGroupMembership,
                      int* isError );
  
  void setFortranBox( double *Hmat,
                      double *HmatI,
                      int* orthoRhombic );
}
#endif
Revision:	124
Committed:	Wed Oct 20 20:46:20 2004 UTC (21 years ago) by chuckv
Content type:	text/plain
File size:	1147 byte(s)
Log Message:	Fortran/C++ interface de-obfuscation project (It is a very long story)
#	User	Rev	Content
1	gezelter	115	/*
2			* simulation_module_interface.h
3			* oopse
4			*
5			* Created by Charles Vardeman II on 10/19/04.
6			* Copyright 2004 University of Notre Dame. All rights reserved.
7			*
8			*/
9
10			#ifndef USETHEFORCE_DARKSIDE_SIMULATION_INTERFACE_H
11			#define USETHEFORCE_DARKSIDE_SIMULATION_INTERFACE_H
12
13			#define __C
14	chuckv	124	#include "brains/fSimulation.h"
15	gezelter	115	#include "config.h"
16	chuckv	124
17			#define setFortranSim F90_FUNC(setfortransim, SETFORTRANSIM)
18			#define setFortranBox F90_FUNC(setfortranbox, SETFORTRANBOX)
19
20	gezelter	115	extern "C"{
21	chuckv	124	void setFortranSim( simtype* the_Info,
22			int* nGlobal,
23			int* nLocal,
24			int* identArray,
25			int* nLocalExcludes,
26			int* excludesLocalArray,
27			int* nGlobalExcludes,
28			int* excludesGlobalArray,
29			int* molMembershipArray,
30			double* mfact,
31			int* ngroup,
32			int* globalGroupMembership,
33			int* isError );
34	gezelter	115
35	chuckv	124	void setFortranBox( double *Hmat,
36	gezelter	115	double *HmatI,
37	chuckv	124	int* orthoRhombic );
38	gezelter	115	}
39			#endif