Commit fc357051 authored by Andreas Marek's avatar Andreas Marek
Browse files

Typo corrected

parent 860222c6
...@@ -140,8 +140,8 @@ module test_analytic ...@@ -140,8 +140,8 @@ module test_analytic
#else #else
glob_max_z_diff = max_z_diff glob_max_z_diff = max_z_diff
#endif #endif
if(myid == 0) print *, 'Maximal error in eigenvalues :', max_ev_diff if(myid == 0) print *, 'Maximum error in eigenvalues :', max_ev_diff
if(myid == 0) print *, 'Maximal error in eigenvectors :', glob_max_z_diff if(myid == 0) print *, 'Maximum error in eigenvectors :', glob_max_z_diff
status = 0 status = 0
if (max_ev_diff .gt. 5e-14_rk8 .or. max_ev_diff .eq. ZERO) status = 1 if (max_ev_diff .gt. 5e-14_rk8 .or. max_ev_diff .eq. ZERO) status = 1
if (glob_max_z_diff .gt. 6e-11_rk8 .or. glob_max_z_diff .eq. ZERO) status = 1 if (glob_max_z_diff .gt. 6e-11_rk8 .or. glob_max_z_diff .eq. ZERO) status = 1
......
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