wann_spread_copy Subroutine

private subroutine wann_spread_copy(orig, copy)

Arguments

Type IntentOptional Attributes Name
type(localisation_vars_type), intent(in) :: orig
type(localisation_vars_type), intent(out) :: copy

Called by

proc~~wann_spread_copy~~CalledByGraph proc~wann_spread_copy wann_spread_copy proc~wann_main wann_main proc~wann_main->proc~wann_spread_copy proc~wann_main_gamma wann_main_gamma proc~wann_main_gamma->proc~wann_spread_copy proc~w90_wannierise~2 w90_wannierise proc~w90_wannierise~2->proc~wann_main proc~w90_wannierise~2->proc~wann_main_gamma proc~w90_wannierise w90_wannierise proc~w90_wannierise->proc~w90_wannierise~2 program~wannier wannier program~wannier->proc~w90_wannierise~2

Source Code

  subroutine wann_spread_copy(orig, copy)
    !================================================!
    !
    !================================================!

    implicit none

    type(localisation_vars_type), intent(in)  :: orig
    type(localisation_vars_type), intent(out) :: copy

    copy%om_i = orig%om_i
    copy%om_d = orig%om_d
    copy%om_od = orig%om_od
    copy%om_tot = orig%om_tot
    copy%om_iod = orig%om_iod
    copy%om_nu = orig%om_nu

    return

  end subroutine wann_spread_copy