ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-2.0/src/UseTheForce/DarkSide/eam_interface.h
Revision: 1608
Committed: Wed Oct 20 04:02:48 2004 UTC (19 years, 10 months ago) by gezelter
Content type: text/plain
File size: 1754 byte(s)
Log Message: 
name sanity on the fortran side

File Contents

# Content
1
2 #ifndef USETHEFORCE_DARKSIDE_EAM_INTERFACE_H
3 #define USETHEFORCE_DARKSIDE_EAM_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