w90_set_u_matrix Subroutine

public subroutine w90_set_u_matrix(common_data, u_matrix)

Arguments

Type IntentOptional Attributes Name
type(lib_common_type), intent(inout) :: common_data
complex(kind=dp), intent(inout), target :: u_matrix(:,:,:)

Called by

proc~~w90_set_u_matrix~2~~CalledByGraph proc~w90_set_u_matrix~2 w90_set_u_matrix proc~w90_set_u_matrix w90_set_u_matrix proc~w90_set_u_matrix->proc~w90_set_u_matrix~2 program~wannier wannier program~wannier->proc~w90_set_u_matrix~2

Source Code

  subroutine w90_set_u_matrix(common_data, u_matrix)
    implicit none

    type(lib_common_type), intent(inout) :: common_data
    complex(kind=dp), intent(inout), target :: u_matrix(:, :, :)

    common_data%u_matrix => u_matrix
  end subroutine w90_set_u_matrix