--- trunk/Sources/misc/coefpoly.f	2015/06/18 12:23:44	149
+++ trunk/misc/coefpoly.f	2018/07/12 14:49:20	276
@@ -2,7 +2,7 @@
 
   IMPLICIT NONE
 
-  DOUBLE PRECISION a0, a1, a2, a3
+  DOUBLE PRECISION, protected:: a0, a1, a2, a3
 
 contains