redirect_stdout Subroutine

public subroutine redirect_stdout(filename)

Uses

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

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename

Source Code

SUBROUTINE redirect_stdout(filename)
  ! MODULES
  USE MODgvec_Globals, ONLY: Unit_stdOut, abort
  ! INPUT/OUTPUT VARIABLES ------------------------------------------------------------------------------------------------------!
  CHARACTER(LEN=*), INTENT(IN) :: filename
  ! LOCAL VARIABLES -------------------------------------------------------------------------------------------------------------!
  INTEGER :: ios
  ! CODE ------------------------------------------------------------------------------------------------------------------------!
  CLOSE(Unit_stdOut)
  OPEN(Unit_stdOut, FILE=filename, ACTION='WRITE', FORM='FORMATTED', ACCESS='SEQUENTIAL', POSITION='APPEND', IOSTAT=ios)
  IF (ios /= 0) THEN
    CALL abort(__STAMP__,&
        "could not open file '"//TRIM(filename)//"' for stdout redirect.")
  END IF
END SUBROUTINE redirect_stdout