used dp instead of E to initialize arrays

NLESC-JCER · Aug 5, 2019 · 0340832 · 0340832
1 parent 0fb2696
commit 0340832
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/davidson.f90 b/src/davidson.f90
@@ -513,8 +513,8 @@ end function fun_A_gemv
     real(dp), dimension(dim,1) :: tmp_array
 
     do ii = 1,dim
-      tmp_array = 0E0
-      tmp_array(ii,1) = 1.0
+      tmp_array = 0.0_dp
+      tmp_array(ii,1) = 1.0_dp
       tmp_array = fun_A_gemv(tmp_array)
       out(ii) = tmp_array(ii,1)
     end do