pxfischr

Date:: 10-20-2011

NAME

PXFISCHR - Tests for character special file

SYNOPSIS

LOGICAL FUNCTION PXFISCHR(m)
INTEGER m
IF (m) then

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

IEEE Std 1003.9-1992 standard interface for FORTRAN 77

DESCRIPTION

The logical function PXFISCHR checks if a file is a character special file. The argument m should be supplied by the st_mode component of the stat structure used by the PXFSTAT(3F) routine.

All arguments must be of default kind unless documented otherwise. Default kind is KIND=4 for integer, real, complex, and logical arguments.

The following is a valid argument for this routine:

m: An integer input variable containing the file mode.

If the file is a character special file, PXFISCHR returns a logical true, otherwise a logical false is returned.

EXAMPLES

In this example, PXFSTAT is called on /dev/tty, which should be a character special file. After PXFINTGET(3F) returns the mode of /dev/tty, PXFISCHR is called to check the mode of /dev/tty.

program pxftest
integer jstat,ierror,mode
logical pxfischr

CALL PXFSTRUCTCREATE('stat',jstat,ierror)
CALL PXFSTAT('/dev/tty',0,jstat,ierror)
CALL PXFINTGET(jstat,'st_mode', mode, ierror)
 if (PXFISCHR(mode) .eqv. .TRUE.) then
    print *,'/dev/tty is a character special file.'
 else
    print *,'/dev/tty should be a character special file, but is not.'
 endif
end

This program may display:

/dev/tty is a character special file.