pxfisreg

Date:: 10-20-2011

NAME

PXFISREG - Tests for regular file

SYNOPSIS

LOGICAL FUNCTION PXFISREG(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 PXFISREG checks if a file is a regular file. The argument m should be supplied by the st_mode component of the stat structure used by the PXFSTAT(3F) routine. If the file is a regular file, PXFISREG returns a logical true, otherwise a logical false is returned.

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

The following argument is valid for this routine:

m: An integer input variable containing the file mode.

EXAMPLES

program pxftest
integer jstat,ierror,mode
logical PXFISREG
CALL PXFSTRUCTCREATE('stat',jstat,ierror)
CALL PXFSTAT('/etc/passwd',0,jstat,ierror)
CALL PXFINTGET(jstat,'st_mode', mode, ierror)
if (PXFISREG(mode) .eqv. .TRUE.) then
   print *,'passwd is a regular file.'
else
   print *,'passwd file is not a regular file.'
endif
end