Sets the custom handler of fatal errors.
external :: myexit
interface = mkl_set_exit_handler( myexit )
None.
Name |
Interface |
Description |
|---|---|---|
myexit |
interface subroutine myexit(iwhy) integer,value :: iwhy end subroutine myexit end interface |
The error handler to set. |
This function sets the custom handler of fatal errors.
The following example shows how to use a custom handler of fatal errors in your application:
subroutine myexit(rsn)
integer,value :: rsn
call msgbox("Application is terminating")
end myexit
program app
external :: myexit
call mkl_set_exit_handler(myexit)
!... compute using Intel MKL...