w90_plot Subroutine

public subroutine w90_plot(common_data, istdout, istderr, ierr)

Uses

  • proc~~w90_plot~~UsesGraph proc~w90_plot w90_plot module~w90_error_base w90_error_base proc~w90_plot->module~w90_error_base module~w90_plot_mod w90_plot_mod proc~w90_plot->module~w90_plot_mod module~w90_comms w90_comms module~w90_plot_mod->module~w90_comms module~w90_comms->module~w90_error_base module~w90_constants w90_constants module~w90_comms->module~w90_constants

performs a variety of plotting functions

Arguments

Type IntentOptional Attributes Name
type(lib_common_type), intent(inout) :: common_data
integer, intent(in) :: istdout
integer, intent(in) :: istderr
integer, intent(out) :: ierr

Calls

proc~~w90_plot~~CallsGraph proc~w90_plot w90_plot proc~plot_main plot_main proc~w90_plot->proc~plot_main proc~prterr prterr proc~w90_plot->proc~prterr proc~hamiltonian_get_hr hamiltonian_get_hr proc~plot_main->proc~hamiltonian_get_hr proc~hamiltonian_setup hamiltonian_setup proc~plot_main->proc~hamiltonian_setup proc~hamiltonian_write_hr hamiltonian_write_hr proc~plot_main->proc~hamiltonian_write_hr proc~hamiltonian_write_tb hamiltonian_write_tb proc~plot_main->proc~hamiltonian_write_tb proc~io_stopwatch_start io_stopwatch_start proc~plot_main->proc~io_stopwatch_start proc~io_stopwatch_stop io_stopwatch_stop proc~plot_main->proc~io_stopwatch_stop proc~mpirank mpirank proc~plot_main->proc~mpirank proc~plot_bvec plot_bvec proc~plot_main->proc~plot_bvec proc~plot_calc_projection plot_calc_projection proc~plot_main->proc~plot_calc_projection proc~plot_fermi_surface plot_fermi_surface proc~plot_main->proc~plot_fermi_surface proc~plot_interpolate_bands plot_interpolate_bands proc~plot_main->proc~plot_interpolate_bands proc~plot_svd_omega_i plot_svd_omega_i proc~plot_main->proc~plot_svd_omega_i proc~plot_u_matrices plot_u_matrices proc~plot_main->proc~plot_u_matrices proc~plot_wannier plot_wannier proc~plot_main->proc~plot_wannier proc~plot_write_r2mn plot_write_r2mn proc~plot_main->proc~plot_write_r2mn proc~plot_write_rmn plot_write_rmn proc~plot_main->proc~plot_write_rmn proc~plot_write_vdw_data plot_write_vdw_data proc~plot_main->proc~plot_write_vdw_data proc~plot_write_xyz plot_write_xyz proc~plot_main->proc~plot_write_xyz proc~utility_recip_lattice_base utility_recip_lattice_base proc~plot_main->proc~utility_recip_lattice_base proc~ws_translate_dist ws_translate_dist proc~plot_main->proc~ws_translate_dist proc~ws_write_vec ws_write_vec proc~plot_main->proc~ws_write_vec interface~comms_no_sync_bcast comms_no_sync_bcast proc~prterr->interface~comms_no_sync_bcast interface~comms_no_sync_recv comms_no_sync_recv proc~prterr->interface~comms_no_sync_recv interface~comms_no_sync_send comms_no_sync_send proc~prterr->interface~comms_no_sync_send proc~prterr->proc~mpirank proc~mpisize mpisize proc~prterr->proc~mpisize proc~comms_no_sync_bcast_char comms_no_sync_bcast_char interface~comms_no_sync_bcast->proc~comms_no_sync_bcast_char proc~comms_no_sync_bcast_cmplx comms_no_sync_bcast_cmplx interface~comms_no_sync_bcast->proc~comms_no_sync_bcast_cmplx proc~comms_no_sync_bcast_int comms_no_sync_bcast_int interface~comms_no_sync_bcast->proc~comms_no_sync_bcast_int proc~comms_no_sync_bcast_logical comms_no_sync_bcast_logical interface~comms_no_sync_bcast->proc~comms_no_sync_bcast_logical proc~comms_no_sync_bcast_real comms_no_sync_bcast_real interface~comms_no_sync_bcast->proc~comms_no_sync_bcast_real proc~comms_no_sync_recv_char comms_no_sync_recv_char interface~comms_no_sync_recv->proc~comms_no_sync_recv_char proc~comms_no_sync_recv_cmplx comms_no_sync_recv_cmplx interface~comms_no_sync_recv->proc~comms_no_sync_recv_cmplx proc~comms_no_sync_recv_int comms_no_sync_recv_int interface~comms_no_sync_recv->proc~comms_no_sync_recv_int proc~comms_no_sync_recv_logical comms_no_sync_recv_logical interface~comms_no_sync_recv->proc~comms_no_sync_recv_logical proc~comms_no_sync_recv_real comms_no_sync_recv_real interface~comms_no_sync_recv->proc~comms_no_sync_recv_real proc~comms_no_sync_send_char comms_no_sync_send_char interface~comms_no_sync_send->proc~comms_no_sync_send_char proc~comms_no_sync_send_cmplx comms_no_sync_send_cmplx interface~comms_no_sync_send->proc~comms_no_sync_send_cmplx proc~comms_no_sync_send_int comms_no_sync_send_int interface~comms_no_sync_send->proc~comms_no_sync_send_int proc~comms_no_sync_send_logical comms_no_sync_send_logical interface~comms_no_sync_send->proc~comms_no_sync_send_logical proc~comms_no_sync_send_real comms_no_sync_send_real interface~comms_no_sync_send->proc~comms_no_sync_send_real proc~hamiltonian_get_hr->proc~io_stopwatch_start proc~hamiltonian_get_hr->proc~io_stopwatch_stop proc~set_error_alloc set_error_alloc proc~hamiltonian_get_hr->proc~set_error_alloc proc~set_error_dealloc set_error_dealloc proc~hamiltonian_get_hr->proc~set_error_dealloc proc~utility_cart_to_frac utility_cart_to_frac proc~hamiltonian_get_hr->proc~utility_cart_to_frac proc~utility_frac_to_cart utility_frac_to_cart proc~hamiltonian_get_hr->proc~utility_frac_to_cart proc~utility_inverse_mat utility_inverse_mat proc~hamiltonian_get_hr->proc~utility_inverse_mat proc~hamiltonian_wigner_seitz hamiltonian_wigner_seitz proc~hamiltonian_setup->proc~hamiltonian_wigner_seitz proc~hamiltonian_setup->proc~set_error_alloc proc~hamiltonian_write_hr->proc~io_stopwatch_start proc~hamiltonian_write_hr->proc~io_stopwatch_stop proc~io_date io_date proc~hamiltonian_write_hr->proc~io_date proc~set_error_file set_error_file proc~hamiltonian_write_hr->proc~set_error_file proc~hamiltonian_write_tb->proc~io_stopwatch_start proc~hamiltonian_write_tb->proc~io_stopwatch_stop proc~hamiltonian_write_tb->proc~mpirank interface~comms_reduce comms_reduce proc~hamiltonian_write_tb->interface~comms_reduce proc~hamiltonian_write_tb->proc~io_date proc~hamiltonian_write_tb->proc~set_error_file proc~plot_bvec->proc~io_date proc~plot_bvec->proc~set_error_file proc~plot_calc_projection->proc~io_stopwatch_start proc~plot_calc_projection->proc~io_stopwatch_stop proc~plot_fermi_surface->proc~io_stopwatch_start proc~plot_fermi_surface->proc~io_stopwatch_stop proc~plot_fermi_surface->proc~io_date proc~io_time io_time proc~plot_fermi_surface->proc~io_time proc~plot_fermi_surface->proc~set_error_alloc proc~set_error_fatal set_error_fatal proc~plot_fermi_surface->proc~set_error_fatal proc~set_error_warn set_error_warn proc~plot_fermi_surface->proc~set_error_warn zhpevx zhpevx proc~plot_fermi_surface->zhpevx proc~plot_interpolate_bands->proc~io_stopwatch_start proc~plot_interpolate_bands->proc~io_stopwatch_stop proc~plot_interpolate_bands->proc~mpirank proc~plot_interpolate_bands->proc~mpisize proc~plot_interpolate_bands->proc~ws_translate_dist 20 20 proc~plot_interpolate_bands->20 proc~plot_interpolate_bands->interface~comms_reduce proc~comms_array_split comms_array_split proc~plot_interpolate_bands->proc~comms_array_split proc~plot_interpolate_bands->proc~io_date proc~plot_interpolate_bands->proc~io_time proc~plot_interpolate_bands->proc~set_error_alloc proc~plot_interpolate_bands->proc~set_error_dealloc proc~plot_interpolate_bands->proc~set_error_fatal proc~plot_interpolate_bands->proc~set_error_warn proc~utility_metric utility_metric proc~plot_interpolate_bands->proc~utility_metric proc~plot_interpolate_bands->zhpevx proc~plot_svd_omega_i->proc~io_stopwatch_start proc~plot_svd_omega_i->proc~io_stopwatch_stop proc~plot_svd_omega_i->proc~mpirank interface~comms_allreduce comms_allreduce proc~plot_svd_omega_i->interface~comms_allreduce proc~plot_svd_omega_i->proc~set_error_alloc proc~plot_svd_omega_i->proc~set_error_dealloc proc~plot_svd_omega_i->proc~set_error_fatal zgesvd zgesvd proc~plot_svd_omega_i->zgesvd proc~plot_u_matrices->proc~io_date proc~plot_u_matrices->proc~set_error_alloc proc~plot_u_matrices->proc~set_error_dealloc zgemm zgemm proc~plot_u_matrices->zgemm proc~plot_wannier->proc~io_stopwatch_start proc~plot_wannier->proc~io_stopwatch_stop proc~plot_wannier->proc~mpirank proc~plot_wannier->proc~mpisize proc~plot_wannier->proc~utility_recip_lattice_base proc~plot_wannier->interface~comms_reduce proc~plot_wannier->proc~io_date proc~plot_read_unk plot_read_unk proc~plot_wannier->proc~plot_read_unk proc~plot_wannier->proc~set_error_alloc proc~plot_wannier->proc~set_error_dealloc proc~plot_wannier->proc~set_error_file proc~plot_wannier->proc~set_error_warn proc~plot_wannier->proc~utility_cart_to_frac proc~plot_wannier->proc~utility_frac_to_cart proc~plot_wannier->proc~utility_inverse_mat zaxpy zaxpy proc~plot_wannier->zaxpy proc~plot_write_r2mn->proc~mpirank proc~plot_write_r2mn->interface~comms_reduce proc~plot_write_r2mn->proc~set_error_file proc~plot_write_rmn->proc~mpirank proc~plot_write_rmn->interface~comms_reduce proc~plot_write_rmn->proc~io_date proc~plot_write_rmn->proc~set_error_file proc~plot_write_vdw_data->proc~set_error_alloc proc~plot_write_vdw_data->proc~set_error_dealloc proc~set_error_input set_error_input proc~plot_write_vdw_data->proc~set_error_input proc~utility_translate_home utility_translate_home proc~plot_write_vdw_data->proc~utility_translate_home proc~plot_write_xyz->proc~io_date proc~plot_write_xyz->proc~set_error_file proc~plot_write_xyz->proc~utility_translate_home proc~utility_inv3 utility_inv3 proc~utility_recip_lattice_base->proc~utility_inv3 proc~clean_ws_translate clean_ws_translate proc~ws_translate_dist->proc~clean_ws_translate proc~r_wz_sc R_wz_sc proc~ws_translate_dist->proc~r_wz_sc proc~ws_translate_dist->proc~set_error_alloc proc~ws_translate_dist->proc~set_error_fatal proc~ws_translate_dist->proc~utility_frac_to_cart proc~ws_translate_dist->proc~utility_inverse_mat proc~ws_write_vec->proc~io_date proc~ws_write_vec->proc~set_error_file proc~comms_allreduce_cmplx comms_allreduce_cmplx interface~comms_allreduce->proc~comms_allreduce_cmplx proc~comms_allreduce_real comms_allreduce_real interface~comms_allreduce->proc~comms_allreduce_real proc~comms_reduce_cmplx comms_reduce_cmplx interface~comms_reduce->proc~comms_reduce_cmplx proc~comms_reduce_int comms_reduce_int interface~comms_reduce->proc~comms_reduce_int proc~comms_reduce_real comms_reduce_real interface~comms_reduce->proc~comms_reduce_real proc~clean_ws_translate->proc~set_error_dealloc proc~comms_array_split->proc~mpisize proc~hamiltonian_wigner_seitz->proc~io_stopwatch_start proc~hamiltonian_wigner_seitz->proc~io_stopwatch_stop proc~hamiltonian_wigner_seitz->proc~set_error_alloc proc~hamiltonian_wigner_seitz->proc~set_error_dealloc proc~hamiltonian_wigner_seitz->proc~set_error_fatal proc~hamiltonian_wigner_seitz->proc~utility_metric proc~plot_read_unk->proc~set_error_file proc~r_wz_sc->proc~set_error_fatal proc~r_wz_sc->proc~utility_cart_to_frac proc~r_wz_sc->proc~utility_frac_to_cart proc~comms_sync_error comms_sync_error proc~set_error_alloc->proc~comms_sync_error proc~set_base_error set_base_error proc~set_error_alloc->proc~set_base_error proc~set_error_dealloc->proc~comms_sync_error proc~set_error_dealloc->proc~set_base_error proc~set_error_fatal->proc~comms_sync_error proc~set_error_fatal->proc~set_base_error proc~set_error_file->proc~comms_sync_error proc~set_error_file->proc~set_base_error proc~set_error_input->proc~comms_sync_error proc~set_error_input->proc~set_base_error proc~set_error_warn->proc~comms_sync_error proc~set_error_warn->proc~set_base_error proc~utility_inverse_mat->proc~utility_inv3 proc~utility_translate_home->proc~utility_recip_lattice_base proc~utility_translate_home->proc~utility_cart_to_frac proc~utility_translate_home->proc~utility_frac_to_cart proc~comms_allreduce_cmplx->proc~comms_sync_error proc~comms_no_sync_allreduce_cmplx comms_no_sync_allreduce_cmplx proc~comms_allreduce_cmplx->proc~comms_no_sync_allreduce_cmplx proc~comms_allreduce_real->proc~comms_sync_error proc~comms_no_sync_allreduce_real comms_no_sync_allreduce_real proc~comms_allreduce_real->proc~comms_no_sync_allreduce_real proc~comms_reduce_cmplx->proc~comms_sync_error proc~comms_no_sync_reduce_cmplx comms_no_sync_reduce_cmplx proc~comms_reduce_cmplx->proc~comms_no_sync_reduce_cmplx proc~comms_reduce_int->proc~comms_sync_error proc~comms_no_sync_reduce_int comms_no_sync_reduce_int proc~comms_reduce_int->proc~comms_no_sync_reduce_int proc~comms_reduce_real->proc~comms_sync_error proc~comms_no_sync_reduce_real comms_no_sync_reduce_real proc~comms_reduce_real->proc~comms_no_sync_reduce_real

