Intel® Fortran Libraries Reference
Intel® Fortran Libraries Reference Intel® Fortran Libraries Reference
2 Intel Fortran Libraries ReferenceResults:The result type is LOGICAL(4). The result is .TRUE. if there is a character waiting in thekeyboard buffer; otherwise, .FALSE..To find out the value of the key in the buffer, call GETCHARQQ. If there is no character waitingin the buffer when you call GETCHARQQ, GETCHARQQ waits until there is a character in thebuffer. If you call PEEKCHARQQ first, you prevent GETCHARQQ from halting your processwhile it waits for a keystroke. If there is a keystroke, GETCHARQQ returns it and resetsPEEKCHARQQ to .FALSE..CompatibilityCONSOLE DLL LIBSee Also: “GETCHARQQ”, “GETSTRQQ”, “FGETC”, “GETC”ExampleUSE IFCORELOGICAL(4) pressed / .FALSE. /DO WHILE (.NOT. pressed)WRITE(*,*) ' Press any key'pressed = PEEKCHARQQ ( )END DOENDPERRORRun-Time Subroutine: Sends a message to the standard error stream, preceded by a specifiedstring, for the last detected error.Module: USE IFCORESyntaxCALL PERROR (string)string(Input) Character*(*). Message to precede the standard error message.The string sent is the same as that given by GERROR.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIBSee Also: “GERROR”, “IERRNO”2-244
Descriptions of the Library Routines 2ExampleUSE IFCOREcharacter*24 errtexterrtext = 'In my opinion, '. . .! any error message generated by errtext is! preceded by 'In my opinion, 'Call PERROR (errtext)PIE, PIE_WGraphics Functions: Draw a pie-shaped wedge in the current graphics color. These functionsare only available on Windows* systems.Module: USE IFQWINSyntaxresult = PIE (i, x1, y1, x2, y2, x3, y3, x4, y4)result = PIE_W (i, wx1, wy1, wx2, wy2, wx3, wy3, wx4, wy4)i(Input) INTEGER(2). Fill flag. One of the following symbolic constants (defined inIFQWIN.F90):• $GFILLINTERIOR – Fills the figure using the current color and fill mask.• $GBORDER – Does not fill the figure.x1, y1(Input) INTEGER(2). Viewport coordinates for upper-left corner of bounding rectangle.x2, y2(Input) INTEGER(2). Viewport coordinates for lower-right corner of bounding rectangle.x3, y3(Input) INTEGER(2). Viewport coordinates of start vector.x4, y4(Input) INTEGER(2). Viewport coordinates of end vector.wx1, wy1(Input) REAL(8). Window coordinates for upper-left corner of bounding rectangle.wx2, wy2(Input) REAL(8). Window coordinates for lower-right corner of bounding rectangle.2-245
- 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
- Page 292 and 293: 2 Intel Fortran Libraries Reference
- Page 294 and 295: 2 Intel Fortran Libraries Reference
- Page 298 and 299: 2 Intel Fortran Libraries Reference
- Page 300 and 301: 2 Intel Fortran Libraries Reference
- Page 302 and 303: 2 Intel Fortran Libraries Reference
- Page 304 and 305: 2 Intel Fortran Libraries Reference
- Page 306 and 307: 2 Intel Fortran Libraries Reference
- Page 308 and 309: 2 Intel Fortran Libraries Reference
- Page 310 and 311: 2 Intel Fortran Libraries Reference
- Page 312 and 313: 2 Intel Fortran Libraries Reference
- Page 314 and 315: 2 Intel Fortran Libraries Reference
- Page 316 and 317: 2 Intel Fortran Libraries Reference
- Page 318 and 319: 2 Intel Fortran Libraries Reference
- Page 320 and 321: 2 Intel Fortran Libraries Reference
- Page 322 and 323: 2 Intel Fortran Libraries Reference
- Page 324 and 325: 2 Intel Fortran Libraries Reference
- Page 326 and 327: 2 Intel Fortran Libraries Reference
- Page 328 and 329: 2 Intel Fortran Libraries Reference
- Page 330 and 331: 2 Intel Fortran Libraries Reference
- Page 332 and 333: 2 Intel Fortran Libraries Reference
- Page 334 and 335: 2 Intel Fortran Libraries Reference
- Page 336 and 337: 2 Intel Fortran Libraries Reference
- Page 338 and 339: 2 Intel Fortran Libraries Reference
- Page 340 and 341: 2 Intel Fortran Libraries Reference
- Page 342 and 343: 2 Intel Fortran Libraries Reference
- Page 344 and 345: 2 Intel Fortran Libraries Reference
Descriptions of the Library Routines 2ExampleUSE IFCOREcharacter*24 errtexterrtext = 'In my opinion, '. . .! any error message generated by errtext is! preceded by 'In my opinion, 'Call PERROR (errtext)PIE, PIE_WGraphics Functions: Draw a pie-shaped wedge in the current graphics color. These functionsare only available on Windows* systems.Module: USE IFQWINSyntaxresult = PIE (i, x1, y1, x2, y2, x3, y3, x4, y4)result = PIE_W (i, wx1, wy1, wx2, wy2, wx3, wy3, wx4, wy4)i(Input) INTEGER(2). Fill flag. One of the following symbolic constants (defined inIFQWIN.F90):• $GFILLINTERIOR – Fills the figure using the current color and fill mask.• $GBORDER – Does not fill the figure.x1, y1(Input) INTEGER(2). Viewport coordinates for upper-left corner of bounding rectangle.x2, y2(Input) INTEGER(2). Viewport coordinates for lower-right corner of bounding rectangle.x3, y3(Input) INTEGER(2). Viewport coordinates of start vector.x4, y4(Input) INTEGER(2). Viewport coordinates of end vector.wx1, wy1(Input) REAL(8). Window coordinates for upper-left corner of bounding rectangle.wx2, wy2(Input) REAL(8). Window coordinates for lower-right corner of bounding rectangle.2-245