46 |
|
|
47 |
|
#include "config.h" |
48 |
|
|
49 |
< |
#define newEAMtype F90_FUNC(neweamtype, NEWEAMTYPE) |
49 |
> |
#define newEAMtype FC_FUNC(neweamtype, NEWEAMTYPE) |
50 |
|
|
51 |
|
extern "C"{ |
52 |
< |
void newEAMtype( double* lattice_constant, |
52 |
> |
void newEAMtype( RealType* lattice_constant, |
53 |
|
int* eam_nrho, |
54 |
< |
double* eam_drho, |
54 |
> |
RealType* eam_drho, |
55 |
|
int* eam_nr, |
56 |
< |
double* eam_dr, |
57 |
< |
double* eam_rcut, |
58 |
< |
double* eam_rvals, |
59 |
< |
double* eam_rhovals, |
60 |
< |
double* eam_Frhovals, |
56 |
> |
RealType* eam_dr, |
57 |
> |
RealType* eam_rcut, |
58 |
> |
RealType* eam_rvals, |
59 |
> |
RealType* eam_rhovals, |
60 |
> |
RealType* eam_Frhovals, |
61 |
|
int* eam_ident, |
62 |
|
int* status ); |
63 |
|
} |
64 |
|
|
65 |
< |
#define destroyEAMTypes F90_FUNC(destroyeamtypes,DESTROYEAMTYPES) |
65 |
> |
#define destroyEAMTypes FC_FUNC(destroyeamtypes,DESTROYEAMTYPES) |
66 |
|
extern "C"{ |
67 |
|
void destroyEAMTypes(void); |
68 |
|
} |