io_date Subroutine

public subroutine io_date(cdate, ctime)

Returns two strings containing the date and the time in human-readable format. Uses a standard f90 call.

Arguments

Type IntentOptional Attributes Name
character(len=9), intent(out) :: cdate

The date
character(len=9), intent(out) :: ctime

The time

Called by

proc~~io_date~~CalledByGraph proc~io_date io_date proc~hamiltonian_write_hr hamiltonian_write_hr proc~hamiltonian_write_hr->proc~io_date proc~hamiltonian_write_tb hamiltonian_write_tb proc~hamiltonian_write_tb->proc~io_date proc~internal_write_header internal_write_header proc~internal_write_header->proc~io_date proc~kmesh_write kmesh_write proc~kmesh_write->proc~io_date proc~plot_bvec plot_bvec proc~plot_bvec->proc~io_date proc~plot_fermi_surface plot_fermi_surface proc~plot_fermi_surface->proc~io_date proc~plot_interpolate_bands plot_interpolate_bands proc~plot_interpolate_bands->proc~io_date proc~plot_u_matrices plot_u_matrices proc~plot_u_matrices->proc~io_date proc~plot_wannier plot_wannier proc~plot_wannier->proc~io_date proc~plot_write_rmn plot_write_rmn proc~plot_write_rmn->proc~io_date proc~plot_write_xyz plot_write_xyz proc~plot_write_xyz->proc~io_date proc~tran_bulk tran_bulk proc~tran_bulk->proc~io_date proc~tran_get_ht tran_get_ht proc~tran_get_ht->proc~io_date proc~tran_lcr tran_lcr proc~tran_lcr->proc~io_date proc~tran_lcr_2c2_build_ham tran_lcr_2c2_build_ham proc~tran_lcr_2c2_build_ham->proc~io_date proc~tran_write_xyz tran_write_xyz proc~tran_write_xyz->proc~io_date proc~w90_readwrite_write_header w90_readwrite_write_header proc~w90_readwrite_write_header->proc~io_date proc~w90_wannier90_readwrite_write_chkpt w90_wannier90_readwrite_write_chkpt proc~w90_wannier90_readwrite_write_chkpt->proc~io_date proc~ws_write_vec ws_write_vec proc~ws_write_vec->proc~io_date program~wannier wannier program~wannier->proc~io_date proc~w90_print_info~2 w90_print_info program~wannier->proc~w90_print_info~2 proc~write_chkpt write_chkpt program~wannier->proc~write_chkpt proc~write_kmesh write_kmesh program~wannier->proc~write_kmesh proc~w90_plot w90_plot program~wannier->proc~w90_plot proc~w90_transport w90_transport program~wannier->proc~w90_transport proc~check_and_sort_similar_centres check_and_sort_similar_centres proc~check_and_sort_similar_centres->proc~tran_write_xyz proc~geninterp_main geninterp_main proc~geninterp_main->proc~internal_write_header proc~plot_main plot_main proc~plot_main->proc~hamiltonian_write_hr proc~plot_main->proc~hamiltonian_write_tb proc~plot_main->proc~plot_bvec proc~plot_main->proc~plot_fermi_surface proc~plot_main->proc~plot_interpolate_bands proc~plot_main->proc~plot_u_matrices proc~plot_main->proc~plot_wannier proc~plot_main->proc~plot_write_rmn proc~plot_main->proc~plot_write_xyz proc~plot_main->proc~ws_write_vec proc~tran_lcr_2c2_sort tran_lcr_2c2_sort proc~tran_lcr_2c2_sort->proc~tran_write_xyz proc~tran_lcr_2c2_sort->proc~check_and_sort_similar_centres proc~tran_main tran_main proc~tran_main->proc~hamiltonian_write_hr proc~tran_main->proc~tran_bulk proc~tran_main->proc~tran_get_ht proc~tran_main->proc~tran_lcr proc~tran_main->proc~tran_lcr_2c2_build_ham proc~tran_main->proc~tran_write_xyz proc~tran_main->proc~tran_lcr_2c2_sort proc~w90_print_info~2->proc~w90_readwrite_write_header proc~write_chkpt->proc~w90_wannier90_readwrite_write_chkpt proc~write_kmesh->proc~kmesh_write program~postw90 postw90 program~postw90->proc~w90_readwrite_write_header program~postw90->proc~geninterp_main proc~w90_plot->proc~plot_main proc~w90_print_info w90_print_info proc~w90_print_info->proc~w90_print_info~2 proc~w90_transport->proc~tran_main

Source Code

  subroutine io_date(cdate, ctime)
    !================================================
    !
    !! Returns two strings containing the date and the time
    !! in human-readable format. Uses a standard f90 call.
    !
    !================================================
    implicit none
    character(len=9), intent(out) :: cdate
    !! The date
    character(len=9), intent(out) :: ctime
    !! The time

    character(len=3), dimension(12) :: months
    data months/'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', &
      'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'/
    integer date_time(8)
    !
    call date_and_time(values=date_time)
    !
    write (cdate, '(i2,a3,i4)') date_time(3), months(date_time(2)), date_time(1)
    write (ctime, '(i2.2,":",i2.2,":",i2.2)') date_time(5), date_time(6), date_time(7)

  end subroutine io_date