change value of Wter

This commit is contained in:
jean paul nshuti 2025-10-09 17:40:33 +02:00
parent e747afbd40
commit b23f225ec8
1 changed files with 1 additions and 1 deletions

View File

@ -101,7 +101,7 @@
endif endif
enddo enddo
pat_out=pat_out pat_out=pat_out
wterr = 1.0d0 !wterr = 1.0d0
contains contains
double precision function wdamp(dE) double precision function wdamp(dE)