change value of Wter
This commit is contained in:
parent
e747afbd40
commit
b23f225ec8
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue