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.
#	User	Rev	Content
1	chuckv	1602	/*
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			}