Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2x(i) = i-1y(i) = 30END DOCALL GETPIXELSRGB(300, x, y, color)! Move down 30 pixels and redisplay pixelsDO i = 1, 50y(i) = y(i) + 30END DOCALL SETPIXELSRGB (50, x, y, color)ENDGETPOS, GETPOSI8Portability Functions: Return the current position of a file.Module: USE IFPORTSyntaxresult = GETPOS (lunit)result = GETPOSI8 (lunit)lunit(Input) INTEGER(4). External unit number of a file. The value must be in the range 0 to 100 andthe file must be connected.Results:The result type is INTEGER(4) for GETPOS; INTEGER(8) for GETPOSI8. The result is theoffset, in bytes, from the beginning of the file. If an error occurs, the result value is –1 and thefollowing error code is returned in errno:EINVAL: lunit is not a valid unit number, or is not open.These functions are equivalent to “FTELL, FTELLI8”.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBGETSTATUSFPQQPortability Subroutine: Returns the floating-point processor status word.Module: USE IFPORT2-141