aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gemini-windows.prj9
-rw-r--r--main.F906
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