--- trunk/misc/coefpoly.f	2018/02/05 10:39:38	254
+++ 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