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

mld2p4-2:

Browse Source 
mlprec/impl/mld_ccprecset.F90
 mlprec/impl/mld_dcprecset.F90
 mlprec/impl/mld_scprecset.F90
 mlprec/impl/mld_zcprecset.F90

Revised CSETC
This commit is contained in:
Salvatore Filippone
2013-03-11 14:23:11 +00:00
parent 37d8c2763e
commit b35b914792
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_ccprecset.F90
+1 -1
View File
@@ -645,7 +645,7 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev)
if (val >=0) then
call p%set(what,val,info,ilev=ilev)
else
call p%precv(ilev_)%set(what,val,info)
call p%precv(ilev_)%set(what,string,info)
end if
end subroutine mld_ccprecsetc
mlprec/impl/mld_dcprecset.F90
+1 -1
View File
@@ -645,7 +645,7 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev)
if (val >=0) then
call p%set(what,val,info,ilev=ilev)
else
call p%precv(ilev_)%set(what,val,info)
call p%precv(ilev_)%set(what,string,info)
end if
end subroutine mld_dcprecsetc
mlprec/impl/mld_scprecset.F90
+1 -1
View File
@@ -645,7 +645,7 @@ subroutine mld_scprecsetc(p,what,string,info,ilev)
if (val >=0) then
call p%set(what,val,info,ilev=ilev)
else
call p%precv(ilev_)%set(what,val,info)
call p%precv(ilev_)%set(what,string,info)
end if
end subroutine mld_scprecsetc
mlprec/impl/mld_zcprecset.F90
+1 -1
View File
@@ -645,7 +645,7 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev)
if (val >=0) then
call p%set(what,val,info,ilev=ilev)
else
call p%precv(ilev_)%set(what,val,info)
call p%precv(ilev_)%set(what,string,info)
end if
end subroutine mld_zcprecsetc