diff --git a/prec/psb_ddiagsc_bld.f90 b/prec/psb_ddiagsc_bld.f90
index bfb77ca9..01adb636 100644
--- a/prec/psb_ddiagsc_bld.f90
+++ b/prec/psb_ddiagsc_bld.f90
@@ -111,7 +111,7 @@ subroutine psb_ddiagsc_bld(a,desc_a,p,upd,info)
       call psb_errpush(info,name)
       goto 9999
     end if
-    call  psb_gelp('n',a%pl,p%d,desc_a,info)
+    call  psb_gelp('n',a%pl,p%d,info)
     if(info /= 0) then
       info=4010
       ch_err='psb_dgelp'
diff --git a/prec/psb_zdiagsc_bld.f90 b/prec/psb_zdiagsc_bld.f90
index b2ea4ed6..5abdefeb 100644
--- a/prec/psb_zdiagsc_bld.f90
+++ b/prec/psb_zdiagsc_bld.f90
@@ -106,7 +106,7 @@ subroutine psb_zdiagsc_bld(a,desc_a,p,upd,info)
       call psb_errpush(info,name)
       goto 9999
     end if
-    call  psb_gelp('n',a%pl,p%d,desc_a,info)
+    call  psb_gelp('n',a%pl,p%d,info)
     if(info /= 0) then
       info=4010
       ch_err='psb_zgelp'