Intel® Fortran Libraries Reference
Intel® Fortran Libraries Reference Intel® Fortran Libraries Reference
2 Intel Fortran Libraries ReferenceSee Also: “RAISEQQ”, “SIGNALQQ”ExampleLCWRQQUSE IFPORTinteger(4) id_number, sig_val, istatid_number=getpid( )ISTAT = KILL (id_number, sig_val)Portability Subroutine: Sets the value of the floating-point processor control word.Module: USE IFPORTSyntaxCALL LCWRQQ (controlword)controlword(Input) INTEGER(2). Floating-point processor control word.LCWRQQ performs the same function as the run-time subroutine SETCONTROLFPQQ and isprovided for compatibility.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “SETCONTROLFPQQ”ExampleUSE IFPORTINTEGER(2) controlCALL SCWRQQ(control) ! get control word! Set control word to make processor round upcontrol = control .AND. (.NOT. FPCW$MCW_RC) ! Clear! control word with inverse! of rounding control maskcontrol = control .OR. FPCW$UP ! Set control word! to round upCALL LCWRQQ(control)WRITE (*, 9000) 'Control word: ', control9000 FORMAT (1X, A, Z4)END2-190
Descriptions of the Library Routines 2LINETO, LINETO_WGraphics Function: Draws a line from the current graphics position up to and including the endpoint. This function is only available on Windows* systems.Module: USE IFQWINSyntaxresult = LINETO (x, y)result = LINETO_W (wx, wy)x, y(Input) INTEGER(2). Viewport coordinates of end point.wx, wy(Input) REAL(8). Window coordinates of end point.Results:The result type is INTEGER(2). The result is a nonzero value if successful; otherwise, 0.The line is drawn using the current graphics color, logical write mode, and line style. The graphicscolor is set with SETCOLORRGB, the write mode with SETWRITEMODE, and the line stylewith SETLINESTYLE.If no error occurs, LINETO sets the current graphics position to the viewport point (x, y), andLINETO_W sets the current graphics position to the window point (wx, wy).If you use FLOODFILLRGB to fill in a closed figure drawn with LINETO, the figure must bedrawn with a solid line style. Line style is solid by default and can be changed withSETLINESTYLE.NOTE. The LINETO routine described here is a QuickWin routine. If you aretrying to use the Microsoft* Platform SDK version of the LineTo routine byincluding the IFWIN module, you need to specify the routine name asMSFWIN$LineTo. For more information, see "Special Naming Conventionfor Certain QuickWin and Win32 Graphics Routines" in your user’s guide.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICSSee Also: “GETCURRENTPOSITION, GETCURRENTPOSITION_W”, “GETLINESTYLE”,“GRSTATUS”, “MOVETO, MOVETO_W”, “POLYGON, POLYGON_W”, “POLYLINEQQ”,“SETLINESTYLE”, “SETWRITEMODE”2-191
- Page 192 and 193: 2 Intel Fortran Libraries Reference
- Page 194 and 195: 2 Intel Fortran Libraries Reference
- Page 196 and 197: 2 Intel Fortran Libraries Reference
- Page 198 and 199: 2 Intel Fortran Libraries Reference
- Page 200 and 201: 2 Intel Fortran Libraries Reference
- Page 202 and 203: 2 Intel Fortran Libraries Reference
- Page 204 and 205: 2 Intel Fortran Libraries Reference
- Page 206 and 207: 2 Intel Fortran Libraries Reference
- Page 208 and 209: 2 Intel Fortran Libraries Reference
- Page 210 and 211: 2 Intel Fortran Libraries Reference
- Page 212 and 213: 2 Intel Fortran Libraries Reference
- Page 214 and 215: 2 Intel Fortran Libraries Reference
- Page 216 and 217: 2 Intel Fortran Libraries Reference
- Page 218 and 219: 2 Intel Fortran Libraries Reference
- Page 220 and 221: 2 Intel Fortran Libraries Reference
- Page 222 and 223: 2 Intel Fortran Libraries Reference
- Page 224 and 225: 2 Intel Fortran Libraries Reference
- Page 226 and 227: 2 Intel Fortran Libraries Reference
- Page 228 and 229: 2 Intel Fortran Libraries Reference
- Page 230 and 231: 2 Intel Fortran Libraries Reference
- Page 232 and 233: 2 Intel Fortran Libraries Reference
- Page 234 and 235: 2 Intel Fortran Libraries Reference
- Page 236 and 237: 2 Intel Fortran Libraries Reference
- Page 238 and 239: 2 Intel Fortran Libraries Reference
- Page 240 and 241: 2 Intel Fortran Libraries Reference
- Page 244 and 245: 2 Intel Fortran Libraries Reference
- Page 246 and 247: 2 Intel Fortran Libraries Reference
- Page 248 and 249: 2 Intel Fortran Libraries Reference
- Page 250 and 251: 2 Intel Fortran Libraries Reference
- Page 252 and 253: 2 Intel Fortran Libraries Reference
- Page 254 and 255: 2 Intel Fortran Libraries Reference
- Page 256 and 257: 2 Intel Fortran Libraries Reference
- Page 258 and 259: 2 Intel Fortran Libraries Reference
- Page 260 and 261: 2 Intel Fortran Libraries Reference
- Page 262 and 263: 2 Intel Fortran Libraries Reference
- Page 264 and 265: 2 Intel Fortran Libraries Reference
- Page 266 and 267: 2 Intel Fortran Libraries Reference
- Page 268 and 269: 2 Intel Fortran Libraries Reference
- Page 270 and 271: 2 Intel Fortran Libraries Reference
- Page 272 and 273: 2 Intel Fortran Libraries Reference
- Page 274 and 275: 2 Intel Fortran Libraries Reference
- Page 276 and 277: 2 Intel Fortran Libraries Reference
- Page 278 and 279: 2 Intel Fortran Libraries Reference
- Page 280 and 281: 2 Intel Fortran Libraries Reference
- Page 282 and 283: 2 Intel Fortran Libraries Reference
- Page 284 and 285: 2 Intel Fortran Libraries Reference
- Page 286 and 287: 2 Intel Fortran Libraries Reference
- Page 288 and 289: 2 Intel Fortran Libraries Reference
- Page 290 and 291: 2 Intel Fortran Libraries Reference
2 Intel <strong>Fortran</strong> <strong>Libraries</strong> <strong>Reference</strong>See Also: “RAISEQQ”, “SIGNALQQ”ExampleLCWRQQUSE IFPORTinteger(4) id_number, sig_val, istatid_number=getpid( )ISTAT = KILL (id_number, sig_val)Portability Subroutine: Sets the value of the floating-point processor control word.Module: USE IFPORTSyntaxCALL LCWRQQ (controlword)controlword(Input) INTEGER(2). Floating-point processor control word.LCWRQQ performs the same function as the run-time subroutine SETCONTROLFPQQ and isprovided for compatibility.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “SETCONTROLFPQQ”ExampleUSE IFPORTINTEGER(2) controlCALL SCWRQQ(control) ! get control word! Set control word to make processor round upcontrol = control .AND. (.NOT. FPCW$MCW_RC) ! Clear! control word with inverse! of rounding control maskcontrol = control .OR. FPCW$UP ! Set control word! to round upCALL LCWRQQ(control)WRITE (*, 9000) 'Control word: ', control9000 FORMAT (1X, A, Z4)END2-190