psblas3:

base/modules/psb_desc_type.f90
 prec/psb_d_prec_type.f90

Interfaces in desc_type did not go well with NAG compiler.
Reverted change in apply1v, as it was not the cause of the problem
experienced earlier today.

base/modules/psb_desc_type.f90

@@ -230,30 +230,30 @@ module psb_descriptor_type
     module procedure psb_cd_sizeof
   end interface psb_sizeof
 
-  interface psb_is_ok_desc
-    module procedure psb_is_ok_desc
-  end interface psb_is_ok_desc
-
-  interface psb_is_valid_desc
-    module procedure psb_is_valid_desc
-  end interface psb_is_valid_desc
-
-  interface psb_is_asb_desc
-    module procedure psb_is_asb_desc
-  end interface psb_is_asb_desc
-
-  interface psb_is_upd_desc
-    module procedure psb_is_upd_desc
-  end interface psb_is_upd_desc
-
-  interface psb_is_ovl_desc
-    module procedure psb_is_ovl_desc
-  end interface psb_is_ovl_desc
-
-  interface psb_is_bld_desc
-    module procedure psb_is_bld_desc
-  end interface psb_is_bld_desc
-
+!!$  interface psb_is_ok_desc
+!!$    module procedure psb_is_ok_desc
+!!$  end interface psb_is_ok_desc
+!!$
+!!$  interface psb_is_valid_desc
+!!$    module procedure psb_is_valid_desc
+!!$  end interface psb_is_valid_desc
+!!$
+!!$  interface psb_is_asb_desc
+!!$    module procedure psb_is_asb_desc
+!!$  end interface psb_is_asb_desc
+!!$
+!!$  interface psb_is_upd_desc
+!!$    module procedure psb_is_upd_desc
+!!$  end interface psb_is_upd_desc
+!!$
+!!$  interface psb_is_ovl_desc
+!!$    module procedure psb_is_ovl_desc
+!!$  end interface psb_is_ovl_desc
+!!$
+!!$  interface psb_is_bld_desc
+!!$    module procedure psb_is_bld_desc
+!!$  end interface psb_is_bld_desc
+!!$
 
   interface psb_move_alloc
     module procedure psb_cdtransfer

prec/psb_d_prec_type.f90

@@ -243,14 +243,13 @@ contains
 
   end subroutine d_apply2v
 
-  subroutine d_apply1v(prec,x,desc_data,info,trans,work)
+  subroutine d_apply1v(prec,x,desc_data,info,trans)
     use psb_base_mod
     type(psb_desc_type),intent(in)    :: desc_data
     class(psb_dprec_type), intent(in) :: prec
     real(psb_dpk_),intent(inout)      :: x(:)
     integer, intent(out)              :: info
     character(len=1), optional        :: trans
-    real(psb_dpk_),intent(inout), optional, target :: work(:)
 
     character     :: trans_
     integer :: ictxt,np,me, err_act