flush_files Subroutine

private subroutine flush_files()

Flush text files (only out_unit, res_unit, lpc_unit, and parity_unit)

Arguments

None

Contents

Source Code

flush_files

Source Code

  subroutine flush_files
    implicit none
    if (.not. write_ascii) return
    flush (out_unit)
    if (write_verr) then
       flush (res_unit)
       flush (lpc_unit)
    end if
    if (write_cerr) flush (cres_unit)
    if (write_parity) flush (parity_unit)
    if (write_g) flush (dist_unit)
    if (write_gyx) flush (yxdist_unit)
  end subroutine flush_files