| 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 |
