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 |