UseTheForce/DarkSide/fInteractionMap.h

#ifdef __C
#ifndef __FINTERACTIONMAP
#define __FINTERACTIONMAP

#define LJ_PAIR              1
#define ELECTROSTATIC_PAIR   2
#define STICKY_PAIR          4
#define STICKYPOWER_PAIR     8
#define GB_PAIR             16
#define GB_LJ               32
#define EAM_PAIR            64
#define SHAPE_PAIR         128
#define SHAPE_LJ           256
#define FLARB_PAIR         512

#define LR_POT_TYPES      4

#define VDW_POT           0
#define ELECTROSTATIC_POT 1
#define HB_POT            2
#define METALLIC_POT      3


#endif
#endif /*__C*/

#ifdef  __FORTRAN90

  INTEGER, PARAMETER:: LJ_PAIR            =   1
  INTEGER, PARAMETER:: ELECTROSTATIC_PAIR =   2
  INTEGER, PARAMETER:: STICKY_PAIR        =   4
  INTEGER, PARAMETER:: STICKYPOWER_PAIR   =   8
  INTEGER, PARAMETER:: GAYBERNE_PAIR      =  16
  INTEGER, PARAMETER:: GAYBERNE_LJ        =  32
  INTEGER, PARAMETER:: EAM_PAIR           =  64
  INTEGER, PARAMETER:: SHAPE_PAIR         = 128
  INTEGER, PARAMETER:: SHAPE_LJ           = 256
  INTEGER, PARAMETER:: FLARB_PAIR         = 512

  INTEGER, PARAMETER:: LR_POT_TYPES      =   4
  !! remember fortran is shifted up by one for arrays
  INTEGER, PARAMETER:: VDW_POT           =   1
  INTEGER, PARAMETER:: ELECTROSTATIC_POT =   2
  INTEGER, PARAMETER:: HB_POT            =   3
  INTEGER, PARAMETER:: METALLIC_POT      =   4

#endif
Revision:	2387
Committed:	Wed Oct 19 16:49:59 2005 UTC (18 years, 10 months ago) by tim
Content type:	text/plain
File size:	1340 byte(s)
Log Message:	fix an index mismathcing between c and fortran
#	User	Rev	Content
1	gezelter	2259	#ifdef __C
2			#ifndef __FINTERACTIONMAP
3			#define __FINTERACTIONMAP
4
5			#define LJ_PAIR 1
6			#define ELECTROSTATIC_PAIR 2
7			#define STICKY_PAIR 4
8			#define STICKYPOWER_PAIR 8
9			#define GB_PAIR 16
10			#define GB_LJ 32
11			#define EAM_PAIR 64
12			#define SHAPE_PAIR 128
13			#define SHAPE_LJ 256
14			#define FLARB_PAIR 512
15
16	gezelter	2361	#define LR_POT_TYPES 4
17	chuckv	2355
18	tim	2387	#define VDW_POT 0
19			#define ELECTROSTATIC_POT 1
20			#define HB_POT 2
21			#define METALLIC_POT 3
22	chuckv	2355
23	gezelter	2361
24	gezelter	2259	#endif
25	tim	2263	#endif /__C/
26	gezelter	2259
27			#ifdef __FORTRAN90
28
29			INTEGER, PARAMETER:: LJ_PAIR = 1
30			INTEGER, PARAMETER:: ELECTROSTATIC_PAIR = 2
31			INTEGER, PARAMETER:: STICKY_PAIR = 4
32			INTEGER, PARAMETER:: STICKYPOWER_PAIR = 8
33			INTEGER, PARAMETER:: GAYBERNE_PAIR = 16
34			INTEGER, PARAMETER:: GAYBERNE_LJ = 32
35			INTEGER, PARAMETER:: EAM_PAIR = 64
36			INTEGER, PARAMETER:: SHAPE_PAIR = 128
37			INTEGER, PARAMETER:: SHAPE_LJ = 256
38			INTEGER, PARAMETER:: FLARB_PAIR = 512
39
40	gezelter	2361	INTEGER, PARAMETER:: LR_POT_TYPES = 4
41	tim	2387	!! remember fortran is shifted up by one for arrays
42	gezelter	2361	INTEGER, PARAMETER:: VDW_POT = 1
43	chuckv	2355	INTEGER, PARAMETER:: ELECTROSTATIC_POT = 2
44	gezelter	2361	INTEGER, PARAMETER:: HB_POT = 3
45			INTEGER, PARAMETER:: METALLIC_POT = 4
46	chuckv	2355
47	gezelter	2259	#endif