Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2RINDEXSee Also: “INTEGERTORGB”, “SETCOLORRGB”, “SETBKCOLORRGB”, “SETPIXELRGB,SETPIXELRGB_W”, “SETPIXELSRGB”, “SETTEXTCOLORRGB”, "Using QuickWin" inyour user’s guideExample! Build as a QuickWin App.USE IFQWININTEGER r, g, b, rgb, resultINTEGER(2) statusr = Z'F0'g = Z'F0'b = 0rgb = RGBTOINTEGER(r, g, b)result = SETCOLORRGB(rgb)status = ELLIPSE($GFILLINTERIOR,INT2(40), INT2(55), &INT2(90), INT2(85))ENDPortability Function: Locates the index of the last occurrence of a substring within a string.Module: USE IFPORTSyntaxresult = RINDEX (string, substr)string(Input) Character*(*). Original string to search.substr(Input) Character*(*). String to search for.Results:The result type is INTEGER(4). The result is the starting position of the final occurrence of substrin string. The result is zero if substr does not occur in string.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: the INDEX intrinsic function in the Language ReferenceExampleUSE IFPORT2-379