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

Browse Source
This commit is contained in:
Salvatore Filippone
2007-09-28 12:57:00 +00:00
parent 5925e6c9e6
commit 5ce48b7dec
1 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_dgelp.f90
+13 -6
View File
@@ -30,16 +30,19 @@
!!$
! File: psb_dgelp.f90
!
! WARNING: This routine should be changed and moved to the serial part
! i.e. taking out the descriptor.
!
!
! Subroutine: psb_dgelp
! ???????????
! Apply a left permutation to a dense matrix
!
! Parameters:
! trans - character.
! iperm - integer.
! x - real, dimension(:,:).
! info - integer. Eventually returns an error code.
! info - integer. Return code.
subroutine psb_dgelp(trans,iperm,x,desc_a,info)
!....assembly dense matrix x .....
use psb_descriptor_type
use psb_serial_mod
use psb_const_mod
@@ -174,16 +177,20 @@ end subroutine psb_dgelp
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
!
! WARNING: This routine should be changed and moved to the serial part
! i.e. taking out the descriptor.
!
!
! Subroutine: psb_dgelpv
! ???????????
! Apply a left permutation to a dense matrix
!
! Parameters:
! trans - character.
! iperm - integer.
! x - real, dimension(:).
! info - integer. Eventually returns an error code.
! info - integer. Return code.
subroutine psb_dgelpv(trans,iperm,x,desc_a,info)
!....assembly dense matrix x .....
use psb_descriptor_type
use psb_serial_mod
use psb_const_mod