ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-2.0/src/UseTheForce/DarkSide/eam_module_inteface.h
Revision: 1604
Committed: Tue Oct 19 22:37:55 2004 UTC (19 years, 9 months ago) by chuckv
Content type: text/plain
File size: 1725 byte(s)
Log Message: 
Added correct prototypes for C-fortran interface functions.

File Contents

# Content
1
2 #ifndef EAM_MODULE_INTERFACE_H
3 #define EAM_MODULE_INTERFACE_H
4
5 #define __C
6 #include "config.h"
7 extern "C"{
8 void F90_FUNC(neweamtype, NEWEAMTYPE)( double* lattice_constant,
9 int* eam_nrho,
10 double* eam_drho,
11 int* eam_nr,
12 double* eam_dr,
13 double* eam_rcut,
14 double* eam_rvals,
15 double* eam_rhovals,
16 double* eam_Frhovals,
17 int* eam_ident,
18 int* status );
19
20
21 void newEAMtype( double* lattice_constant,
22 int* eam_nrho,
23 double* eam_drho,
24 int* eam_nr,
25 double* eam_dr,
26 double* eam_rcut,
27 double* eam_rvals,
28 double* eam_rhovals,
29 double* eam_Frhovals,
30 int* eam_ident,
31 int* status ){
32
33 F90_FUNC(neweamtype, NEWEAMTYPE)(lattice_constant,
34 eam_nrho,
35 eam_drho,
36 eam_nr,
37 eam_dr,
38 eam_rcut,
39 eam_rvals,
40 eam_rhovals,
41 eam_Frhovals,
42 eam_ident,
43 status );
44 }
45 }
46 #endif