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:

Browse Source 
Fixed warning message in multilevel reallocation.
This commit is contained in:
Salvatore Filippone
2009-01-14 09:44:01 +00:00
parent f3e4486de2
commit 4de41865e8
4 changed files with 4 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_cprecbld.f90
+1 -3
View File
@@ -240,9 +240,7 @@ subroutine mld_cprecbld(a,desc_a,p,info)
& newsz
write(debug_unit,*) trim(name),&
&': to level ',&
& iszv
write(debug_unit,*) trim(name),&
&': coincide.'
& iszv,' coincide.'
write(debug_unit,*) trim(name),&
&': Number of levels actually used :',newsz
write(debug_unit,*)
mlprec/mld_dprecbld.f90
+1 -3
View File
@@ -240,9 +240,7 @@ subroutine mld_dprecbld(a,desc_a,p,info)
& newsz
write(debug_unit,*) trim(name),&
&': to level ',&
& iszv
write(debug_unit,*) trim(name),&
&': coincide.'
& iszv,' coincide.'
write(debug_unit,*) trim(name),&
&': Number of levels actually used :',newsz
write(debug_unit,*)
mlprec/mld_sprecbld.f90
+1 -3
View File
@@ -240,9 +240,7 @@ subroutine mld_sprecbld(a,desc_a,p,info)
& newsz
write(debug_unit,*) trim(name),&
&': to level ',&
& iszv
write(debug_unit,*) trim(name),&
&': coincide.'
& iszv,' coincide.'
write(debug_unit,*) trim(name),&
&': Number of levels actually used :',newsz
write(debug_unit,*)
mlprec/mld_zprecbld.f90
+1 -3
View File
@@ -240,9 +240,7 @@ subroutine mld_zprecbld(a,desc_a,p,info)
& newsz
write(debug_unit,*) trim(name),&
&': to level ',&
& iszv
write(debug_unit,*) trim(name),&
&': coincide.'
& iszv,' coincide.'
write(debug_unit,*) trim(name),&
&': Number of levels actually used :',newsz
write(debug_unit,*)