Fixed stupid bug in GELP interfacing.

17 years ago · b512039f09
parent 28c3f90346
commit b512039f09
2 changed files with 2 additions and 2 deletions
--- 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'
--- 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'