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. |
# | Content |
---|---|
1 | #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 | } |