ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/mdtools/md_code/Verlet.cpp
(Generate patch)

Comparing:
branches/mmeineke/mdtools/md_code/Verlet.cpp (file contents), Revision 10 by mmeineke, Tue Jul 9 18:40:59 2002 UTC vs.
trunk/mdtools/md_code/Verlet.cpp (file contents), Revision 248 by chuckv, Mon Jan 27 19:28:21 2003 UTC

# Line 30 | Line 30 | Verlet::Verlet( SimInfo &info ){
30   }
31  
32    
33 < Verlet::Verlet( SimInfo &info ){
33 > Verlet::Verlet( SimInfo &info, ForceField* the_ff ){
34    
35    // get what information we need from the SimInfo object
36  
37    entry_plug = &info;
38 +  myFF = the_ff;
39  
40 +
41    c_natoms = info.n_atoms;
42    c_atoms = info.atoms;
43    c_sr_interactions = info.sr_interactions;
# Line 120 | Line 122 | Verlet::~Verlet(){
122    
123    delete[] c_mass;
124    c_mass = 0;
123 }
124
125
126
127 void Verlet::integrate_b( double time_length, double dt,
128                            int n_bond_0, int n_bond_f,
129                            int n_bend_0, int n_bend_f,
130                            int n_torsion_0, int n_torsion_f,
131                            bool do_bonds, bool do_bends, bool do_torsions,
132                            bool do_LRI ){
133  
134 //  double percent_tolerance = 0.001;
135 //  int max_iterations = 10000;
136
137  int i, j; /* loop counters */
138  double n_loops = time_length / dt;
139  
140  // the first time integrate is called, the forces need to be initialized
141
142  if(is_first){
143    is_first = 0;
144    
145    for(i = 0; i < c_natoms; i++){
146      c_atoms[i]->zeroForces();
147    }
148    
149    if( do_bonds ){
150      for(i = n_bond_0; i <= n_bond_f; i++){
151        c_sr_interactions[i]->calc_forces();
152      }
153    }
154
155    if( do_bends ){
156      for(i = n_bend_0; i <= n_bend_f; i++){
157        c_sr_interactions[i]->calc_forces();
158      }
159    }
160    
161    if( do_torsions ){
162      for(i = n_torsion_0; i <= n_torsion_f; i++){
163        c_sr_interactions[i]->calc_forces();
164      }
165    }
166
167    if( do_LRI ) longRange->calc_forces();
168  }
169
170  for(i = 0; i < n_loops; i++){
171    
172    move_a( dt );
173    
174    // calculate the forces
175    
176    for(j = 0; j < c_natoms; j++){
177      c_atoms[j]->zeroForces();
178    }
179  
180
181    if( do_bonds ){
182      for(i = n_bond_0; i <= n_bond_f; i++){
183        c_sr_interactions[i]->calc_forces();
184      }
185    }
186
187    if( do_bends ){
188      for(i = n_bend_0; i <= n_bend_f; i++){
189        c_sr_interactions[i]->calc_forces();
190      }
191    }
192    
193    if( do_torsions ){
194      for(i = n_torsion_0; i <= n_torsion_f; i++){
195        c_sr_interactions[i]->calc_forces();
196      }
197    }
198
199    if( do_LRI ) longRange->calc_forces();
200    
201
202    // complete the verlet move
203
204    move_b( dt );
205  }
125   }
126  
127  
# Line 224 | Line 143 | void Verlet::integrate( void ){
143    double *Fy = new double[c_natoms];
144    double *Fz = new double[c_natoms];
145    
146 +  int time;
147 +
148    double dt = entry_plug->dt;
149    double runTime = entry_plug->run_time;
150    double sampleTime = entry_plug->sampleTime;
# Line 243 | Line 164 | void Verlet::integrate( void ){
164    // the first time integrate is called, the forces need to be initialized
165  
166    
167 <  for(i = 0; i < c_natoms; i++){
247 <    c_atoms[i]->zeroForces();
248 <  }
167 >  myFF->doForces();
168    
250  for(i = 0; i < c_n_SRI; i++){
251    c_sr_interactions[i]->calc_forces();
252  }
253  
254  longRange->calc_forces();
255  
169    if( entry_plug->setTemp ){
170      tStats->velocitize();
171    }
172    
173 +  dump_out->writeDump( 0.0 );
174 +  e_out->writeStat( 0.0 );
175 +
176    if( c_is_constrained ){
177      for(i = 0; i < n_loops; i++){
178        
# Line 297 | Line 213 | void Verlet::integrate( void ){
213  
214        // calculate the forces
215        
216 <      for(j = 0; j < c_natoms; j++){
301 <        c_atoms[j]->zeroForces();
302 <      }
216 >      myFF->doForces();
217        
304      for(j = 0; j < c_n_SRI; j++){
305        c_sr_interactions[j]->calc_forces();
306      }
307      
308      longRange->calc_forces();
309      
218        // finish the constrain move ( same as above. )
219  
220        for( j=0; j<c_natoms; j++ ){
# Line 341 | Line 249 | void Verlet::integrate( void ){
249          c_atoms[j]->set_vz(Vz[j]);
250        }
251        
252 +      time = i + 1;
253 +      
254        if( entry_plug->setTemp ){
255 <        if( !(i % vel_n) ) tStats->velocitize();
255 >        if( !(time % vel_n) ) tStats->velocitize();
256        }
257 <      if( !(i % sample_n) ) dump_out->writeDump( i * dt );
258 <      if( !(i % status_n) ) e_out->writeStat( i * dt );
349 <
257 >      if( !(time % sample_n) ) dump_out->writeDump( time * dt );
258 >      if( !(time % status_n) ) e_out->writeStat( time * dt );
259      }
260    }
261    else{
# Line 356 | Line 265 | void Verlet::integrate( void ){
265        
266        // calculate the forces
267        
268 <      for(j = 0; j < c_natoms; j++){
360 <        c_atoms[j]->zeroForces();
361 <      }
362 <      
363 <      for(j = 0; j < c_n_SRI; j++){
364 <        c_sr_interactions[j]->calc_forces();
365 <      }
366 <      
367 <      longRange->calc_forces();
268 >      myFF->doForces();
269              
270        // complete the verlet move
271        
272        move_b( dt );
273  
274 +      time = i + 1;
275 +      
276        if( entry_plug->setTemp ){
277 <        if( !(i % vel_n) ) tStats->velocitize();
277 >        if( !(time % vel_n) ) tStats->velocitize();
278        }
279 <      if( !(i % sample_n) ) dump_out->writeDump( i * dt );
280 <      if( !(i % status_n) ) e_out->writeStat( i * dt );
279 >      if( !(time % sample_n) ) dump_out->writeDump( time * dt );
280 >      if( !(time % status_n) ) e_out->writeStat( time * dt );
281      }
282    }
283    
# Line 427 | Line 330 | void Verlet::move_b( double dt ){
330    const double e_convert = 4.184e-4; // converts kcal/mol -> amu*A^2/fs^2
331    
332    double vx, vy, vz;
430  double v_sqr;
333    int mb;
334    double h_dt = 0.5 * dt;
335    

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines