45 |
|
|
46 |
|
!! @author Charles F. Vardeman II |
47 |
|
!! @author Matthew Meineke |
48 |
< |
!! @version $Id: doForces.F90,v 1.69 2005-11-21 22:58:35 gezelter Exp $, $Date: 2005-11-21 22:58:35 $, $Name: not supported by cvs2svn $, $Revision: 1.69 $ |
48 |
> |
!! @version $Id: doForces.F90,v 1.70 2005-12-08 22:04:40 gezelter Exp $, $Date: 2005-12-08 22:04:40 $, $Name: not supported by cvs2svn $, $Revision: 1.70 $ |
49 |
|
|
50 |
|
|
51 |
|
module doForces |
602 |
|
|
603 |
|
cutoffPolicy = cutPolicy |
604 |
|
haveCutoffPolicy = .true. |
605 |
+ |
write(*,*) 'have cutoffPolicy in F = ', cutPolicy |
606 |
|
|
607 |
|
call createGtypeCutoffMap() |
608 |
|
|