Early return in mlprec-aply

mlprec/impl/mld_dmlprec_aply.f90

@@ -388,6 +388,13 @@ contains
     ictxt = p%precv(level)%base_desc%get_context()
     call psb_info(ictxt, me, np)
 
+    if (me < 0) then
+      ! This might happen when remapping coarse matrix
+      write(0,*) me,' Early exit from recursion'
+      call psb_erractionrestore(err_act)
+      return
+    end if
+
     if(debug_level > 1) then
       write(debug_unit,*) me,' Start inner_ml_aply at level ',level, info
     end if