UseTheForce/DarkSide/atype_interface.h

/*
 *  atype_module_interface.h
 *  oopse
 *
 *  Created by Charles Vardeman II on 10/19/04.
 *  Copyright 2004 __MyCompanyName__. All rights reserved.
 *
 */

#ifndef USETHEFORCE_DARKSIDE_ATYPE_INTERFACE_H
#define USETHEFORCE_DARKSIDE_ATYPE_INTERFACE_H

#define __C

#include "config.h"

#define makeAtype F90_FUNC(makeatype, MAKEATYPE)

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 );
}  
#endif
Revision:	1617
Committed:	Wed Oct 20 20:46:20 2004 UTC (19 years, 8 months ago) by chuckv
Content type:	text/plain
File size:	763 byte(s)
Log Message:	Fortran/C++ interface de-obfuscation project (It is a very long story)
#	User	Rev	Content
1	gezelter	1608	/*
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	chuckv	1617
10	gezelter	1608	#ifndef USETHEFORCE_DARKSIDE_ATYPE_INTERFACE_H
11			#define USETHEFORCE_DARKSIDE_ATYPE_INTERFACE_H
12
13			#define __C
14	chuckv	1617
15	gezelter	1608	#include "config.h"
16	chuckv	1617
17			#define makeAtype F90_FUNC(makeatype, MAKEATYPE)
18
19			extern "C" {
20	gezelter	1608	void makeAtype(int* unique_ident,
21			int* isLJ,
22			int* isSticky,
23			int* isDipole,
24			int* isGB,
25			int* isEAM,
26			int* isCharge,
27			double* lj_epslon,
28			double* lj_sigma,
29			double* charge,
30			double* dipole_moment,
31	chuckv	1617	int* status );
32			}
33	gezelter	1608	#endif