Revision: | 1602 |
Committed: | Tue Oct 19 20:44:36 2004 UTC (19 years, 11 months ago) by chuckv |
Content type: | text/plain |
File size: | 1106 byte(s) |
Log Message: | Added new files for fortran interface. |
# | User | Rev | Content |
---|---|---|---|
1 | chuckv | 1602 | #define __C |
2 | #include "config.h" | ||
3 | extern "C"{ | ||
4 | typedef void (newEAMtype)( double* lattice_constant, | ||
5 | int* eam_nrho, | ||
6 | double* eam_drho, | ||
7 | int* eam_nr, | ||
8 | double* eam_dr, | ||
9 | double* eam_rcut, | ||
10 | double* eam_rvals, | ||
11 | double* eam_rhovals, | ||
12 | double* eam_Frhovals, | ||
13 | int* eam_ident, | ||
14 | int* status ){ | ||
15 | |||
16 | F90_FUNC(neweamtype, NEWEAMTYPE)(lattice_constant, | ||
17 | eam_nrho, | ||
18 | eam_drho, | ||
19 | eam_nr, | ||
20 | eam_dr, | ||
21 | eam_rcut, | ||
22 | eam_rvals, | ||
23 | eam_rhovals, | ||
24 | eam_Frhovals, | ||
25 | eam_ident, | ||
26 | status ); | ||
27 | } | ||
28 | } |