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

Fixed mld_ name glitch.

Browse Source
stopcriterion
Salvatore Filippone 17 years ago
parent 4f610021e4
commit 4e91e8d2c6
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
mlprec/mld_dslu_bld.f90
Unescape Escape View File

@ -67,7 +67,7 @@ subroutine mld_dslu_bld(a,desc_a,p,info)
nzt = psb_sp_get_nnzeros(a) nzt = psb_sp_get_nnzeros(a)
if (Debug) then if (Debug) then
write(0,*) me,'Calling psb_mld_slu_factor ',nzt,a%m,& write(0,*) me,'Calling mld_slu_factor ',nzt,a%m,&
& a%k,p%desc_data%matrix_data(psb_n_row_) & a%k,p%desc_data%matrix_data(psb_n_row_)
call psb_barrier(ictxt) call psb_barrier(ictxt)
endif endif
@ -76,7 +76,7 @@ subroutine mld_dslu_bld(a,desc_a,p,info)
& a%aspk,a%ia2,a%ia1,p%iprcparm(mld_slu_ptr_),info) & a%aspk,a%ia2,a%ia1,p%iprcparm(mld_slu_ptr_),info)
if (info /= 0) then if (info /= 0) then
ch_err='psb_mld_slu_fact' ch_err='mld_slu_fact'
call psb_errpush(4110,name,a_err=ch_err,i_err=(/info,0,0,0,0/)) call psb_errpush(4110,name,a_err=ch_err,i_err=(/info,0,0,0,0/))
goto 9999 goto 9999
end if end if

4
mlprec/mld_dumf_bld.f90
Unescape Escape View File

@ -66,7 +66,7 @@ subroutine mld_dumf_bld(a,desc_a,p,info)
nzt = psb_sp_get_nnzeros(a) nzt = psb_sp_get_nnzeros(a)
if (Debug) then if (Debug) then
write(0,*) me,'Calling psb_mld_umf_factor ',nzt,a%m,& write(0,*) me,'Calling mld_umf_factor ',nzt,a%m,&
& a%k,p%desc_data%matrix_data(psb_n_row_) & a%k,p%desc_data%matrix_data(psb_n_row_)
open(80+me) open(80+me)
call psb_csprt(80+me,a) call psb_csprt(80+me,a)
@ -81,7 +81,7 @@ subroutine mld_dumf_bld(a,desc_a,p,info)
if (info /= 0) then if (info /= 0) then
i_err(1) = info i_err(1) = info
info=4110 info=4110
call psb_errpush(info,name,a_err='psb_mld_umf_fact',i_err=i_err) call psb_errpush(info,name,a_err='mld_umf_fact',i_err=i_err)
goto 9999 goto 9999
end if end if

4
mlprec/mld_zslu_bld.f90
Unescape Escape View File

@ -67,7 +67,7 @@ subroutine mld_zslu_bld(a,desc_a,p,info)
nzt = psb_sp_get_nnzeros(a) nzt = psb_sp_get_nnzeros(a)
if (Debug) then if (Debug) then
write(0,*) me,'Calling psb_mld_slu_factor ',nzt,a%m,& write(0,*) me,'Calling mld_slu_factor ',nzt,a%m,&
& a%k,p%desc_data%matrix_data(psb_n_row_) & a%k,p%desc_data%matrix_data(psb_n_row_)
call psb_barrier(ictxt) call psb_barrier(ictxt)
endif endif
@ -76,7 +76,7 @@ subroutine mld_zslu_bld(a,desc_a,p,info)
& a%aspk,a%ia2,a%ia1,p%iprcparm(mld_slu_ptr_),info) & a%aspk,a%ia2,a%ia1,p%iprcparm(mld_slu_ptr_),info)
if (info /= 0) then if (info /= 0) then
ch_err='psb_mld_slu_fact' ch_err='mld_slu_fact'
call psb_errpush(4110,name,a_err=ch_err,i_err=(/info,0,0,0,0/)) call psb_errpush(4110,name,a_err=ch_err,i_err=(/info,0,0,0,0/))
goto 9999 goto 9999
end if end if

4
mlprec/mld_zumf_bld.f90
Unescape Escape View File

@ -67,7 +67,7 @@ subroutine mld_zumf_bld(a,desc_a,p,info)
nzt = psb_sp_get_nnzeros(a) nzt = psb_sp_get_nnzeros(a)
if (Debug) then if (Debug) then
write(0,*) me,'Calling psb_mld_umf_factor ',nzt,a%m,& write(0,*) me,'Calling mld_umf_factor ',nzt,a%m,&
& a%k,p%desc_data%matrix_data(psb_n_row_) & a%k,p%desc_data%matrix_data(psb_n_row_)
open(80+me) open(80+me)
call psb_csprt(80+me,a) call psb_csprt(80+me,a)
@ -82,7 +82,7 @@ subroutine mld_zumf_bld(a,desc_a,p,info)
if (info /= 0) then if (info /= 0) then
i_err(1) = info i_err(1) = info
info=4110 info=4110
call psb_errpush(info,name,a_err='psb_mld_umf_fact',i_err=i_err) call psb_errpush(info,name,a_err='mld_umf_fact',i_err=i_err)
goto 9999 goto 9999
end if end if

Write Preview
Loading…
Cancel
Save