Clicky
Showing changes from revision #0 to #1:
(追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)
!-------------------------------------------------------------------------------
! Example: writing messages to standard error
! Standard: Fortran 2003
!
SUBROUTINE stderr(message)
! "@(#) stderr writes a message to standard error using a standard f2003 method"
USE ISO_FORTRAN_ENV, ONLY : ERROR_UNIT ! access computing environment
CHARACTER(LEN=*) :: message
WRITE(ERROR_UNIT,'(a)')message ! write message to standard error
END SUBROUTINE stderr
!-------------------------------------------------------------------------------