Update mouse_handler.f90

improved PI
jchelly · Dec 24, 2022 · 7786ac3 · 7786ac3
1 parent ddc6cd2
commit 7786ac3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/main/src/mouse_handler.f90 b/main/src/mouse_handler.f90
@@ -26,7 +26,8 @@ module mouse_handler
 
   ! Rotation speed in radians per pixel
   real(kind=pos_kind), parameter :: rot_fac = &
-  real(1.0*3.141592659_real8byte/180.0, kind=pos_kind)
+  real(1.0*3.14159265358979_real8byte/180.0, &
+  kind=pos_kind)
 
   ! Zoom speed
   real(kind=pos_kind), parameter :: zm_fac  = 1.05_pos_kind