ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/SimInfo.cpp
(Generate patch)

Comparing trunk/OOPSE/libmdtools/SimInfo.cpp (file contents):
Revision 619 by mmeineke, Tue Jul 15 22:22:41 2003 UTC vs.
Revision 642 by mmeineke, Mon Jul 21 16:23:57 2003 UTC

# Line 33 | Line 33 | SimInfo::SimInfo(){
33    the_integrator = NULL;
34    setTemp = 0;
35    thermalTime = 0.0;
36 +  currentTime = 0.0;
37    rCut = 0.0;
38    ecr = 0.0;
39    est = 0.0;
40 +  oldEcr = 0.0;
41 +  oldRcut = 0.0;
42  
43 +  haveOrigRcut = 0;
44 +  haveOrigEcr = 0;
45 +  boxIsInit = 0;
46 +  
47 +  
48 +
49    usePBC = 0;
50    useLJ = 0;
51    useSticky = 0;
# Line 75 | Line 84 | void SimInfo::setBoxM( double theBox[3][3] ){
84                           // [ 2 5 8 ]
85    double FortranHmatInv[9]; // the inverted Hmat (for Fortran);
86  
87 +  
88 +  if( !boxIsInit ) boxIsInit = 1;
89  
90    for(i=0; i < 3; i++)
91      for (j=0; j < 3; j++) Hmat[i][j] = theBox[i][j];
92    
82 –  //  cerr
83 –  // << "setting Hmat ->\n"
84 –  // << "[ " << Hmat[0][0] << ", " << Hmat[0][1] << ", " << Hmat[0][2] << " ]\n"
85 –  // << "[ " << Hmat[1][0] << ", " << Hmat[1][1] << ", " << Hmat[1][2] << " ]\n"
86 –  // << "[ " << Hmat[2][0] << ", " << Hmat[2][1] << ", " << Hmat[2][2] << " ]\n";
87 –
93    calcBoxL();
94    calcHmatInv();
95  
# Line 97 | Line 102 | void SimInfo::setBoxM( double theBox[3][3] ){
102  
103    setFortranBoxSize(FortranHmat, FortranHmatInv, &orthoRhombic);
104  
100 –  smallestBoxL = boxLx;
101 –  if (boxLy < smallestBoxL) smallestBoxL = boxLy;
102 –  if (boxLz < smallestBoxL) smallestBoxL = boxLz;
103 –
104 –  maxCutoff = smallestBoxL / 2.0;
105 –
106 –  if (rList > maxCutoff) {
107 –    sprintf( painCave.errMsg,
108 –             "New Box size is forcing neighborlist radius down to %lf\n",
109 –             maxCutoff );
110 –    painCave.isFatal = 0;
111 –    simError();
112 –
113 –    rList = maxCutoff;
114 –
115 –    sprintf( painCave.errMsg,
116 –             "New Box size is forcing cutoff radius down to %lf\n",
117 –             maxCutoff - 1.0 );
118 –    painCave.isFatal = 0;
119 –    simError();
120 –
121 –    rCut = rList - 1.0;
122 –
123 –    // list radius changed so we have to refresh the simulation structure.
124 –    refreshSim();
125 –  }
126 –
127 –  if( ecr > maxCutoff ){
128 –
129 –    sprintf( painCave.errMsg,
130 –             "New Box size is forcing electrostatic cutoff radius "
131 –             "down to %lf\n",
132 –             maxCutoff );
133 –    painCave.isFatal = 0;
134 –    simError();
135 –
136 –    ecr = maxCutoff;
137 –    est = 0.05 * ecr;
138 –
139 –    refreshSim();
140 –  }
141 –    
105   }
106  
107  
# Line 313 | Line 276 | void SimInfo::calcBoxL( void ){
276    
277    dx = Hmat[0][0]; dy = Hmat[1][0]; dz = Hmat[2][0];
278    dsq = dx*dx + dy*dy + dz*dz;
279 <  boxLx = sqrt( dsq );
279 >  boxL[0] = sqrt( dsq );
280 >  maxCutoff = 0.5 * boxL[0];
281  
282    // boxLy
283    
284    dx = Hmat[0][1]; dy = Hmat[1][1]; dz = Hmat[2][1];
285    dsq = dx*dx + dy*dy + dz*dz;
286 <  boxLy = sqrt( dsq );
286 >  boxL[1] = sqrt( dsq );
287 >  if( (0.5 * boxL[1]) < maxCutoff ) maxCutoff = 0.5 * boxL[1];
288  
289    // boxLz
290    
291    dx = Hmat[0][2]; dy = Hmat[1][2]; dz = Hmat[2][2];
292    dsq = dx*dx + dy*dy + dz*dz;
293 <  boxLz = sqrt( dsq );
294 <  
293 >  boxL[2] = sqrt( dsq );
294 >  if( (0.5 * boxL[2]) < maxCutoff ) maxCutoff = 0.5 * boxL[2];
295 >
296   }
297  
298  
# Line 406 | Line 372 | void SimInfo::refreshSim(){
372    int isError;
373    int n_global;
374    int* excl;
375 <  
410 <  fInfo.rrf = 0.0;
411 <  fInfo.rt = 0.0;
375 >
376    fInfo.dielect = 0.0;
377  
414 –  fInfo.rlist = rList;
415 –  fInfo.rcut = rCut;
416 –
378    if( useDipole ){
418 –    fInfo.rrf = ecr;
419 –    fInfo.rt = ecr - est;
379      if( useReactionField )fInfo.dielect = dielectric;
380    }
381  
# Line 462 | Line 421 | void SimInfo::refreshSim(){
421  
422    this->ndf = this->getNDF();
423    this->ndfRaw = this->getNDFraw();
424 +
425 + }
426 +
427 +
428 + void SimInfo::setRcut( double theRcut ){
429 +
430 +  if( !haveOrigRcut ){
431 +    haveOrigRcut = 1;
432 +    origRcut = theRcut;
433 +  }
434 +
435 +  rCut = theRcut;
436 +  checkCutOffs();
437 + }
438  
439 + void SimInfo::setEcr( double theEcr ){
440 +
441 +  if( !haveOrigEcr ){
442 +    haveOrigEcr = 1;
443 +    origEcr = theEcr;
444 +  }
445 +
446 +  ecr = theEcr;
447 +  checkCutOffs();
448   }
449  
450 + void SimInfo::setEcr( double theEcr, double theEst ){
451 +
452 +  est = theEst;
453 +  setEcr( theEcr );
454 + }
455 +
456 +
457 + void SimInfo::checkCutOffs( void ){
458 +
459 +  int cutChanged = 0;
460 +
461 +  if( boxIsInit ){
462 +    
463 +    //we need to check cutOffs against the box
464 +    
465 +    if( maxCutoff > rCut ){
466 +      if( rCut < origRcut ){
467 +        rCut = origRcut;
468 +        if (rCut > maxCutoff) rCut = maxCutoff;
469 +        
470 +        sprintf( painCave.errMsg,
471 +                 "New Box size is setting the long range cutoff radius "
472 +                 "to %lf\n",
473 +                 rCut );
474 +        painCave.isFatal = 0;
475 +        simError();
476 +      }
477 +    }
478 +
479 +    if( maxCutoff > ecr ){
480 +      if( ecr < origEcr ){
481 +        rCut = origEcr;
482 +        if (ecr > maxCutoff) ecr = maxCutoff;
483 +        
484 +        sprintf( painCave.errMsg,
485 +                 "New Box size is setting the electrostaticCutoffRadius "
486 +                 "to %lf\n",
487 +                 ecr );
488 +        painCave.isFatal = 0;
489 +        simError();
490 +      }
491 +    }
492 +
493 +
494 +    if (rCut > maxCutoff) {
495 +      sprintf( painCave.errMsg,
496 +               "New Box size is setting the long range cutoff radius "
497 +               "to %lf\n",
498 +               maxCutoff );
499 +      painCave.isFatal = 0;
500 +      simError();
501 +      rCut = maxCutoff;
502 +    }
503 +
504 +    if( ecr > maxCutoff){
505 +      sprintf( painCave.errMsg,
506 +               "New Box size is setting the electrostaticCutoffRadius "
507 +               "to %lf\n",
508 +               maxCutoff  );
509 +      painCave.isFatal = 0;
510 +      simError();      
511 +      ecr = maxCutoff;
512 +    }
513 +
514 +    
515 +  }
516 +  
517 +
518 +  if( (oldEcr != ecr) || ( oldRcut != rCut ) ) cutChanged = 1;
519 +
520 +  // rlist is the 1.0 plus max( rcut, ecr )
521 +  
522 +  ( rCut > ecr )? rList = rCut + 1.0: rList = ecr + 1.0;
523 +
524 +  if( cutChanged ){
525 +    
526 +    notifyFortranCutOffs( &rCut, &rList, &ecr, &est );
527 +  }
528 +
529 +  oldEcr = ecr;
530 +  oldRcut = rCut;
531 + }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines