*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 14 years ago
parent 5e4b52eb4e
commit a2a0f94d65

@ -60,55 +60,6 @@ subroutine psi_renum_index(iperm,idx,info)
end subroutine psi_renum_index end subroutine psi_renum_index
subroutine psi_renum_idxmap(nc,iperm,idxmap,info)
use psi_mod, psi_protect_name => psi_renum_idxmap
use psb_serial_mod
implicit none
integer, intent(out) :: info
integer, intent(in) :: nc,iperm(:)
type(psb_idxmap_type), intent(inout) :: idxmap
integer, allocatable :: itmp(:)
integer :: i,j,k,nh
if (nc > size(iperm)) then
info = psb_err_pivot_too_small_
return
endif
if (idxmap%state == psb_desc_large_) then
allocate(itmp(size(idxmap%loc_to_glob)), stat=i)
if (i /= 0) then
info = psb_err_internal_error_
return
end if
do i=1,nc
itmp(i) = idxmap%loc_to_glob(iperm(i))
end do
do i=1, size(idxmap%glb_lc,1)
idxmap%glb_lc(i,2) = iperm(idxmap%glb_lc(i,2))
end do
do i=1, nc
idxmap%loc_to_glob(i) = itmp(i)
end do
else
do i=1, nc
idxmap%glob_to_loc(idxmap%loc_to_glob(iperm(i))) = i
enddo
do i=1,size(idxmap%glob_to_loc)
j = idxmap%glob_to_loc(i)
if (j>0) then
idxmap%loc_to_glob(j) = i
endif
enddo
end if
end subroutine psi_renum_idxmap
subroutine psi_cnv_dsc(halo_in,ovrlap_in,ext_in,cdesc, info) subroutine psi_cnv_dsc(halo_in,ovrlap_in,ext_in,cdesc, info)
use psi_mod, psi_protect_name => psi_cnv_dsc use psi_mod, psi_protect_name => psi_cnv_dsc

Loading…
Cancel
Save