| 45 |
|
|
| 46 |
|
!! @author Charles F. Vardeman II |
| 47 |
|
!! @author Matthew Meineke |
| 48 |
< |
!! @version $Id: doForces.F90,v 1.37 2005-09-07 19:18:54 gezelter Exp $, $Date: 2005-09-07 19:18:54 $, $Name: not supported by cvs2svn $, $Revision: 1.37 $ |
| 48 |
> |
!! @version $Id: doForces.F90,v 1.38 2005-09-07 20:46:39 gezelter Exp $, $Date: 2005-09-07 20:46:39 $, $Name: not supported by cvs2svn $, $Revision: 1.38 $ |
| 49 |
|
|
| 50 |
|
|
| 51 |
|
module doForces |
| 380 |
|
do i = 1, nGroupTypes |
| 381 |
|
do j = 1, nGroupTypes |
| 382 |
|
|
| 383 |
+ |
write(*,*) 'cutoffPolicy = ', cutoffPolicy |
| 384 |
|
select case(cutoffPolicy) |
| 385 |
|
case(TRADITIONAL_CUTOFF_POLICY) |
| 386 |
|
thisRcut = maxval(gtypeMaxCutoff) |
