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

psblas2:

Browse Source 
psb_cprecset.f90
 psb_prec_mod.f90

Fixed misalignment for psb_cprecsets
This commit is contained in:
Salvatore Filippone
2008-05-29 09:20:16 +00:00
parent b888d66e98
commit eb32fb1018
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_cprecset.f90
+2 -2
View File
@@ -66,7 +66,7 @@ subroutine psb_cprecseti(p,what,val,info)
end subroutine psb_cprecseti
subroutine psb_cprecsetd(p,what,val,info)
subroutine psb_cprecsets(p,what,val,info)
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_cprecsetd
@@ -103,4 +103,4 @@ subroutine psb_cprecsetd(p,what,val,info)
end select
return
end subroutine psb_cprecsetd
end subroutine psb_cprecsets
prec/psb_prec_mod.f90
+3 -3
View File
@@ -154,15 +154,15 @@ module psb_prec_mod
integer :: what, val
integer, intent(out) :: info
end subroutine psb_cprecseti
subroutine psb_cprecsetd(prec,what,val,info)
subroutine psb_cprecsets(prec,what,val,info)
use psb_base_mod
use psb_prec_type
implicit none
type(psb_cprec_type), intent(inout) :: prec
integer :: what
real(psb_dpk_) :: val
real(psb_spk_) :: val
integer, intent(out) :: info
end subroutine psb_cprecsetd
end subroutine psb_cprecsets
subroutine psb_zprecseti(prec,what,val,info)
use psb_base_mod
use psb_prec_type