From ab034762abe6a0f9c630177ef13dc3fbb8ba0f96 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 12 Oct 2007 16:31:35 +0000 Subject: [PATCH] Taken out obsolete & commented gelp interface. --- base/modules/psb_psblas_mod.f90 | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/base/modules/psb_psblas_mod.f90 b/base/modules/psb_psblas_mod.f90 index 7d80ae90..85eb62e6 100644 --- a/base/modules/psb_psblas_mod.f90 +++ b/base/modules/psb_psblas_mod.f90 @@ -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