Visible to Intel only — GUID: GUID-F009DC2C-A531-4F88-BDAA-1B3C8D3469C5
Visible to Intel only — GUID: GUID-F009DC2C-A531-4F88-BDAA-1B3C8D3469C5
SETFILEACCESSQQ
Portability Function: Sets the file access mode for a specified file.
USE IFPORT
result = SETFILEACCESSQQ (filename,access)
filename |
(Input) Character*(*). Name of a file to set access for. |
access |
(Input) INTEGER(4). Constant that sets the access. Can be any combination of the following flags, combined by an inclusive OR (such asIOR or OR):
The flags are defined in module IFPORT.F90. |
The result type is LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..
To set the access value for a file, add the constants representing the appropriate access.
USE IFPORT
INTEGER(4) permit
LOGICAL(4) result
permit = 0 ! clear permit
permit = IOR(FILE$READONLY, FILE$HIDDEN)
result = SETFILEACCESSQQ ('formula.f90', permit)
END