48 |
|
!! Corresponds to the force field defined in ssd_FF.cpp |
49 |
|
!! @author Charles F. Vardeman II |
50 |
|
!! @author Matthew Meineke |
51 |
< |
!! @author Christopher Fennel |
51 |
> |
!! @author Christopher Fennell |
52 |
|
!! @author J. Daniel Gezelter |
53 |
< |
!! @version $Id: sticky.F90,v 1.4 2005-01-14 20:31:16 gezelter Exp $, $Date: 2005-01-14 20:31:16 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $ |
53 |
> |
!! @version $Id: sticky.F90,v 1.6 2005-04-13 20:36:45 chuckv Exp $, $Date: 2005-04-13 20:36:45 $, $Name: not supported by cvs2svn $, $Revision: 1.6 $ |
54 |
|
|
55 |
|
module sticky |
56 |
|
|
69 |
|
|
70 |
|
public :: newStickyType |
71 |
|
public :: do_sticky_pair |
72 |
+ |
public :: destroyStickyTypes |
73 |
|
|
74 |
|
|
75 |
|
type :: StickyList |
506 |
|
|
507 |
|
return |
508 |
|
end subroutine calc_sw_fnc |
509 |
+ |
|
510 |
+ |
subroutine destroyStickyTypes() |
511 |
+ |
if(allocated(StickyMap)) deallocate(StickyMap) |
512 |
+ |
end subroutine destroyStickyTypes |
513 |
|
end module sticky |