diff options
| -rw-r--r-- | gemini-windows.prj | 9 | ||||
| -rw-r--r-- | main.F90 | 6 |
2 files changed, 9 insertions, 6 deletions
diff --git a/gemini-windows.prj b/gemini-windows.prj index f84b768..d9d673a 100644 --- a/gemini-windows.prj +++ b/gemini-windows.prj @@ -125,6 +125,7 @@ "Fortran Options":{ "Use C Preprocessor":"false", "Runtime Diagnostics":"false", + "Floating Point Exception Trap":0, "Cray Pointers":"false", "Enable Coarrays":"false", "Enable OpenMP":"false", @@ -133,22 +134,20 @@ }, "Code Generation Options":{ "CPU Specific":"false", - "Processor":"generic", + "Processor":"native", "Aggressive Loops":"true", "Debugging":"false", "Optimization Mode":2, - "Floating Point Trap":"false", "Profiling":"false" }, "Build Dependencies":1, "Launch Options":{ - "Build Before Launch":"true", "Working Directory":"", "Launch Using MPI":"false", "Keep Console":"true", - "Executable":"", + "External Console":"false", "Command Line Arguments":"", - "External Console":"false" + "Build Before Launch":"true" }, "Build Options":{ "Makefile":"Makefile", @@ -26,6 +26,7 @@ use request #ifdef WINDOWS_GUI use ag_render, only: appgraphics_renderer use ag_binary, only: appgraphics_binary_handler +use appgraphics, only: setapplicationdpiaware #else !use sdl_render use dumb_render @@ -51,7 +52,6 @@ implicit none character(256)::initial_site character(1024)::current_url, desired_url, input - type(connection)::conn #ifdef WINDOWS_GUI type(appgraphics_renderer)::r @@ -79,6 +79,10 @@ implicit none #ifdef WINDOWS call windows_network_startup() #endif + +#ifdef WINDOWS_GUI + !call setapplicationdpiaware() +#endif if(command_argument_count() > 0) then |