Intel® Fortran Libraries Reference
Intel® Fortran Libraries Reference Intel® Fortran Libraries Reference
2 Intel Fortran Libraries ReferenceSETEXITQQQuickWin Function: Sets a QuickWin application’s exit behavior. This function is only availableon Windows* systems.Module: USE IFQWINSyntaxresult = SETEXITQQ (exitmode)exitmode(Input) INTEGER(4). Determines the program exit behavior. The following exit parameters aredefined in IFQWIN.F90:• QWIN$EXITPROMPT – Displays the following message box:"Program exited with exit status X. Exit Window?"where X is the exit status from the program.If Yes is entered, the application closes the window and terminates. If No is entered, thedialog box disappears and you can manipulate the windows as usual. You must then close thewindow manually.• QWIN$EXITNOPERSIST – Terminates the application without displaying a message box.• QWIN$EXITPERSIST – Leaves the application open without displaying a message box.Results:The result type is INTEGER(4). The result is zero if successful; otherwise, a negative value.The default for both QuickWin and Standard Graphics applications is QWIN$EXITPROMPT.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETEXITQQ”, "Using QuickWin" in your user’s guideExample! Build as QuickWin ApUSE IFQWININTEGER(4) exmode, resultWRITE(*,'(1X,A,/)') 'Please enter the exit mode 1, 2 &or 3 'READ(*,*) exmodeSELECT CASE (exmode)CASE (1)result = SETEXITQQ(QWIN$EXITPROMPT)CASE (2)2-400
Descriptions of the Library Routines 2result = SETEXITQQ(QWIN$EXITNOPERSIST)CASE (3)result = SETEXITQQ(QWIN$EXITPERSIST)CASE DEFAULTWRITE(*,*) 'Invalid option - checking for badreturn'IF(SETEXITQQ( exmode ) .NE. -1) THENWRITE(*,*) 'Error not returned'ELSEWRITE(*,*) 'Error code returned'ENDIFEND SELECTEND&SETFILEACCESSQQPortability Function: Sets the file access mode for a specified file.Module: USE IFPORTSyntaxresult = SETFILEACCESSQQ (filename, access)filename(Input) Character*(*). Name of a file to set access for.access(Input) INTEGER(4). Constant that sets the access. Can be any combination of the followingflags, combined by an inclusive OR (such as IOR or OR):• FILE$ARCHIVE – Marked as having been copied to a backup device.• FILE$HIDDEN – Hidden. The file does not appear in the directory list that you can requestfrom the command console.• FILE$NORMAL – No special attributes (default).• FILE$READONLY – Write-protected. You can read the file, but you cannot make changes toit.• FILE$SYSTEM – Used by the operating system.The flags are defined in module IFPORT.F90.Results:The result type is LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..2-401
- Page 402 and 403: 2 Intel Fortran Libraries Reference
- Page 404 and 405: 2 Intel Fortran Libraries Reference
- Page 406 and 407: 2 Intel Fortran Libraries Reference
- Page 408 and 409: 2 Intel Fortran Libraries Reference
- Page 410 and 411: 2 Intel Fortran Libraries Reference
- Page 412 and 413: 2 Intel Fortran Libraries Reference
- Page 414 and 415: 2 Intel Fortran Libraries Reference
- Page 416 and 417: 2 Intel Fortran Libraries Reference
- Page 418 and 419: 2 Intel Fortran Libraries Reference
- Page 420 and 421: 2 Intel Fortran Libraries Reference
- Page 422 and 423: 2 Intel Fortran Libraries Reference
- Page 424 and 425: 2 Intel Fortran Libraries Reference
- Page 426 and 427: 2 Intel Fortran Libraries Reference
- Page 428 and 429: 2 Intel Fortran Libraries Reference
- Page 430 and 431: 2 Intel Fortran Libraries Reference
- Page 432 and 433: 2 Intel Fortran Libraries Reference
- Page 434 and 435: 2 Intel Fortran Libraries Reference
- Page 436 and 437: 2 Intel Fortran Libraries Reference
- Page 438 and 439: 2 Intel Fortran Libraries Reference
- Page 440 and 441: 2 Intel Fortran Libraries Reference
- Page 442 and 443: 2 Intel Fortran Libraries Reference
- Page 444 and 445: 2 Intel Fortran Libraries Reference
- Page 446 and 447: 2 Intel Fortran Libraries Reference
- Page 448 and 449: 2 Intel Fortran Libraries Reference
- Page 450 and 451: 2 Intel Fortran Libraries Reference
- Page 454 and 455: 2 Intel Fortran Libraries Reference
- Page 456 and 457: 2 Intel Fortran Libraries Reference
- Page 458 and 459: 2 Intel Fortran Libraries Reference
- Page 460 and 461: 2 Intel Fortran Libraries Reference
- Page 462 and 463: 2 Intel Fortran Libraries Reference
- Page 464 and 465: 2 Intel Fortran Libraries Reference
- Page 466 and 467: 2 Intel Fortran Libraries Reference
- Page 468 and 469: 2 Intel Fortran Libraries Reference
- Page 470 and 471: 2 Intel Fortran Libraries Reference
- Page 472 and 473: 2 Intel Fortran Libraries Reference
- Page 474 and 475: 2 Intel Fortran Libraries Reference
- Page 476 and 477: 2 Intel Fortran Libraries Reference
- Page 478 and 479: 2 Intel Fortran Libraries Reference
- Page 480 and 481: 2 Intel Fortran Libraries Reference
- Page 482 and 483: 2 Intel Fortran Libraries Reference
- Page 484 and 485: 2 Intel Fortran Libraries Reference
- Page 486 and 487: 2 Intel Fortran Libraries Reference
- Page 488 and 489: 2 Intel Fortran Libraries Reference
- Page 490 and 491: 2 Intel Fortran Libraries Reference
- Page 492 and 493: 2 Intel Fortran Libraries Reference
- Page 494 and 495: 2 Intel Fortran Libraries Reference
- Page 496 and 497: 2 Intel Fortran Libraries Reference
- Page 498 and 499: 2 Intel Fortran Libraries Reference
- Page 500 and 501: 2 Intel Fortran Libraries Reference
Descriptions of the Library Routines 2result = SETEXITQQ(QWIN$EXITNOPERSIST)CASE (3)result = SETEXITQQ(QWIN$EXITPERSIST)CASE DEFAULTWRITE(*,*) 'Invalid option - checking for badreturn'IF(SETEXITQQ( exmode ) .NE. -1) THENWRITE(*,*) 'Error not returned'ELSEWRITE(*,*) 'Error code returned'ENDIFEND SELECTEND&SETFILEACCESSQQPortability Function: Sets the file access mode for a specified file.Module: USE IFPORTSyntaxresult = SETFILEACCESSQQ (filename, access)filename(Input) Character*(*). Name of a file to set access for.access(Input) INTEGER(4). Constant that sets the access. Can be any combination of the followingflags, combined by an inclusive OR (such as IOR or OR):• FILE$ARCHIVE – Marked as having been copied to a backup device.• FILE$HIDDEN – Hidden. The file does not appear in the directory list that you can requestfrom the command console.• FILE$NORMAL – No special attributes (default).• FILE$READONLY – Write-protected. You can read the file, but you cannot make changes toit.• FILE$SYSTEM – Used by the operating system.The flags are defined in module IFPORT.F90.Results:The result type is LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..2-401