atomic_structure_clean Function

public function atomic_structure_clean(self) result(ok)

Type Bound

atomic_structure

Arguments

Type IntentOptional Attributes Name
class(atomic_structure) :: self

Return Value integer(kind=c_int)


Called by

proc~~atomic_structure_clean~~CalledByGraph proc~atomic_structure_clean atomic_structure%atomic_structure_clean proc~atomic_structure_init atomic_structure%atomic_structure_init proc~atomic_structure_init->proc~atomic_structure_clean

Source Code

  function atomic_structure_clean(self) result(ok)
    class(atomic_structure) :: self
    integer(c_int) :: ok

    ok = 0

    if (allocated(self%zn   ))  deallocate(self%zn   , stat=ok)
    if (ok /= 0) return
    if (allocated(self%mass ))  deallocate(self%mass , stat=ok)
    if (ok /= 0) return
    if (allocated(self%grad ))  deallocate(self%grad , stat=ok)
    if (ok /= 0) return
    if (allocated(self%xyz))  deallocate(self%xyz, stat=ok)
  end function atomic_structure_clean