UseTheForce/DarkSide/mpiSimulation_interface.h

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

#ifndef USETHEFORCE_DARKSIDE_MPISIMULATION_INTERFACE_H
#define USETHEFORCE_DARKSIDE_MPISIMULATION_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:	1608
Committed:	Wed Oct 20 04:02:48 2004 UTC (19 years, 10 months ago) by gezelter
Content type:	text/plain
File size:	1289 byte(s)
Log Message:	name sanity on the fortran side
#	User	Rev	Content
1	gezelter	1608	/*
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 USETHEFORCE_DARKSIDE_MPISIMULATION_INTERFACE_H
11			#define USETHEFORCE_DARKSIDE_MPISIMULATION_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