This implementation is applicable to computer systems described in section 2.1 of the Installer's Notes (see Installer's Notes, Applicability).

Additional information related to this implementation, that has come to light after the release of this product, is described below.

1. Run-time library diagnostic information caused by interrupts of NAG .NET library programs

   The NAG .NET library uses code compiled using the Intel Fortran compiler. The run-time libraries of this compiler install their own signal handling routines to trap anomalous situations, such as CTRL-C console interrupts or window close events.

   Programs that call NAG .NET library functions and are then terminated by an interrupt or window close event may therefore issue error messages and stack traces referring to the Intel compiler run-time libraries. This can happen even after the NAG function has completed and control returned to the calling program. Such behaviour may be undesirable to the NAG library user.

   It is possible to avoid these error messages, and the following program demonstrates various ways of doing that.

   // The NAG .NET Library uses code compiled using the Intel Fortran compiler. // The compiler installs its own signal handling function which is used // to capture interrupt and window close events. By default, if a program // which has called a NAG .NET library function is interrupted, you may see // an error message and stack trace produced by the Intel Fortran signal // handler routine. // // This program demonstrates some ways of modifying this behaviour to // avoid the error messages produced by the Intel handler, or to avoid // the Intel handler altogether by installing your own handler. // // The program makes a call of NAG function a00aa, then enters a loop // until a keyboard interrupt or window close event occurs. // // Compile and run the program, for example like this: // csc /reference:"C:\Program Files\NAG\DTW02\NagLibrary64.dll" nag_handler.cs // // Run the program passing a single argument: // nag_handler.exe n // where n is 0, 1, 2 or 3. // // n=0 means "do nothing", i.e. accept default signal handling behaviour // n=1 means "set environment variable to switch off stack trace" // n=2 means "set environment variable to switch off error message and stack trace" // n=3 means "install our own error handler to replace the Intel compiler handler" // // See // https://software.intel.com/en-us/node/510366 // for some environment variables that control behaviour of the Intel run-tme system. using System; using System.Runtime.InteropServices; using System.Threading; using NagLibrary; namespace TestTrapConsoleEvent { public class Program { static bool exitSystem = false; [DllImport("Kernel32")] private static extern bool SetConsoleCtrlHandler(EventHandler handler, bool add); private delegate bool EventHandler(CtrlType sig); static EventHandler myhandler; enum CtrlType { CTRL_C_EVENT = 0, CTRL_BREAK_EVENT = 1, CTRL_CLOSE_EVENT = 2, CTRL_LOGOFF_EVENT = 5, CTRL_SHUTDOWN_EVENT = 6 } private static bool Handler(CtrlType sig) { // Do any cleanup you like here // Set the global variable which allows the main program to finish exitSystem = true; return true; } static void Main(string[] args) { string todo; if (args.Length == 0) { Console.Write("Usage: "); Console.Write(System.AppDomain.CurrentDomain.FriendlyName); Console.WriteLine(" n"); Console.WriteLine(" where n = 0, 1, 2 or 3"); Console.WriteLine("Demonstrates different ways of dealing with Intel run-time error handler in the NAG .NET library"); } else { todo = args[0]; if (todo != "0" && todo != "1" && todo != "2" && todo != "3") { todo = "0"; } Console.WriteLine("--------------------------------------------------------------"); if (todo == "0") { Console.WriteLine("Using default error handling;"); Console.WriteLine("should see an error message and full stack trace."); } else if (todo == "1") { Console.WriteLine("Use environment variable FOR_DISABLE_STACK_TRACE;"); Console.WriteLine("should see an error message but no stack trace."); Environment.SetEnvironmentVariable("FOR_DISABLE_STACK_TRACE", "True"); } else if (todo == "2") { Console.WriteLine("Use environment variable FOR_DISABLE_DIAGNOSTIC_DISPLAY;"); Console.WriteLine("should see neither error message nor stack trace."); Environment.SetEnvironmentVariable("FOR_DISABLE_DIAGNOSTIC_DISPLAY", "True"); } else if (todo == "3") { Console.WriteLine("Install our own console interrupt handler;"); Console.WriteLine("should see neither error message nor stack trace."); } Console.WriteLine("--------------------------------------------------------------"); Console.WriteLine("First call a NAG routine - in this case A00.a00ac:"); bool gotlic = A00.a00ac(); if (gotlic) { Console.WriteLine(" A00.a00ac says that we have a NAG licence key"); } else { Console.WriteLine(" A00.a00ac says that we have no NAG licence key"); } if (todo == "3") { // Install the new event handler to override that installed by the // Intel compiler run-time library. This must be done after the // first call of the NAG .NET library myhandler = new EventHandler(Handler); SetConsoleCtrlHandler(myhandler, true); } Console.WriteLine(""); Console.WriteLine("Interrupt the program using CTRL-C or close the console window to finish:"); // Put the program into an infinite loop until interrupted while (!exitSystem) { Thread.Sleep(100); } } } } }