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

psblas2-dev:

Browse Source 
base/modules/psb_serial_mod.f90
 base/serial/psb_ctransp.f90
 base/serial/psb_dtransp.f90
 base/serial/psb_stransp.f90
 base/serial/psb_ztransp.f90

Defined in-place transpose.


 krylov/psb_drgmres.f90
 krylov/psb_srgmres.f90

Fixed for good alternate code path.
This commit is contained in:
Salvatore Filippone
2008-05-30 13:08:11 +00:00
parent 7a484fa3a0
commit f0e69ab0da
7 changed files with 224 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_serial_mod.f90
+36 -6
View File
@@ -526,40 +526,70 @@ module psb_serial_mod
interface psb_transp
subroutine psb_stransp(a,b,c,fmt)
use psb_spmat_type
type(psb_sspmat_type) :: a,b
type(psb_sspmat_type), intent(in) :: a
type(psb_sspmat_type), intent(out) :: b
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_stransp
subroutine psb_stransp1(a,c,fmt)
use psb_spmat_type
type(psb_sspmat_type) :: a
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_stransp1
subroutine psb_dtransp(a,b,c,fmt)
use psb_spmat_type
type(psb_dspmat_type) :: a,b
type(psb_dspmat_type), intent(in) :: a
type(psb_dspmat_type), intent(out) :: b
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_dtransp
subroutine psb_dtransp1(a,c,fmt)
use psb_spmat_type
type(psb_dspmat_type) :: a
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_dtransp1
subroutine psb_ctransp(a,b,c,fmt)
use psb_spmat_type
type(psb_cspmat_type) :: a,b
type(psb_cspmat_type), intent(in) :: a
type(psb_cspmat_type), intent(out) :: b
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_ctransp
subroutine psb_ctransp1(a,c,fmt)
use psb_spmat_type
type(psb_cspmat_type) :: a
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_ctransp1
subroutine psb_ztransp(a,b,c,fmt)
use psb_spmat_type
type(psb_zspmat_type) :: a,b
type(psb_zspmat_type), intent(in) :: a
type(psb_zspmat_type), intent(out) :: b
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_ztransp
subroutine psb_ztransp1(a,c,fmt)
use psb_spmat_type
type(psb_zspmat_type) :: a
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_ztransp1
end interface
interface psb_transc
subroutine psb_ctransc(a,b,c,fmt)
use psb_spmat_type
type(psb_cspmat_type) :: a,b
type(psb_cspmat_type), intent(in) :: a
type(psb_cspmat_type), intent(out) :: b
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_ctransc
subroutine psb_ztransc(a,b,c,fmt)
use psb_spmat_type
type(psb_zspmat_type) :: a,b
type(psb_zspmat_type), intent(in) :: a
type(psb_zspmat_type), intent(out) :: b
integer, optional :: c
character(len=*), optional :: fmt
end subroutine psb_ztransc