| Revision: | 110 |
| Committed: | Thu Mar 12 01:43:50 2009 UTC (12 years, 1 month ago) by gilbertke | File size: | 362 byte(s) |
| Log Message: | further cleanup and localization of atom data |
| Line | File contents |
|---|---|
| 1 | #define EXTERN extern |
| 2 | |
| 3 | #include "pcwin.h" |
| 4 | #include "fix.h" |
| 5 | |
| 6 | void set_active(int natom,int *use,int natom_fix,int *katom_fix); |
| 7 | |
| 8 | void set_active(int natom,int *use,int natom_fix,int *katom_fix) |
| 9 | { |
| 10 | int i; |
| 11 | for (i=1; i <= natom; i++) |
| 12 | use[i] = TRUE; |
| 13 | |
| 14 | // fixed atoms |
| 15 | for (i=0; i < natom_fix; i++) |
| 16 | use[katom_fix[i]] = FALSE; |
| 17 | } |