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, 9 months ago) by chuckv
Content type:	text/plain
File size:	1260 byte(s)
Log Message:	Added correct prototypes for C-fortran interface functions.
#	User	Rev	Content
1	chuckv	1602	/*
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	chuckv	1604
10			#ifndef MPISIMULATION_MODULE_INTERFACE_H
11			#define MPISIMULATION_MODULE_INTERFACE_H
12
13	chuckv	1602	#define __C
14			#include "config.h"
15
16			extern "C" {
17	chuckv	1604	void F90_FUNC(setfortranmpi, SETFORTRANMPI)( mpiSimData* the_mpiPlug,
18			int* nLocal,
19			int* globalAtomIndex,
20			int* nGroupsLocal,
21			int* globalGroupIndex,
22			int* isError );
23	chuckv	1602
24	chuckv	1604	void setFortranMPI( mpiSimData* the_mpiPlug,
25			int* nLocal,
26			int* globalAtomIndex,
27			int* nGroupsLocal,
28			int* globalGroupIndex,
29			int* isError ){
30	chuckv	1602	F90_FUNC(setfortranmpi, SETFORTRANMPI)(the_mpiPlug,
31			nLocal,
32			globalAtomIndex,
33			nGroupsLocal,
34			globalGroupIndex);
35
36
37			}
38	chuckv	1604	}
39			#endif