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

Bugfix in chase

parent 1e7741d5
...@@ -71,12 +71,12 @@ IMPLICIT NONE ...@@ -71,12 +71,12 @@ IMPLICIT NONE
PRIVATE PRIVATE
INTEGER :: chase_eig_id INTEGER :: chase_eig_id
PUBLIC init_chase, chase_diag PUBLIC init_chase
#endif #endif
REAL :: scale_distance REAL :: scale_distance
REAL :: tol REAL :: tol
PUBLIC chase_distance PUBLIC chase_distance,chase_diag
CONTAINS 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