Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceTo set the access value for a file, add the constants representing the appropriate access.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “GETFILEINFOQQ”ExampleUSE IFPORTINTEGER(4) permitLOGICAL(4) resultpermit = 0 ! clear permitpermit = IOR(FILE$READONLY, FILE$HIDDEN)result = SETFILEACCESSQQ ('formula.f90', permit)ENDSETFILETIMEQQPortability Function: Sets the modification time for a specified file.Module: USE IFPORTSyntaxresult = SETFILETIMEQQ (filename, timedate)filename(Input) Character*(*). Name of a file.timedate(Input) INTEGER(4). Time and date information, as packed by PACKTIMEQQ.Results:The result type is LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..The modification time is the time the file was last modified and is useful for keeping track ofdifferent versions of the file. The process that calls SETFILETIMEQQ must have write access tothe file; otherwise, the time cannot be changed. If you set timedate to FILE$CURTIME (defined inIFPORT.F90), SETFILETIMEQQ sets the modification time to the current system time.If the function fails, call GETLASTERRORQQ to determine the reason. It can be one of thefollowing:• ERR$ACCES – Permission denied. The file’s (or directory’s) permission setting does notallow the specified access.• ERR$INVAL – Invalid argument; the timedate argument is invalid.2-402