| Revision: | 1151 |
| Committed: | Fri May 7 21:36:10 2004 UTC (20 years, 2 months ago) by gezelter |
| Content type: | text/plain |
| File size: | 437 byte(s) |
| Log Message: | New module for fortran group-based switching function |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | gezelter | 1151 | #ifdef __C |
| 2 | #ifndef __FSWITCHINGFUNCTION | ||
| 3 | #define __FSWITCHINGFUNCTION | ||
| 4 | |||
| 5 | #define NSWITCHTYPES 3 | ||
| 6 | #define LJ_SWITCH 1 | ||
| 7 | #define ELECTROSTATIC_SWITCH 2 | ||
| 8 | #define GROUP_SWITCH 3 | ||
| 9 | |||
| 10 | #endif | ||
| 11 | #endif //__C | ||
| 12 | |||
| 13 | #ifdef __FORTRAN90 | ||
| 14 | |||
| 15 | INTEGER, PARAMETER:: NSWITCHTYPES = 3 | ||
| 16 | INTEGER, PARAMETER:: LJ_SWITCH = 1 | ||
| 17 | INTEGER, PARAMETER:: ELECTROSTATIC_SWITCH = 2 | ||
| 18 | INTEGER, PARAMETER:: GROUP_SWITCH = 3 | ||
| 19 | |||
| 20 | #endif |