diff --git a/src/error.f b/src/error.f
index b8c391f..8080a88 100644
--- a/src/error.f
+++ b/src/error.f
@@ -101,7 +101,7 @@
             endif 
       enddo  
       pat_out=pat_out
-      wterr = 1.0d0 
+      !wterr = 1.0d0 
 
       contains
       double precision function wdamp(dE)