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:	1617
Committed:	Wed Oct 20 20:46:20 2004 UTC (19 years, 8 months 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)
#	Content
1	/*
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	#include "brains/fSimulation.h"
15	#include "config.h"
16
17	#define setFortranSim F90_FUNC(setfortransim, SETFORTRANSIM)
18	#define setFortranBox F90_FUNC(setfortranbox, SETFORTRANBOX)
19
20	extern "C"{
21	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
35	void setFortranBox( double *Hmat,
36	double *HmatI,
37	int* orthoRhombic );
38	}
39	#endif