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