Finalizer will deallocate all allocatables
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(collision_basic), | intent(inout) | :: | self | Collision system object |
subroutine collision_final_basic(self)
!! author: David A. Minton
!!
!! Finalizer will deallocate all allocatables
implicit none
type(collision_basic), intent(inout) :: self
!! Collision system object
call self%dealloc()
return
end subroutine collision_final_basic