From 6a0d3367e0b314d6c947950f7c3193be3d9d1465 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 18 Feb 2021 15:25:26 -0500 Subject: Set tuning to native since this build machine is pretty old. Added placeholder for DPI call on Windows. Removed unused connection variable in main. --- gemini-windows.prj | 9 ++++----- 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", diff --git a/main.F90 b/main.F90 index 7d9206e..84fca57 100644 --- a/main.F90 +++ b/main.F90 @@ -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 -- cgit v1.2.3