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, 9 months ago) by gezelter
Content type: text/plain
File size: 1754 byte(s)
Log Message: 
name sanity on the fortran side

File Contents

# User Rev Content
1 gezelter 1608
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