change value of Wter

2025-10-09 17:40:33 +02:00 · 2025-10-09 17:40:33 +02:00 · b23f225ec8
parent e747afbd40
commit b23f225ec8
1 changed files with 1 additions and 1 deletions
--- 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)