From eb32fb101861522c3dea4eab226094a176947de6 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 29 May 2008 09:20:16 +0000 Subject: [PATCH] psblas2: psb_cprecset.f90 psb_prec_mod.f90 Fixed misalignment for psb_cprecsets --- prec/psb_cprecset.f90 | 4 ++-- prec/psb_prec_mod.f90 | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/prec/psb_cprecset.f90 b/prec/psb_cprecset.f90 index 85423631..7f62b59c 100644 --- a/prec/psb_cprecset.f90 +++ b/prec/psb_cprecset.f90 @@ -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 diff --git a/prec/psb_prec_mod.f90 b/prec/psb_prec_mod.f90 index 54631a6e..b2ba4447 100644 --- a/prec/psb_prec_mod.f90 +++ b/prec/psb_prec_mod.f90 @@ -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