50 |
|
!! @author Matthew Meineke |
51 |
|
!! @author Christopher Fennell |
52 |
|
!! @author J. Daniel Gezelter |
53 |
< |
!! @version $Id: sticky.F90,v 1.5 2005-03-12 19:05:16 chrisfen Exp $, $Date: 2005-03-12 19:05:16 $, $Name: not supported by cvs2svn $, $Revision: 1.5 $ |
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 |