UseTheForce/DarkSide/simulation_module_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.
 *
 */


#define __C
#include "config.h"
extern "C"{
  typedef 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 ){
    F90_FUNC(setfortransim, SETFORTRANSIM)( nGlobal,
                                            nLocal,
                                            identArray,
                                            nLocalExcludes,
                                            excludesLocalArray,
                                            nGlobalExcludes,
                                            excludesGlobalArray,
                                            molMembershipArray,
                                            mfact,
                                            ngroup,
                                            globalGroupMembership,
                                            isError);
  }
  typedef void (setFortranBox) ( double *Hmat,
                                 double *HmatI,
                                 int* orthoRhombic ){
    F90_FUNC(setfortranbox,SETFORTRANBOX)( Hmat,
                                           HmatI,
                                           orthoRhombic)
    
  }
  
}
Revision:	1602
Committed:	Tue Oct 19 20:44:36 2004 UTC (19 years, 10 months ago) by chuckv
Content type:	text/plain
File size:	1910 byte(s)
Log Message:	Added new files for fortran interface.
#	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
11	#define __C
12	#include "config.h"
13	extern "C"{
14	typedef void (setFortranSim)( simtype* the_Info,
15	int* nGlobal,
16	int* nLocal,
17	int* identArray,
18	int* nLocalExcludes,
19	int* excludesLocalArray,
20	int* nGlobalExcludes,
21	int* excludesGlobalArray,
22	int* molMembershipArray,
23	double* mfact,
24	int* ngroup,
25	int* globalGroupMembership,
26	int* isError ){
27	F90_FUNC(setfortransim, SETFORTRANSIM)( nGlobal,
28	nLocal,
29	identArray,
30	nLocalExcludes,
31	excludesLocalArray,
32	nGlobalExcludes,
33	excludesGlobalArray,
34	molMembershipArray,
35	mfact,
36	ngroup,
37	globalGroupMembership,
38	isError);
39	}
40	typedef void (setFortranBox) ( double *Hmat,
41	double *HmatI,
42	int* orthoRhombic ){
43	F90_FUNC(setfortranbox,SETFORTRANBOX)( Hmat,
44	HmatI,
45	orthoRhombic)
46
47	}
48
49	}