wann_spread_copy Subroutine

  1. wannierise.F90
  2. w90_wannierise
  3. wann_spread_copy

private subroutine wann_spread_copy(orig, copy)

copy%om_c = orig%om_c

Arguments

Type IntentOptional AttributesName
type(localisation_vars), intent(in) :: orig
type(localisation_vars), 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 program~wannier wannier program~wannier->proc~wann_main program~wannier->proc~wann_main_gamma proc~wannier_run wannier_run proc~wannier_run->proc~wann_main proc~wannier_run->proc~wann_main_gamma

Contents

Source Code

wann_spread_copy

Source Code

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

    implicit none

    type(localisation_vars), intent(in)  :: orig
    type(localisation_vars), 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
    !! copy%om_c  =  orig%om_c
!~    copy%om_1   =  orig%om_1
!~    copy%om_2   =  orig%om_2
!~    copy%om_3   =  orig%om_3

    return

  end subroutine wann_spread_copy