Called by

proc~~w90_plot~~CalledByGraph proc~w90_plot w90_plot program~wannier wannier program~wannier->proc~w90_plot

Source Code

  subroutine w90_plot(common_data, istdout, istderr, ierr)
    !! performs a variety of plotting functions

    use w90_error_base, only: w90_error_type
    use w90_plot_mod, only: plot_main

    implicit none

    ! arguments
    integer, intent(in) :: istdout, istderr
    integer, intent(out) :: ierr
    type(lib_common_type), intent(inout) :: common_data ! inout due to ham_logical only

    ! local variables
    type(w90_error_type), allocatable :: error

    ierr = 0

    ! fixme(jj) what are our preconditions?

    call plot_main(common_data%atom_data, common_data%band_plot, common_data%dis_manifold, &
                   common_data%fermi_energy_list, common_data%fermi_surface_data, &
                   common_data%ham_logical, common_data%kmesh_info, common_data%kpt_latt, &
                   common_data%output_file, common_data%wvfn_read, common_data%real_space_ham, &
                   common_data%kpoint_path, common_data%print_output, common_data%wannier_data, &
                   common_data%wann_plot, common_data%ws_region, common_data%w90_calculation, &
                   common_data%ham_k, common_data%ham_r, common_data%m_matrix_local, &
                   common_data%u_matrix, common_data%u_matrix_opt, common_data%eigval, &
                   common_data%real_lattice, common_data%wannier_centres_translated, &
                   common_data%physics%bohr, common_data%irvec, common_data%mp_grid, &
                   common_data%ndegen, common_data%shift_vec, common_data%nrpts, &
                   common_data%num_bands, common_data%num_kpts, common_data%num_wann, &
                   common_data%rpt_origin, common_data%tran%mode, common_data%have_disentangled, &
                   common_data%lsitesymmetry, common_data%w90_system, common_data%seedname, &
                   istdout, common_data%timer, common_data%dist_kpoints, error, common_data%comm)
    if (allocated(error)) then
      call prterr(error, ierr, istdout, istderr, common_data%comm)
      return
    end if
  end subroutine w90_plot