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

Taken out obsolete & commented gelp interface.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-10-12 16:31:35 +00:00
parent 630108c544
commit ab034762ab
1 changed files with 0 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_psblas_mod.f90
-18
View File
@@ -468,22 +468,4 @@ module psb_psblas_mod
end subroutine psb_zspsv
end interface
!!$ interface psb_gelp
!!$ subroutine psb_dgelp(trans,iperm,x,desc_a,info)
!!$ use psb_descriptor_type
!!$ type(psb_desc_type), intent(in) :: desc_a
!!$ real(kind(1.d0)), intent(inout) :: x(:,:)
!!$ integer, intent(inout) :: iperm(:),info
!!$ character, intent(in) :: trans
!!$ end subroutine psb_dgelp
!!$ subroutine psb_dgelpv(trans,iperm,x,desc_a,info)
!!$ use psb_descriptor_type
!!$ type(psb_desc_type), intent(in) :: desc_a
!!$ real(kind(1.d0)), intent(inout) :: x(:)
!!$ integer, intent(inout) :: iperm(:),info
!!$ character, intent(in) :: trans
!!$ end subroutine psb_dgelpv
!!$ end interface
end module psb_psblas_mod