Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceBit flagFILE$VOLUMEAccess information for the fileA logical volume, or partition, on a physical disk drive. This typeof file appears only in the root directory of a physical device.You can use the constant FILE$NORMAL to check that all bit flags are set to 0. If thederived-type element variable FILE$INFO%PERMIT is equal to FILE$NORMAL, the file has nospecial attributes. The variable FILE$INFO%NAME contains the short name of the file, not thefull path of the file.If an error occurs, call GETLASTERRORQQ to retrieve the error message, such as:• ERR$NOENT: The file or path specified was not found.• ERR$NOMEM: Not enough memory is available to execute the command, the availablememory has been corrupted, or an invalid block exists, indicating that the process making thecall was not allocated properly.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIBSee Also: “SETFILEACCESSQQ”, “SETFILETIMEQQ”, “UNPACKTIMEQQ”ExampleUSE IFPORTUSE IFCORECALL SHOWPERMISSION( )END! SUBROUTINE to demonstrate GETFILEINFOQQSUBROUTINE SHOWPERMISSION( )USE IFPORTCHARACTER(80) filesINTEGER(KIND=INT_PTR_KIND( )) handleINTEGER(4) lengthCHARACTER(5) permitTYPE (FILE$INFO) infoWRITE (*, 900) ' Enter wildcard of files to view: '900 FORMAT (A, \)length = GETSTRQQ(files)handle = FILE$FIRSTDO WHILE (.TRUE.)length = GETFILEINFOQQ(files, info, handle)2-122