Revision: | 1617 |
Committed: | Wed Oct 20 20:46:20 2004 UTC (19 years, 10 months ago) by chuckv |
Content type: | text/plain |
Original Path: | trunk/OOPSE-3.0/src/UseTheForce/DarkSide/eam_interface.h |
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 |