internal_write_header Subroutine

private subroutine internal_write_header(outdat_unit, commentline, pw90_geninterp)

Uses

  • proc~~internal_write_header~~UsesGraph proc~internal_write_header internal_write_header module~w90_io w90_io proc~internal_write_header->module~w90_io module~w90_postw90_types w90_postw90_types proc~internal_write_header->module~w90_postw90_types module~w90_constants w90_constants module~w90_io->module~w90_constants module~w90_comms w90_comms module~w90_postw90_types->module~w90_comms module~w90_postw90_types->module~w90_constants module~w90_comms->module~w90_constants module~w90_error_base w90_error_base module~w90_comms->module~w90_error_base

Writes a header for the output file(s).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: outdat_unit

Integer with the output file unit. The file must be already open.
character(len=*) :: commentline

no intent? String with the comment taken from the output, to be written on the output
type(pw90_geninterp_mod_type), intent(in) :: pw90_geninterp

Calls

proc~~internal_write_header~~CallsGraph proc~internal_write_header internal_write_header proc~io_date io_date proc~internal_write_header->proc~io_date

Called by

proc~~internal_write_header~~CalledByGraph proc~internal_write_header internal_write_header proc~geninterp_main geninterp_main proc~geninterp_main->proc~internal_write_header program~postw90 postw90 program~postw90->proc~geninterp_main

Source Code

  subroutine internal_write_header(outdat_unit, commentline, pw90_geninterp)
    !==================================================
    !! Writes a header for the output file(s).
    !==================================================

    use w90_postw90_types, only: pw90_geninterp_mod_type
    use w90_io, only: io_date

    ! arguments
    type(pw90_geninterp_mod_type), intent(in) :: pw90_geninterp
    integer, intent(in) :: outdat_unit
    !! Integer with the output file unit. The file must be already open.
    character(len=*) :: commentline !! no intent?
    !! String with the comment taken from the output, to be written on the output

    ! local variables
    character(len=9) :: cdate, ctime

    call io_date(cdate, ctime)
    write (outdat_unit, '(A)') "# Written on "//cdate//" at "//ctime ! Date and time
    ! I rewrite the comment line on the output
    write (outdat_unit, '(A)') "# Input file comment: "//trim(commentline)

    if (pw90_geninterp%alsofirstder) then
      write (outdat_unit, '(A)') "#  Kpt_idx  K_x (1/ang)       K_y (1/ang)        K_z (1/ang)       Energy (eV)"// &
        "      EnergyDer_x       EnergyDer_y       EnergyDer_z"
    else
      write (outdat_unit, '(A)') "#  Kpt_idx  K_x (1/ang)       K_y (1/ang)        K_z (1/ang)       Energy (eV)"
    end if
  end subroutine internal_write_header