| Revision: | 1151 |
| Committed: | Fri May 7 21:36:10 2004 UTC (20 years, 11 months ago) by gezelter |
| Content type: | text/plain |
| File size: | 437 byte(s) |
| Log Message: | New module for fortran group-based switching function |
| # | Content |
|---|---|
| 1 | #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 |