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