mbe_result_destroy Subroutine

private subroutine mbe_result_destroy(this)

Clean up allocated memory in mbe_result_t

Type Bound

mbe_result_t

Arguments

Type IntentOptional Attributes Name
class(mbe_result_t), intent(inout) :: this

Calls

proc~~mbe_result_destroy~~CallsGraph proc~mbe_result_destroy mbe_result_t%mbe_result_destroy proc~mbe_result_reset mbe_result_t%mbe_result_reset proc~mbe_result_destroy->proc~mbe_result_reset

Source Code

   subroutine mbe_result_destroy(this)
      !! Clean up allocated memory in mbe_result_t
      class(mbe_result_t), intent(inout) :: this
      if (allocated(this%gradient)) deallocate (this%gradient)
      if (allocated(this%hessian)) deallocate (this%hessian)
      if (allocated(this%dipole)) deallocate (this%dipole)
      if (allocated(this%dipole_derivatives)) deallocate (this%dipole_derivatives)
      call this%reset()
   end subroutine mbe_result_destroy