diff --git a/src/prec/psb_dmlprc_bld.f90 b/src/prec/psb_dmlprc_bld.f90 index c3f900a8..1b6095d8 100644 --- 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)