diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2021-02-18 15:25:26 -0500 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2021-02-18 15:25:26 -0500 |
| commit | 6a0d3367e0b314d6c947950f7c3193be3d9d1465 (patch) | |
| tree | 25bf0dd32e17d2dab9feb6be8bb8d2a40d8b341f | |
| parent | 2499f1720602a9010f4618f0b686f077febbdf55 (diff) | |
| download | LR-87-6a0d3367e0b314d6c947950f7c3193be3d9d1465.tar.gz LR-87-6a0d3367e0b314d6c947950f7c3193be3d9d1465.zip | |
Set tuning to native since this build machine is pretty old. Added placeholder for DPI call on Windows. Removed unused connection variable in main.
| -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 |