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.
 *
 */
#define __C
#include "config.h"

extern "C" {
  
  typedef 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);
    
    
  }
}
Revision:	1602
Committed:	Tue Oct 19 20:44:36 2004 UTC (19 years, 10 months ago) by chuckv
Content type:	text/plain
File size:	828 byte(s)
Log Message:	Added new files for fortran interface.
#	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	#define __C
10	#include "config.h"
11
12	extern "C" {
13
14	typedef void (setFortranMPI)( mpiSimData* the_mpiPlug,
15	int* nLocal,
16	int* globalAtomIndex,
17	int* nGroupsLocal,
18	int* globalGroupIndex,
19	int* isError ){
20	F90_FUNC(setfortranmpi, SETFORTRANMPI)(the_mpiPlug,
21	nLocal,
22	globalAtomIndex,
23	nGroupsLocal,
24	globalGroupIndex);
25
26
27	}
28	}