Taken out double init of baseprec%av(:).

19 years ago · fb11458b98
parent 9b586cf1e2
commit fb11458b98
1 changed files with 0 additions and 8 deletions
--- a/src/prec/psb_dmlprc_bld.f90
+++ b/src/prec/psb_dmlprc_bld.f90
@ -136,14 +136,6 @@ subroutine psb_dmlprc_bld(a,desc_a,p,info)
  p%aorig => a
  allocate(p%av(max_avsz),stat=info)
  if (info /= 0) then 
    call psb_errpush(4010,name,a_err='Allocate')
    goto 9999      
  end if
  do i=1, size(p%av)
    call psb_nullify_sp(p%av(i))
  end do
  nullify(p%d)