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

mld2p4-2:

Browse Source 
mlprec/impl/mld_caggrmat_asb.f90
 mlprec/impl/mld_daggrmat_asb.f90
 mlprec/impl/mld_saggrmat_asb.f90
 mlprec/impl/mld_zaggrmat_asb.f90

Cosmetic fixes.
stopcriterion
Salvatore Filippone 12 years ago
parent 17935dec6e
commit 0134a48abb
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File

3
mlprec/impl/mld_caggrmat_asb.f90
Unescape Escape View File

@ -221,7 +221,8 @@ subroutine mld_caggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
if (info == psb_success_) call op_restr%mv_from(acoo) if (info == psb_success_) call op_restr%mv_from(acoo)
if (info == psb_success_) call op_restr%cscnv(info,type='csr') if (info == psb_success_) call op_restr%cscnv(info,type='csr')
if(info /= psb_success_) then if(info /= psb_success_) then
call psb_errpush(psb_err_internal_error_,name,a_err='Converting op_restr to local') call psb_errpush(psb_err_internal_error_,name,&
& a_err='Converting op_restr to local')
goto 9999 goto 9999
end if end if
end if end if

3
mlprec/impl/mld_daggrmat_asb.f90
Unescape Escape View File

@ -221,7 +221,8 @@ subroutine mld_daggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
if (info == psb_success_) call op_restr%mv_from(acoo) if (info == psb_success_) call op_restr%mv_from(acoo)
if (info == psb_success_) call op_restr%cscnv(info,type='csr') if (info == psb_success_) call op_restr%cscnv(info,type='csr')
if(info /= psb_success_) then if(info /= psb_success_) then
call psb_errpush(psb_err_internal_error_,name,a_err='Converting op_restr to local') call psb_errpush(psb_err_internal_error_,name,&
& a_err='Converting op_restr to local')
goto 9999 goto 9999
end if end if
end if end if

3
mlprec/impl/mld_saggrmat_asb.f90
Unescape Escape View File

@ -221,7 +221,8 @@ subroutine mld_saggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
if (info == psb_success_) call op_restr%mv_from(acoo) if (info == psb_success_) call op_restr%mv_from(acoo)
if (info == psb_success_) call op_restr%cscnv(info,type='csr') if (info == psb_success_) call op_restr%cscnv(info,type='csr')
if(info /= psb_success_) then if(info /= psb_success_) then
call psb_errpush(psb_err_internal_error_,name,a_err='Converting op_restr to local') call psb_errpush(psb_err_internal_error_,name,&
& a_err='Converting op_restr to local')
goto 9999 goto 9999
end if end if
end if end if

3
mlprec/impl/mld_zaggrmat_asb.f90
Unescape Escape View File

@ -221,7 +221,8 @@ subroutine mld_zaggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
if (info == psb_success_) call op_restr%mv_from(acoo) if (info == psb_success_) call op_restr%mv_from(acoo)
if (info == psb_success_) call op_restr%cscnv(info,type='csr') if (info == psb_success_) call op_restr%cscnv(info,type='csr')
if(info /= psb_success_) then if(info /= psb_success_) then
call psb_errpush(psb_err_internal_error_,name,a_err='Converting op_restr to local') call psb_errpush(psb_err_internal_error_,name,&
& a_err='Converting op_restr to local')
goto 9999 goto 9999
end if end if
end if end if

Write Preview
Loading…
Cancel
Save