fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-20 04:42:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed mld_ name glitch.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-10-19 13:13:16 +00:00
parent 4f610021e4
commit 4e91e8d2c6
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_dslu_bld.f90
+2 -2
View File
@@ -67,7 +67,7 @@ subroutine mld_dslu_bld(a,desc_a,p,info)
nzt = psb_sp_get_nnzeros(a)
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_)
call psb_barrier(ictxt)
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)
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/))
goto 9999
end if
mlprec/mld_dumf_bld.f90
+2 -2
View File
@@ -66,7 +66,7 @@ subroutine mld_dumf_bld(a,desc_a,p,info)
nzt = psb_sp_get_nnzeros(a)
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_)
open(80+me)
call psb_csprt(80+me,a)
@@ -81,7 +81,7 @@ subroutine mld_dumf_bld(a,desc_a,p,info)
if (info /= 0) then
i_err(1) = info
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
end if
mlprec/mld_zslu_bld.f90
+2 -2
View File
@@ -67,7 +67,7 @@ subroutine mld_zslu_bld(a,desc_a,p,info)
nzt = psb_sp_get_nnzeros(a)
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_)
call psb_barrier(ictxt)
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)
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/))
goto 9999
end if
mlprec/mld_zumf_bld.f90
+2 -2
View File
@@ -67,7 +67,7 @@ subroutine mld_zumf_bld(a,desc_a,p,info)
nzt = psb_sp_get_nnzeros(a)
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_)
open(80+me)
call psb_csprt(80+me,a)
@@ -82,7 +82,7 @@ subroutine mld_zumf_bld(a,desc_a,p,info)
if (info /= 0) then
i_err(1) = info
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
end if