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

mld2p4-2:

Browse Source 
mlprec/mld_c_prec_type.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_z_prec_type.f90

When nlev=1 make sure to start dump from 1.
This commit is contained in:
Salvatore Filippone
2012-03-26 15:32:46 +00:00
parent 534abb9345
commit f48e9487b5
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_c_prec_type.f90
+1 -1
View File
@@ -565,7 +565,7 @@ contains
if (present(istart)) then
il1 = max(1,istart)
else
il1 = 2
il1 = min(2,iln)
end if
if (present(iend)) then
iln = min(iln, iend)
mlprec/mld_d_prec_type.f90
+1 -1
View File
@@ -565,7 +565,7 @@ contains
if (present(istart)) then
il1 = max(1,istart)
else
il1 = 2
il1 = min(2,iln)
end if
if (present(iend)) then
iln = min(iln, iend)
mlprec/mld_s_prec_type.f90
+1 -1
View File
@@ -565,7 +565,7 @@ contains
if (present(istart)) then
il1 = max(1,istart)
else
il1 = 2
il1 = min(2,iln)
end if
if (present(iend)) then
iln = min(iln, iend)
mlprec/mld_z_prec_type.f90
+1 -1
View File
@@ -565,7 +565,7 @@ contains
if (present(istart)) then
il1 = max(1,istart)
else
il1 = 2
il1 = min(2,iln)
end if
if (present(iend)) then
iln = min(iln, iend)