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

2026-10-16 02:49:03 +00:00 · 2006-03-10 12:34:24 +00:00
parent 9b586cf1e2
commit fb11458b98
1 changed files with 0 additions and 8 deletions
@@ -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)