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 "config.h"
extern "C"{
  void F90_FUNC(setfortransim, 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 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);
  }
  
 void F90_FUNC(setfortranbox,SETFORTRANBOX) ( double *Hmat,
                                              double *HmatI,
                                              int* orthoRhombic );
 
 void setFortranBox ( double *Hmat,
                      double *HmatI,
                      int* orthoRhombic ){
   F90_FUNC(setfortranbox,SETFORTRANBOX)( Hmat,
                                          HmatI,
                                          orthoRhombic)
   
 }
 
}
#endif
Revision:	1608
Committed:	Wed Oct 20 04:02:48 2004 UTC (19 years, 9 months ago) by gezelter
Content type:	text/plain
File size:	2774 byte(s)
Log Message:	name sanity on the fortran side
#	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 "config.h"
15	extern "C"{
16	void F90_FUNC(setfortransim, SETFORTRANSIM)( simtype* the_Info,
17	int* nGlobal,
18	int* nLocal,
19	int* identArray,
20	int* nLocalExcludes,
21	int* excludesLocalArray,
22	int* nGlobalExcludes,
23	int* excludesGlobalArray,
24	int* molMembershipArray,
25	double* mfact,
26	int* ngroup,
27	int* globalGroupMembership,
28	int* isError );
29
30	void setFortranSim ( simtype* the_Info,
31	int* nGlobal,
32	int* nLocal,
33	int* identArray,
34	int* nLocalExcludes,
35	int* excludesLocalArray,
36	int* nGlobalExcludes,
37	int* excludesGlobalArray,
38	int* molMembershipArray,
39	double* mfact,
40	int* ngroup,
41	int* globalGroupMembership,
42	int* isError ){
43	F90_FUNC(setfortransim, SETFORTRANSIM)( nGlobal,
44	nLocal,
45	identArray,
46	nLocalExcludes,
47	excludesLocalArray,
48	nGlobalExcludes,
49	excludesGlobalArray,
50	molMembershipArray,
51	mfact,
52	ngroup,
53	globalGroupMembership,
54	isError);
55	}
56
57	void F90_FUNC(setfortranbox,SETFORTRANBOX) ( double *Hmat,
58	double *HmatI,
59	int* orthoRhombic );
60
61	void setFortranBox ( double *Hmat,
62	double *HmatI,
63	int* orthoRhombic ){
64	F90_FUNC(setfortranbox,SETFORTRANBOX)( Hmat,
65	HmatI,
66	orthoRhombic)
67
68	}
69
70	}
71	#endif