Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2• ERR$MFILE – Too many open files (the file must be opened to change its modificationtime).• ERR$NOENT – File or path not found.• ERR$NOMEM – Not enough memory is available to execute the command; or 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 WINDOWS DLL LIBSee Also: “PACKTIMEQQ”, “UNPACKTIMEQQ”, “GETLASTERRORQQ”ExampleUSE IFPORTINTEGER(2) day, month, yearINTEGER(2) hour, minute, second, hundINTEGER(4) timedateLOGICAL(4) resultCALL GETDAT(year, month, day)CALL GETTIM(hour, minute, second, hund)CALL PACKTIMEQQ (timedate, year, month, day,hour, minute, second)result = SETFILETIMEQQ('myfile.dat', timedate)END&SETFILLMASKGraphics Subroutine: Sets the current fill mask to a new pattern. This subroutine is onlyavailable on Windows* systems.Module: USE IFQWINSyntaxCALL SETFILLMASK (mask)mask(Input) INTEGER(1). One-dimensional array of length 8.There are 8 bytes in mask, and each of the 8 bits in each byte represents a pixel, creating an 8x8pattern. The first element (byte) of mask becomes the top 8 bits of the pattern, and the eighthelement (byte) of mask becomes the bottom 8 bits.2-403