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, 9 months ago) by gezelter
Content type:	text/plain
File size:	1939 byte(s)
Log Message:	name sanity on the fortran side
#	User	Rev	Content
1	gezelter	1608	/*
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