psblas3:

base/serial/f03/psb_c_coo_impl.f03
 base/serial/f03/psb_d_coo_impl.f03
 base/serial/f03/psb_s_coo_impl.f03
 base/serial/f03/psb_z_coo_impl.f03

Added return code from inner_fix_coo.

base/serial/f03/psb_c_coo_impl.f03

@@ -3090,7 +3090,7 @@ subroutine psb_c_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
       enddo
     case default
       write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
-
+      info =-7
     end select
 
 
@@ -3174,6 +3174,7 @@ subroutine psb_c_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
       enddo
     case default
       write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
+      info =-7
     end select
     if (debug_level >= psb_debug_serial_)&
          & write(debug_unit,*)  trim(name),': end second loop'

base/serial/f03/psb_d_coo_impl.f03

@@ -3136,7 +3136,7 @@ subroutine psb_d_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
       enddo
     case default
       write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
-
+      info =-7
     end select
 
 
@@ -3220,6 +3220,7 @@ subroutine psb_d_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
       enddo
     case default
       write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
+      info =-7
     end select
     if (debug_level >= psb_debug_serial_)&
          & write(debug_unit,*)  trim(name),': end second loop'

base/serial/f03/psb_s_coo_impl.f03

@@ -2889,7 +2889,7 @@ subroutine psb_s_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
       enddo
     case default
       write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
-
+      info =-7
     end select
 
 
@@ -2973,6 +2973,7 @@ subroutine psb_s_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
       enddo
     case default
       write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
+      info =-7
     end select
     if (debug_level >= psb_debug_serial_)&
          & write(debug_unit,*)  trim(name),': end second loop'

base/serial/f03/psb_z_coo_impl.f03

@@ -3089,7 +3089,7 @@ subroutine psb_z_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
       enddo
     case default
       write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
-
+      info =-7
     end select
 
 
@@ -3173,6 +3173,7 @@ subroutine psb_z_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
       enddo
     case default
       write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
+      info =-7
     end select
     if (debug_level >= psb_debug_serial_)&
          & write(debug_unit,*)  trim(name),': end second loop'