From fb11458b98a98b1fa4bc5df517899bf506d33dda Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 10 Mar 2006 12:34:24 +0000
Subject: [PATCH] Taken out double init of baseprec%av(:).

---
 src/prec/psb_dmlprc_bld.f90 | 8 --------
 1 file changed, 8 deletions(-)

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)