system_isatty Function

function system_isatty(lun)

call compiler-specific ISATTY() function or return .FALSE.

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	lun

Return Value logical

Source Code

    function system_isatty(lun)
    use IFPORT
    integer,intent(in) :: lun
    logical :: system_isatty
       system_isatty=isatty(lun)
    end function system_isatty