diff --git a/successive_overlap.f b/successive_overlap.f
index d899ffff6aebb8fe9c4b453c97f41218ba0bce17..e79ad70ad714434cdd3ea52f7a5c9f35b09be640 100644
--- a/successive_overlap.f
+++ b/successive_overlap.f
@@ -25,6 +25,7 @@ contains
     integer, intent(in):: j, k
 
     ! Local:
+    
     integer i1, i1_lon, i1_lat, m, l, i2
     type(polyline) polyline_1, polyline_2
     type(polygon) res_pol
diff --git a/weight.f b/weight.f
index a4b20f162eef152e87322d8dece04cb457697ec5..90daf23edd5f0580c190420293007a122638041d 100644
--- a/weight.f
+++ b/weight.f
@@ -29,13 +29,13 @@ contains
     ! a quiet NaN, and then the result is a quiet NaN.
 
     use derived_types, only: eddy
-    use nr_util, only: pi
+    use nr_util, only: pi, twopi
 
     type(eddy), intent(in):: e
 
     ! Local:
 
-    real, parameter:: omega = 2 * pi / 86164.
+    real, parameter:: omega = twopi / 86164.
     ! angular speed of rotation of the Earth, in rad s-1
 
     real radius ! of the disk of same area