UseTheForce/DarkSide/atype_module_interface.h

/*
 *  atype_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"{
  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 );
  }
}
Revision:	1602
Committed:	Tue Oct 19 20:44:36 2004 UTC (19 years, 10 months ago) by chuckv
Content type:	text/plain
File size:	1181 byte(s)
Log Message:	Added new files for fortran interface.
#	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	#define __C
10	#include "config.h"
11	extern "C"{
12	void makeAtype(int* unique_ident,
13	int* isLJ,
14	int* isSticky,
15	int* isDipole,
16	int* isGB,
17	int* isEAM,
18	int* isCharge,
19	double* lj_epslon,
20	double* lj_sigma,
21	double* charge,
22	double* dipole_moment,
23	int* status ){
24
25	F90_FUNC(makeatype, MAKEATYPE)( unique_ident,
26	isLJ,
27	isSticky,
28	isDipole,
29	isGB,
30	isEAM,
31	isCharge,
32	lj_epslon,
33	lj_sigma,
34	charge,
35	dipole_moment,
36	status );
37	}
38	}