mbe_result_allocate_dipole Subroutine

private subroutine mbe_result_allocate_dipole(this)

Allocate dipole array (always 3 components)

Type Bound

mbe_result_t

Arguments

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

Called by

proc~~mbe_result_allocate_dipole~~CalledByGraph proc~mbe_result_allocate_dipole mbe_result_t%mbe_result_allocate_dipole proc~serial_fragment_processor serial_fragment_processor proc~serial_fragment_processor->proc~mbe_result_allocate_dipole interface~serial_fragment_processor serial_fragment_processor interface~serial_fragment_processor->proc~serial_fragment_processor proc~mbe_run_serial mbe_context_t%mbe_run_serial proc~mbe_run_serial->interface~serial_fragment_processor

Source Code

   subroutine mbe_result_allocate_dipole(this)
      !! Allocate dipole array (always 3 components)
      class(mbe_result_t), intent(inout) :: this
      if (allocated(this%dipole)) deallocate (this%dipole)
      allocate (this%dipole(3))
      this%dipole = 0.0_dp
   end subroutine mbe_result_allocate_dipole