UseTheForce/DarkSide/atype_module_interface.h

/*
 *  atype_module_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 __MyCompanyName__. All rights reserved.
 *
 */
#define __C
#include "config.h"
extern "C"{
  void makeAtype(int* unique_ident, 
                 int* isLJ, 
                 int* isSticky,
                 int* isDipole, 
                 int* isGB, 
                 int* isEAM,
                 int* isCharge,
                 double* lj_epslon, 
                 double* lj_sigma, 
                 double* charge,
                 double* dipole_moment, 
                 int* status ){
    
    F90_FUNC(makeatype, MAKEATYPE)(  unique_ident, 
                                     isLJ, 
                                     isSticky,
                                     isDipole, 
                                     isGB, 
                                     isEAM,
                                     isCharge,
                                     lj_epslon, 
                                     lj_sigma, 
                                     charge,
                                     dipole_moment, 
                                     status );
  }
}
Revision:	1602
Committed:	Tue Oct 19 20:44:36 2004 UTC (19 years, 10 months ago) by chuckv
Content type:	text/plain
File size:	1181 byte(s)
Log Message:	Added new files for fortran interface.
#	User	Rev	Content
1	chuckv	1602	/*
2			* atype_module_interface.h
3			* oopse
4			*
5			* Created by Charles Vardeman II on 10/19/04.
6			* Copyright 2004 __MyCompanyName__. All rights reserved.
7			*
8			*/
9			#define __C
10			#include "config.h"
11			extern "C"{
12			void makeAtype(int* unique_ident,
13			int* isLJ,
14			int* isSticky,
15			int* isDipole,
16			int* isGB,
17			int* isEAM,
18			int* isCharge,
19			double* lj_epslon,
20			double* lj_sigma,
21			double* charge,
22			double* dipole_moment,
23			int* status ){
24
25			F90_FUNC(makeatype, MAKEATYPE)( unique_ident,
26			isLJ,
27			isSticky,
28			isDipole,
29			isGB,
30			isEAM,
31			isCharge,
32			lj_epslon,
33			lj_sigma,
34			charge,
35			dipole_moment,
36			status );
37			}
38			}