Conditional compilation with LPK8; will need a better long term soluton.

mlprec/mld_d_sludist_solver.F90

@@ -52,7 +52,7 @@ module mld_d_sludist_solver
   use iso_c_binding
   use mld_d_base_solver_mod
 
-#if defined(LONG_INTEGERS)
+#if defined(LPK8)
 
   type, extends(mld_d_base_solver_type) :: mld_d_sludist_solver_type
 
@@ -167,7 +167,7 @@ contains
       allocate(ww(n_col),stat=info)
       if (info /= psb_success_) then 
         info=psb_err_alloc_request_
-        call psb_errpush(info,name,i_err=(/n_col,0,0,0,0/),&
+        call psb_errpush(info,name,i_err=(/n_col/),&
              & a_err='real(psb_dpk_)')
         goto 9999      
       end if

mlprec/mld_z_sludist_solver.F90

@@ -52,7 +52,7 @@ module mld_z_sludist_solver
   use iso_c_binding
   use mld_z_base_solver_mod
 
-#if defined(LONG_INTEGERS)
+#if defined(LPK8)
 
   type, extends(mld_z_base_solver_type) :: mld_z_sludist_solver_type
 
@@ -167,7 +167,7 @@ contains
       allocate(ww(n_col),stat=info)
       if (info /= psb_success_) then 
         info=psb_err_alloc_request_
-        call psb_errpush(info,name,i_err=(/n_col,0,0,0,0/),&
+        call psb_errpush(info,name,i_err=(/n_col/),&
              & a_err='complex(psb_dpk_)')
         goto 9999      
       end if