fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/internals/psi_idx_cnv.f90
 base/internals/psi_idx_ins_cnv.f90

Do not copy & call in-place version.
psblas-testmv
Salvatore Filippone 11 years ago
parent 25b555e317
commit 8907c096e7
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File

5
base/internals/psi_idx_cnv.f90
Unescape Escape View File

@ -240,8 +240,9 @@ subroutine psi_idx_cnv2(nv,idxin,idxout,desc,info,mask,owned)
goto 9999 goto 9999
end if end if
idxout(1:nv) = idxin(1:nv) !!$ idxout(1:nv) = idxin(1:nv)
call psi_idx_cnv1(nv,idxout,desc,info,mask=mask,owned=owned) !!$ call psi_idx_cnv1(nv,idxout,desc,info,mask=mask,owned=owned)
call desc%indxmap%g2l(idxin(1:nv),idxout(1:nv),info,mask=mask,owned=owned)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

5
base/internals/psi_idx_ins_cnv.f90
Unescape Escape View File

@ -245,8 +245,9 @@ subroutine psi_idx_ins_cnv2(nv,idxin,idxout,desc,info,mask,lidx)
goto 9999 goto 9999
end if end if
idxout(1:nv) = idxin(1:nv) !!$ idxout(1:nv) = idxin(1:nv)
call psi_idx_ins_cnv(nv,idxout,desc,info,mask=mask,lidx=lidx) !!$ call psi_idx_ins_cnv(nv,idxout,desc,info,mask=mask,lidx=lidx)
call desc%indxmap%g2l_ins(idxin(1:nv),idxout(1:nv),info,mask=mask,lidx=lidx)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

Write Preview
Loading…
Cancel
Save