Commit 149f5353 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix in chase

parent 1e7741d5
......@@ -71,12 +71,12 @@ IMPLICIT NONE
PRIVATE
INTEGER :: chase_eig_id
PUBLIC init_chase, chase_diag
PUBLIC init_chase
#endif
REAL :: scale_distance
REAL :: tol
PUBLIC chase_distance
PUBLIC chase_distance,chase_diag
CONTAINS
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment