| Revision: | 3 |
| Committed: | Mon Jun 9 21:38:26 2008 UTC (14 years ago) by tjod |
| Original Path: | trunk/smi23d/src/mengine/active.c | File size: | 301 byte(s) |
| Log Message: | test |
| Line | User | Rev | File contents |
|---|---|---|---|
| 1 | tjod | 3 | #define EXTERN extern |
| 2 | |||
| 3 | #include "pcwin.h" | ||
| 4 | #include "pcmod.h" | ||
| 5 | |||
| 6 | void set_active() | ||
| 7 | { | ||
| 8 | int i; | ||
| 9 | long int minflag; | ||
| 10 | |||
| 11 | minflag = (1L << MIN_MASK); | ||
| 12 | |||
| 13 | for (i=1; i <= natom; i++) | ||
| 14 | { | ||
| 15 | if (atom[i].flags & minflag) | ||
| 16 | atom[i].use = FALSE; | ||
| 17 | else | ||
| 18 | atom[i].use = TRUE; | ||
| 19 | } | ||
| 20 | } |