Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2FLUSHCompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “ELLIPSE, ELLIPSE_W”, “FLOODFILL, FLOODFILL_W”, “GETCOLORRGB”,“GETFILLMASK”, “GRSTATUS”, “PIE, PIE_W”, “SETCLIPRGN”, “SETCOLORRGB”,“SETFILLMASK”Example! Build as a QuickWin or Standard Graphics App.USE IFQWININTEGER(2) statusINTEGER(4) result, bcolorINTEGER(2) x1, y1, x2, y2, xinterior, yinteriorx1 = 80; y1 = 50x2 = 240; y2 = 150result = SETCOLORRGB(Z'008080') ! redstatus = RECTANGLE( $GBORDER, x1, y1, x2, y2 )bcolor = GETCOLORRGB( )result = SETCOLORRGB (Z'FF0000') ! bluexinterior = 160; yinterior = 100result = FLOODFILLRGB (xinterior, yinterior, bcolor)ENDPortability Subroutine: Flushes the contents of an external unit buffer into its associated file.Module: USE IFPORTSyntaxCALL FLUSH (lunit)lunit(Input) INTEGER(4). Number of the external unit to be flushed. Must be currently connected to afile when the subroutine is called. This routine is thread-safe, and locks the associated streambefore I/O is performed.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS LIBSee Also: “COMMITQQ”2-81