| 45 |
|
|
| 46 |
|
!! @author Charles F. Vardeman II |
| 47 |
|
!! @author Matthew Meineke |
| 48 |
< |
!! @version $Id: doForces.F90,v 1.72 2005-12-30 00:18:28 chuckv Exp $, $Date: 2005-12-30 00:18:28 $, $Name: not supported by cvs2svn $, $Revision: 1.72 $ |
| 48 |
> |
!! @version $Id: doForces.F90,v 1.73 2005-12-30 21:25:56 tim Exp $, $Date: 2005-12-30 21:25:56 $, $Name: not supported by cvs2svn $, $Revision: 1.73 $ |
| 49 |
|
|
| 50 |
|
|
| 51 |
|
module doForces |
| 399 |
|
allocate(groupToGtypeCol(jend)) |
| 400 |
|
end if |
| 401 |
|
|
| 402 |
< |
if(.not.associated(groupToGtypeCol)) then |
| 403 |
< |
allocate(groupToGtypeCol(jend)) |
| 402 |
> |
if(.not.associated(groupMaxCutoffCol)) then |
| 403 |
> |
allocate(groupMaxCutoffCol(jend)) |
| 404 |
|
else |
| 405 |
< |
deallocate(groupToGtypeCol) |
| 406 |
< |
allocate(groupToGtypeCol(jend)) |
| 405 |
> |
deallocate(groupMaxCutoffCol) |
| 406 |
> |
allocate(groupMaxCutoffCol(jend)) |
| 407 |
|
end if |
| 408 |
|
if(.not.associated(gtypeMaxCutoffCol)) then |
| 409 |
|
allocate(gtypeMaxCutoffCol(jend)) |
| 426 |
|
|
| 427 |
|
tol = 1.0d-6 |
| 428 |
|
nGroupTypesRow = 0 |
| 429 |
< |
|
| 429 |
> |
nGroupTypesCol = 0 |
| 430 |
|
do i = istart, iend |
| 431 |
|
n_in_i = groupStartRow(i+1) - groupStartRow(i) |
| 432 |
|
groupMaxCutoffRow(i) = 0.0_dp |
