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 AttributesName
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~plot_fermi_surface plot_fermi_surface proc~plot_fermi_surface->proc~io_date proc~wann_write_xyz wann_write_xyz proc~wann_write_xyz->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 program~wannier wannier program~wannier->proc~io_date proc~param_write_header param_write_header program~wannier->proc~param_write_header proc~wann_main_gamma wann_main_gamma program~wannier->proc~wann_main_gamma proc~tran_main tran_main program~wannier->proc~tran_main proc~plot_main plot_main program~wannier->proc~plot_main proc~kmesh_write kmesh_write proc~kmesh_write->proc~io_date proc~hamiltonian_write_hr hamiltonian_write_hr proc~hamiltonian_write_hr->proc~io_date proc~wannier_run wannier_run proc~wannier_run->proc~io_date proc~param_write_chkpt param_write_chkpt proc~wannier_run->proc~param_write_chkpt proc~wannier_run->proc~wann_main_gamma proc~wannier_run->proc~tran_main proc~wannier_run->proc~plot_main proc~param_write_header->proc~io_date proc~internal_write_header internal_write_header proc~internal_write_header->proc~io_date proc~param_write_chkpt->proc~io_date proc~tran_bulk tran_bulk proc~tran_bulk->proc~io_date proc~hamiltonian_write_rmn hamiltonian_write_rmn proc~hamiltonian_write_rmn->proc~io_date proc~tran_write_xyz tran_write_xyz proc~tran_write_xyz->proc~io_date proc~ws_write_vec ws_write_vec proc~ws_write_vec->proc~io_date proc~plot_wannier plot_wannier proc~plot_wannier->proc~io_date proc~plot_u_matrices plot_u_matrices proc~plot_u_matrices->proc~io_date proc~plot_bvec plot_bvec proc~plot_bvec->proc~io_date proc~wannier_setup wannier_setup proc~wannier_setup->proc~io_date proc~wannier_setup->proc~kmesh_write proc~wannier_setup->proc~param_write_header proc~hamiltonian_write_tb hamiltonian_write_tb proc~hamiltonian_write_tb->proc~io_date proc~tran_get_ht tran_get_ht proc~tran_get_ht->proc~io_date proc~wann_main_gamma->proc~param_write_chkpt proc~tran_main->proc~tran_lcr proc~tran_main->proc~tran_lcr_2c2_build_ham proc~tran_main->proc~tran_bulk proc~tran_main->proc~tran_get_ht program~postw90 postw90 program~postw90->proc~param_write_header proc~geninterp_main geninterp_main proc~geninterp_main->proc~internal_write_header proc~plot_main->proc~ws_write_vec

Contents

Source Code


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