flush_stdout Subroutine

public subroutine flush_stdout()

Uses

  • proc~~flush_stdout~~UsesGraph proc~flush_stdout flush_stdout module~modgvec_globals MODgvec_Globals proc~flush_stdout->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

Arguments

None

Source Code

SUBROUTINE flush_stdout()
  ! MODULES
  USE MODgvec_Globals, ONLY: Unit_stdOut, UNIT_errOut,abort
  ! LOCAL VARIABLES -------------------------------------------------------------------------------------------------------------!
  INTEGER :: ios
  ! CODE ------------------------------------------------------------------------------------------------------------------------!
  FLUSH(Unit_stdOut, IOSTAT=ios)
  IF (ios /= 0) THEN
    WRITE(Unit_errOut, '(A)') 'ERROR: could not flush standard output'
    CALL abort(__STAMP__,"")
  END IF
END SUBROUTINE flush_stdout