ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/freemol/trunk/smi23d/src/mengine/active.c
Revision: 3
Committed: Mon Jun 9 21:38:26 2008 UTC (11 years, 7 months ago) by tjod
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     }