UseTheForce/DarkSide/mpisimulation_module_interface.h

/*
 *  mpisimulation_module_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 __MyCompanyName__. All rights reserved.
 *
 */

#ifndef MPISIMULATION_MODULE_INTERFACE_H
#define MPISIMULATION_MODULE_INTERFACE_H

#define __C
#include "config.h"

extern "C" {
  void F90_FUNC(setfortranmpi, SETFORTRANMPI)( mpiSimData* the_mpiPlug,
                                               int* nLocal, 
                                               int* globalAtomIndex,
                                               int* nGroupsLocal,
                                               int* globalGroupIndex,
                                               int* isError );
  
  void setFortranMPI( mpiSimData* the_mpiPlug,
                      int* nLocal, 
                      int* globalAtomIndex,
                      int* nGroupsLocal,
                      int* globalGroupIndex,
                      int* isError ){
    F90_FUNC(setfortranmpi, SETFORTRANMPI)(the_mpiPlug,
                                           nLocal,
                                           globalAtomIndex,
                                           nGroupsLocal,
                                           globalGroupIndex);
    
    
  }
}
#endif
Revision:	1604
Committed:	Tue Oct 19 22:37:55 2004 UTC (19 years, 8 months ago) by chuckv
Content type:	text/plain
File size:	1260 byte(s)
Log Message:	Added correct prototypes for C-fortran interface functions.
#	Content
1	/*
2	* mpisimulation_module_interface.h
3	* oopse
4	*
5	* Created by Charles Vardeman II on 10/19/04.
6	* Copyright 2004 __MyCompanyName__. All rights reserved.
7	*
8	*/
9
10	#ifndef MPISIMULATION_MODULE_INTERFACE_H
11	#define MPISIMULATION_MODULE_INTERFACE_H
12
13	#define __C
14	#include "config.h"
15
16	extern "C" {
17	void F90_FUNC(setfortranmpi, SETFORTRANMPI)( mpiSimData* the_mpiPlug,
18	int* nLocal,
19	int* globalAtomIndex,
20	int* nGroupsLocal,
21	int* globalGroupIndex,
22	int* isError );
23
24	void setFortranMPI( mpiSimData* the_mpiPlug,
25	int* nLocal,
26	int* globalAtomIndex,
27	int* nGroupsLocal,
28	int* globalGroupIndex,
29	int* isError ){
30	F90_FUNC(setfortranmpi, SETFORTRANMPI)(the_mpiPlug,
31	nLocal,
32	globalAtomIndex,
33	nGroupsLocal,
34	globalGroupIndex);
35
36
37	}
38	}
39	#endif