UseTheForce/DarkSide/atype_interface.h

/*
 *  atype_module_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 __MyCompanyName__. All rights reserved.
 *
 */
#ifndef USETHEFORCE_DARKSIDE_ATYPE_INTERFACE_H
#define USETHEFORCE_DARKSIDE_ATYPE_INTERFACE_H

#define __C
#include "config.h"
extern "C"{
  void F90_FUNC(makeatype, MAKEATYPE)(int* unique_ident, 
                                      int* isLJ, 
                                      int* isSticky,
                                      int* isDipole, 
                                      int* isGB, 
                                      int* isEAM,
                                      int* isCharge,
                                      double* lj_epslon, 
                                      double* lj_sigma, 
                                      double* charge,
                                      double* dipole_moment, 
                                      int* status );
  
  void makeAtype(int* unique_ident, 
                 int* isLJ, 
                 int* isSticky,
                 int* isDipole, 
                 int* isGB, 
                 int* isEAM,
                 int* isCharge,
                 double* lj_epslon, 
                 double* lj_sigma, 
                 double* charge,
                 double* dipole_moment, 
                 int* status ){
    
    F90_FUNC(makeatype, MAKEATYPE)(  unique_ident, 
                                     isLJ, 
                                     isSticky,
                                     isDipole, 
                                     isGB, 
                                     isEAM,
                                     isCharge,
                                     lj_epslon, 
                                     lj_sigma, 
                                     charge,
                                     dipole_moment, 
                                     status );
  }
}
#endif
Revision:	1608
Committed:	Wed Oct 20 04:02:48 2004 UTC (19 years, 8 months ago) by gezelter
Content type:	text/plain
File size:	1939 byte(s)
Log Message:	name sanity on the fortran side
#	Content
1	/*
2	* atype_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	#ifndef USETHEFORCE_DARKSIDE_ATYPE_INTERFACE_H
10	#define USETHEFORCE_DARKSIDE_ATYPE_INTERFACE_H
11
12	#define __C
13	#include "config.h"
14	extern "C"{
15	void F90_FUNC(makeatype, MAKEATYPE)(int* unique_ident,
16	int* isLJ,
17	int* isSticky,
18	int* isDipole,
19	int* isGB,
20	int* isEAM,
21	int* isCharge,
22	double* lj_epslon,
23	double* lj_sigma,
24	double* charge,
25	double* dipole_moment,
26	int* status );
27
28	void makeAtype(int* unique_ident,
29	int* isLJ,
30	int* isSticky,
31	int* isDipole,
32	int* isGB,
33	int* isEAM,
34	int* isCharge,
35	double* lj_epslon,
36	double* lj_sigma,
37	double* charge,
38	double* dipole_moment,
39	int* status ){
40
41	F90_FUNC(makeatype, MAKEATYPE)( unique_ident,
42	isLJ,
43	isSticky,
44	isDipole,
45	isGB,
46	isEAM,
47	isCharge,
48	lj_epslon,
49	lj_sigma,
50	charge,
51	dipole_moment,
52	status );
53	}
54	}
55	#endif