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, 11 months ago) by chuckv
Content type:	text/plain
File size:	828 byte(s)
Log Message:	Added new files for fortran interface.
#	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			#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			}