| Revision: | 1617 |
| Committed: | Wed Oct 20 20:46:20 2004 UTC (19 years, 8 months ago) by chuckv |
| Content type: | text/plain |
| File size: | 611 byte(s) |
| Log Message: | Fortran/C++ interface de-obfuscation project (It is a very long story) |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | gezelter | 1608 | #ifndef USETHEFORCE_DARKSIDE_EAM_INTERFACE_H |
| 2 | #define USETHEFORCE_DARKSIDE_EAM_INTERFACE_H | ||
| 3 | |||
| 4 | #define __C | ||
| 5 | chuckv | 1617 | |
| 6 | gezelter | 1608 | #include "config.h" |
| 7 | chuckv | 1617 | |
| 8 | #define newEAMtype F90_FUNC(neweamtype, NEWEAMTYPE) | ||
| 9 | |||
| 10 | gezelter | 1608 | extern "C"{ |
| 11 | void newEAMtype( double* lattice_constant, | ||
| 12 | int* eam_nrho, | ||
| 13 | double* eam_drho, | ||
| 14 | int* eam_nr, | ||
| 15 | double* eam_dr, | ||
| 16 | double* eam_rcut, | ||
| 17 | double* eam_rvals, | ||
| 18 | double* eam_rhovals, | ||
| 19 | double* eam_Frhovals, | ||
| 20 | int* eam_ident, | ||
| 21 | chuckv | 1617 | int* status ); |
| 22 | } | ||
| 23 | gezelter | 1608 | #endif |