fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 19:02:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2006-04-28 13:15:07 +00:00
parent 75e4669ada
commit e33cdba6f9
5 changed files with 823 additions and 783 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/prec/psb_dprecset.f90
+1 -1
View File
@@ -120,7 +120,7 @@ subroutine psb_dprecset(p,ptype,iv,rs,rv,info)
end if
case ('ML', '2LEV')
case ('ML', '2L', '2LEV')
select case (size(p%baseprecv))
case(1)
src/prec/psb_zprecset.f90
+1 -1
View File
@@ -120,7 +120,7 @@ subroutine psb_zprecset(p,ptype,iv,rs,rv,info)
end if
case ('ML', '2LEV')
case ('ML', '2L','2LEV')
select case (size(p%baseprecv))
case(1)