*** empty log message ***

psblas3-type-indexed
Alfredo Buttari 19 years ago
parent 8c82169764
commit 59dbb18a52

@ -34,6 +34,7 @@ Contains
if(psb_get_errstatus().ne.0) return if(psb_get_errstatus().ne.0) return
info=0 info=0
if (associated(rrax)) then if (associated(rrax)) then
<<<<<<< psb_realloc_mod.f90
dim=size(rrax) dim=size(rrax)
If (dim /= len) Then If (dim /= len) Then
Allocate(tmp(len),stat=info) Allocate(tmp(len),stat=info)
@ -42,7 +43,6 @@ Contains
call psb_errpush(err,name) call psb_errpush(err,name)
goto 9999 goto 9999
end if end if
!!$ write(0,*) 'IA: copying ',len,dim
if (.true.) then if (.true.) then
do i=1, min(len,dim) do i=1, min(len,dim)
tmp(i)=rrax(i) tmp(i)=rrax(i)
@ -50,7 +50,6 @@ Contains
else else
tmp(1:min(len,dim))=rrax(1:min(len,dim)) tmp(1:min(len,dim))=rrax(1:min(len,dim))
end if end if
!!$ write(0,*) 'IA: copying done'
Deallocate(rrax,stat=info) Deallocate(rrax,stat=info)
if (info /= 0) then if (info /= 0) then
err=4000 err=4000
@ -60,6 +59,15 @@ Contains
rrax=>tmp rrax=>tmp
End If End If
else else
allocate(rrax(len),stat=info)
if (info /= 0) then
err=4000
call psb_errpush(err,name)
goto 9999
end if
rrax=>tmp
End If
else
!!$ write(0,*) 'IA: allocating ',len !!$ write(0,*) 'IA: allocating ',len
allocate(rrax(len),stat=info) allocate(rrax(len),stat=info)
if (info /= 0) then if (info /= 0) then
@ -69,7 +77,6 @@ Contains
end if end if
endif endif
if (present(pad)) then if (present(pad)) then
!!$ write(0,*) 'IA: padding'
rrax(dim+1:len) = pad rrax(dim+1:len) = pad
endif endif

Loading…
Cancel
Save