OOPSE/libmdtools/fSimulation.h

#ifdef __C
#ifndef __FSIMULATION
#define __FSIMULATION
/** This header provides dual access for the simulation structure between 
    fortran and C for the simtype structure. NOTE: Sequence of struct 
    components must match between C and fortran and in general be packed 
    double,int,char. 
*/
typedef  struct{
  double dielect;
  int SIM_uses_PBC;
  int SIM_uses_LJ;
  int SIM_uses_sticky;
  int SIM_uses_charges;
  int SIM_uses_dipoles;
  int SIM_uses_RF;
  int SIM_uses_GB;
  int SIM_uses_EAM;
} simtype;
#endif //__FSIMULATION
#endif //__C

#ifdef  __FORTRAN90

type, public :: simtype
   PRIVATE
   SEQUENCE
   !! Dielectric Constant for reaction field
   real ( kind = dp ) :: dielect = 0.0_dp
   !! Periodic Boundry Conditions
   logical :: SIM_uses_PBC
   logical :: SIM_uses_LJ
   logical :: SIM_uses_sticky
   logical :: SIM_uses_charges
   logical :: SIM_uses_dipoles
   logical :: SIM_uses_RF
   logical :: SIM_uses_GB
   logical :: SIM_uses_EAM
end type simtype
#endif
Revision:	1144
Committed:	Sat May 1 18:52:38 2004 UTC (20 years, 2 months ago) by tim
Content type:	text/plain
File size:	988 byte(s)
Log Message:	C++ pass groupList to fortran
#	User	Rev	Content
1	mmeineke	377	#ifdef __C
2			#ifndef __FSIMULATION
3			#define __FSIMULATION
4			/** This header provides dual access for the simulation structure between
5			fortran and C for the simtype structure. NOTE: Sequence of struct
6			components must match between C and fortran and in general be packed
7			double,int,char.
8			*/
9			typedef struct{
10			double dielect;
11			int SIM_uses_PBC;
12			int SIM_uses_LJ;
13			int SIM_uses_sticky;
14	gezelter	941	int SIM_uses_charges;
15	mmeineke	377	int SIM_uses_dipoles;
16			int SIM_uses_RF;
17			int SIM_uses_GB;
18			int SIM_uses_EAM;
19			} simtype;
20			#endif //__FSIMULATION
21			#endif //__C
22
23			#ifdef __FORTRAN90
24
25			type, public :: simtype
26			PRIVATE
27			SEQUENCE
28			!! Dielectric Constant for reaction field
29			real ( kind = dp ) :: dielect = 0.0_dp
30			!! Periodic Boundry Conditions
31			logical :: SIM_uses_PBC
32			logical :: SIM_uses_LJ
33			logical :: SIM_uses_sticky
34	gezelter	941	logical :: SIM_uses_charges
35	mmeineke	377	logical :: SIM_uses_dipoles
36			logical :: SIM_uses_RF
37			logical :: SIM_uses_GB
38			logical :: SIM_uses_EAM
39			end type simtype
40			#endif