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:	115
Committed:	Wed Oct 20 04:02:48 2004 UTC (20 years, 6 months ago) by gezelter
Content type:	text/plain
File size:	2774 byte(s)
Log Message:	name sanity on the fortran side
#	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			#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