Mumps: use izero instead of 0 in calling sequence

mlprec/impl/solver/mld_c_mumps_solver_apply.F90

@@ -107,7 +107,7 @@ subroutine c_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
            & a_err='complex(psb_spk_)')
       goto 9999      
     end if
-    call psb_gather(gx, x, desc_data, info, root=0)
+    call psb_gather(gx, x, desc_data, info, root=izero)
   else
       info=psb_err_internal_error_
       call psb_errpush(info,name,& 

mlprec/impl/solver/mld_d_mumps_solver_apply.F90

@@ -107,7 +107,7 @@ subroutine d_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
            & a_err='real(psb_dpk_)')
       goto 9999      
     end if
-    call psb_gather(gx, x, desc_data, info, root=0)
+    call psb_gather(gx, x, desc_data, info, root=izero)
   else
       info=psb_err_internal_error_
       call psb_errpush(info,name,& 

mlprec/impl/solver/mld_s_mumps_solver_apply.F90

@@ -107,7 +107,7 @@ subroutine s_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
            & a_err='real(psb_spk_)')
       goto 9999      
     end if
-    call psb_gather(gx, x, desc_data, info, root=0)
+    call psb_gather(gx, x, desc_data, info, root=izero)
   else
       info=psb_err_internal_error_
       call psb_errpush(info,name,& 

mlprec/impl/solver/mld_z_mumps_solver_apply.F90

@@ -107,7 +107,7 @@ subroutine z_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
            & a_err='complex(psb_dpk_)')
       goto 9999      
     end if
-    call psb_gather(gx, x, desc_data, info, root=0)
+    call psb_gather(gx, x, desc_data, info, root=izero)
   else
       info=psb_err_internal_error_
       call psb_errpush(info,name,&