w90_print_info Subroutine

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

Uses

  • proc~~w90_print_info~2~~UsesGraph proc~w90_print_info~2 w90_print_info module~w90_comms w90_comms proc~w90_print_info~2->module~w90_comms module~w90_error_base w90_error_base proc~w90_print_info~2->module~w90_error_base module~w90_readwrite w90_readwrite proc~w90_print_info~2->module~w90_readwrite module~w90_wannier90_readwrite w90_wannier90_readwrite proc~w90_print_info~2->module~w90_wannier90_readwrite module~w90_comms->module~w90_error_base module~w90_constants w90_constants module~w90_comms->module~w90_constants module~w90_readwrite->module~w90_comms module~w90_readwrite->module~w90_constants module~w90_types w90_types module~w90_readwrite->module~w90_types module~w90_wannier90_readwrite->module~w90_readwrite module~w90_wannier90_readwrite->module~w90_constants module~w90_error w90_error module~w90_wannier90_readwrite->module~w90_error module~w90_wannier90_readwrite->module~w90_types module~w90_wannier90_types w90_wannier90_types module~w90_wannier90_readwrite->module~w90_wannier90_types module~w90_error->module~w90_comms module~w90_error->module~w90_error_base module~w90_types->module~w90_constants module~w90_wannier90_types->module~w90_constants

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_print_info~2~~CallsGraph proc~w90_print_info~2 w90_print_info proc~mpirank mpirank proc~w90_print_info~2->proc~mpirank proc~mpisize mpisize proc~w90_print_info~2->proc~mpisize proc~prterr prterr proc~w90_print_info~2->proc~prterr proc~w90_readwrite_write_header w90_readwrite_write_header proc~w90_print_info~2->proc~w90_readwrite_write_header proc~w90_wannier90_readwrite_write w90_wannier90_readwrite_write proc~w90_print_info~2->proc~w90_wannier90_readwrite_write proc~prterr->proc~mpirank proc~prterr->proc~mpisize 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~io_date io_date proc~w90_readwrite_write_header->proc~io_date proc~utility_cart_to_frac utility_cart_to_frac proc~w90_wannier90_readwrite_write->proc~utility_cart_to_frac proc~utility_frac_to_cart utility_frac_to_cart proc~w90_wannier90_readwrite_write->proc~utility_frac_to_cart proc~utility_inverse_mat utility_inverse_mat proc~w90_wannier90_readwrite_write->proc~utility_inverse_mat proc~utility_recip_lattice_base utility_recip_lattice_base proc~w90_wannier90_readwrite_write->proc~utility_recip_lattice_base 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~utility_inv3 utility_inv3 proc~utility_inverse_mat->proc~utility_inv3 proc~utility_recip_lattice_base->proc~utility_inv3

Called by

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

Source Code

  subroutine w90_print_info(common_data, istdout, istderr, ierr)
    use w90_error_base, only: w90_error_type
    use w90_readwrite, only: w90_readwrite_write_header
    use w90_wannier90_readwrite, only: w90_wannier90_readwrite_write
    use w90_comms, only: mpisize, mpirank

    implicit none

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

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

    ierr = 0

    if (mpirank(common_data%comm) == 0) then
      mpi_size = mpisize(common_data%comm)
      ! write jazzy header info
      call w90_readwrite_write_header(common_data%physics%bohr_version_str, &
                                      common_data%physics%constants_version_str1, &
                                      common_data%physics%constants_version_str2, &
                                      mpi_size, istdout)
    end if

    ! write simulation details
    call w90_wannier90_readwrite_write(common_data%atom_data, common_data%band_plot, &
                                       common_data%dis_control, common_data%dis_spheres, &
                                       common_data%fermi_energy_list, &
                                       common_data%fermi_surface_data, common_data%kpt_latt, &
                                       common_data%output_file, common_data%wvfn_read, &
                                       common_data%wann_control, common_data%proj, &
                                       common_data%proj_input, common_data%real_space_ham, &
                                       common_data%select_proj, common_data%kpoint_path, &
                                       common_data%tran, common_data%print_output, &
                                       common_data%wannier_data, common_data%wann_plot, &
                                       common_data%w90_calculation, common_data%real_lattice, &
                                       common_data%sitesym%symmetrize_eps, common_data%mp_grid, &
                                       common_data%num_bands, common_data%num_kpts, &
                                       common_data%num_proj, common_data%num_wann, &
                                       common_data%optimisation, .false., common_data%gamma_only, &
                                       common_data%lsitesymmetry, common_data%w90_system%spinors, &
                                       common_data%use_bloch_phases, istdout)

    if (allocated(error)) then
      call prterr(error, ierr, istdout, istderr, common_data%comm)
      return
    end if
  end subroutine w90_print_info