added error check on subroutines entry point

src/comm/psb_dgather.f90

@@ -39,6 +39,7 @@ subroutine  psb_dgatherm(globx, locx, desc_a, info, iroot,&
   character(len=20)        :: name, ch_err
 
   name='psb_dgatherm'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)
 
@@ -213,6 +214,7 @@ subroutine  psb_dgatherv(globx, locx, desc_a, info, iroot,&
   character(len=20)        :: name, ch_err
 
   name='psb_dgatherv'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)
 

src/comm/psb_dhalo.f90

@@ -40,6 +40,7 @@ subroutine  psb_dhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode)
   character(len=20)        :: name, ch_err
 
   name='psb_dhalom'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)
 
@@ -220,6 +221,7 @@ subroutine  psb_dhalov(x,desc_a,info,alpha,work,tran,mode)
   character(len=20)        :: name, ch_err
 
   name='psb_dhalov'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)
 

src/comm/psb_dovrl.f90

@@ -38,6 +38,7 @@ subroutine  psb_dovrlm(x,desc_a,info,jx,ik,work,choice,update_type)
   character(len=20)        :: name, ch_err
 
   name='psb_dovrlm'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)
 
@@ -230,6 +231,7 @@ subroutine  psb_dovrlv(x,desc_a,info,work,choice,update_type)
   character(len=20)        :: name, ch_err
 
   name='psb_dovrlv'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)
 

src/comm/psb_dscatter.f90

@@ -46,6 +46,7 @@ subroutine  psb_dscatterm(globx, locx, desc_a, info, iroot,&
   character(len=20)        :: name, ch_err
 
   name='psb_scatterm'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)
 
@@ -264,6 +265,7 @@ subroutine  psb_dscatterv(globx, locx, desc_a, info, iroot)
   character(len=20)        :: name, ch_err
 
   name='psb_scatterv'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)
 

src/comm/psb_ihalo.f90

@@ -41,6 +41,7 @@ subroutine  psb_ihalom(x,desc_a,info,alpha,jx,ik,work,tran,mode)
   character(len=20)        :: name, ch_err
 
   name='psb_ihalom'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)
 
@@ -216,6 +217,7 @@ subroutine  psb_ihalov(x,desc_a,info,alpha,work,tran,mode)
   character(len=20)        :: name, ch_err
 
   name='psb_ihalov'
+  if(psb_get_errstatus().ne.0) return 
   info=0
   call psb_erractionsave(err_act)