1 |
+ |
|
2 |
+ |
#ifndef EAM_MODULE_INTERFACE_H |
3 |
+ |
#define EAM_MODULE_INTERFACE_H |
4 |
+ |
|
5 |
|
#define __C |
6 |
|
#include "config.h" |
7 |
|
extern "C"{ |
8 |
< |
typedef void (newEAMtype)( double* lattice_constant, |
9 |
< |
int* eam_nrho, |
10 |
< |
double* eam_drho, |
11 |
< |
int* eam_nr, |
12 |
< |
double* eam_dr, |
13 |
< |
double* eam_rcut, |
14 |
< |
double* eam_rvals, |
15 |
< |
double* eam_rhovals, |
16 |
< |
double* eam_Frhovals, |
17 |
< |
int* eam_ident, |
18 |
< |
int* status ){ |
8 |
> |
void F90_FUNC(neweamtype, NEWEAMTYPE)( double* lattice_constant, |
9 |
> |
int* eam_nrho, |
10 |
> |
double* eam_drho, |
11 |
> |
int* eam_nr, |
12 |
> |
double* eam_dr, |
13 |
> |
double* eam_rcut, |
14 |
> |
double* eam_rvals, |
15 |
> |
double* eam_rhovals, |
16 |
> |
double* eam_Frhovals, |
17 |
> |
int* eam_ident, |
18 |
> |
int* status ); |
19 |
> |
|
20 |
> |
|
21 |
> |
void newEAMtype( double* lattice_constant, |
22 |
> |
int* eam_nrho, |
23 |
> |
double* eam_drho, |
24 |
> |
int* eam_nr, |
25 |
> |
double* eam_dr, |
26 |
> |
double* eam_rcut, |
27 |
> |
double* eam_rvals, |
28 |
> |
double* eam_rhovals, |
29 |
> |
double* eam_Frhovals, |
30 |
> |
int* eam_ident, |
31 |
> |
int* status ){ |
32 |
|
|
33 |
|
F90_FUNC(neweamtype, NEWEAMTYPE)(lattice_constant, |
34 |
|
eam_nrho, |
42 |
|
eam_ident, |
43 |
|
status ); |
44 |
|
} |
45 |
< |
} |
45 |
> |
} |
46 |
> |
#endif |