Finalize the swiftest kinship object - deallocates all allocatables
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(swiftest_kinship), | intent(inout) | :: | self | SyMBA kinship object |
subroutine swiftest_final_kin(self)
!! author: David A. Minton
!!
!! Finalize the swiftest kinship object - deallocates all allocatables
implicit none
! Argument
type(swiftest_kinship), intent(inout) :: self
!! SyMBA kinship object
call self%dealloc()
return
end subroutine swiftest_final_kin