1 |
chuckv |
1602 |
/* |
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 |
|
|
} |