| Revision: | 1602 |
| Committed: | Tue Oct 19 20:44:36 2004 UTC (19 years, 9 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 | } |