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

Fix for sizing on baseprecv(1)

Browse Source
psblas3-type-indexed
Salvatore Filippone 20 years ago
parent b2c6677591
commit 0a8c14b436
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File

6
src/prec/psb_dprec.f90
Unescape Escape View File

@ -628,7 +628,7 @@ subroutine psb_dmlprcaply(baseprecv,x,beta,y,desc_data,trans,work,info)
! !
t1 = mpi_wtime() t1 = mpi_wtime()
n_row = desc_data%matrix_data(psb_n_row_) n_row = desc_data%matrix_data(psb_n_row_)
n_col=desc_data%matrix_data(psb_n_col_) n_col = baseprecv(1)%desc_data%matrix_data(psb_n_col_)
call psb_dbaseprcaply(baseprecv(1),x,beta,y,desc_data,trans,work,info) call psb_dbaseprcaply(baseprecv(1),x,beta,y,desc_data,trans,work,info)
if(info /=0) goto 9999 if(info /=0) goto 9999
@ -717,7 +717,7 @@ subroutine psb_dmlprcaply(baseprecv,x,beta,y,desc_data,trans,work,info)
t1 = mpi_wtime() t1 = mpi_wtime()
n_row = desc_data%matrix_data(psb_n_row_) n_row = desc_data%matrix_data(psb_n_row_)
n_col = desc_data%matrix_data(psb_n_col_) n_col = baseprecv(1)%desc_data%matrix_data(psb_n_col_)
nr2l = baseprecv(2)%desc_data%matrix_data(psb_n_col_) nr2l = baseprecv(2)%desc_data%matrix_data(psb_n_col_)
nrg = baseprecv(2)%desc_data%matrix_data(psb_n_row_) nrg = baseprecv(2)%desc_data%matrix_data(psb_n_row_)
allocate(t2l(nr2l),w2l(nr2l),tx(n_col),ty(n_col)) allocate(t2l(nr2l),w2l(nr2l),tx(n_col),ty(n_col))
@ -806,7 +806,7 @@ subroutine psb_dmlprcaply(baseprecv,x,beta,y,desc_data,trans,work,info)
t1 = mpi_wtime() t1 = mpi_wtime()
n_row = desc_data%matrix_data(psb_n_row_) n_row = desc_data%matrix_data(psb_n_row_)
n_col=desc_data%matrix_data(psb_n_col_) n_col = baseprecv(1)%desc_data%matrix_data(psb_n_col_)
nr2l = baseprecv(2)%desc_data%matrix_data(psb_n_col_) nr2l = baseprecv(2)%desc_data%matrix_data(psb_n_col_)
nrg = baseprecv(2)%desc_data%matrix_data(psb_n_row_) nrg = baseprecv(2)%desc_data%matrix_data(psb_n_row_)
allocate(t2l(nr2l),w2l(nr2l),tx(n_col),ty(n_col),tty(n_col)) allocate(t2l(nr2l),w2l(nr2l),tx(n_col),ty(n_col),tty(n_col))

Write Preview
Loading…
Cancel
Save