Merge branch 'iterative' of https://github.com/jalvesz/stdlib into iterative

Author: jalvesz

example/linalg/example_solve_custom.f90

@@ -134,8 +134,8 @@ program example_solve_custom
     x = 0._dp
     rhs = dble( [0,0,5,0,0] )
 
-    dirichlet = .false._1 
-    dirichlet([1,5]) = .true._1
+    dirichlet = .false._int8
+    dirichlet([1,5]) = .true._int8
 
     call stdlib_solve_pcg_custom(laplacian_csr, rhs, x, rtol=1.d-6, di=dirichlet)
     print *, x !> solution: [0.0, 2.5, 5.0, 2.5, 0.0]

src/stdlib_linalg_iterative_solvers_pcg.fypp

@@ -149,7 +149,7 @@ contains
         if(present(di))then
             di_ => di
         else 
-            allocate(di_(n),source=.false._1)
+            allocate(di_(n),source=.false._int8)
         end if
 
         ! workspace for the solver