|
|
@ -1,4 +1,3 @@
|
|
|
|
|
|
|
|
|
|
|
|
!!$
|
|
|
|
!!$
|
|
|
|
!!$ Parallel Sparse BLAS v2.0
|
|
|
|
!!$ Parallel Sparse BLAS v2.0
|
|
|
|
!!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata
|
|
|
|
!!$ (C) Copyright 2006 Salvatore Filippone University of Rome Tor Vergata
|
|
|
@ -31,16 +30,19 @@
|
|
|
|
!!$
|
|
|
|
!!$
|
|
|
|
! File: psb_zgelp.f90
|
|
|
|
! File: psb_zgelp.f90
|
|
|
|
!
|
|
|
|
!
|
|
|
|
|
|
|
|
! WARNING: This routine should be changed and moved to the serial part
|
|
|
|
|
|
|
|
! i.e. taking out the descriptor.
|
|
|
|
|
|
|
|
!
|
|
|
|
|
|
|
|
!
|
|
|
|
! Subroutine: psb_zgelp
|
|
|
|
! Subroutine: psb_zgelp
|
|
|
|
! ???????????
|
|
|
|
! Apply a left permutation to a dense matrix
|
|
|
|
!
|
|
|
|
!
|
|
|
|
! Parameters:
|
|
|
|
! Parameters:
|
|
|
|
! trans - character.
|
|
|
|
! trans - character.
|
|
|
|
! iperm - integer.
|
|
|
|
! iperm - integer.
|
|
|
|
! x - real, dimension(:,:).
|
|
|
|
! x - real, dimension(:,:).
|
|
|
|
! info - integer. Eventually returns an error code.
|
|
|
|
! info - integer. Return code.
|
|
|
|
subroutine psb_zgelp(trans,iperm,x,desc_a,info)
|
|
|
|
subroutine psb_zgelp(trans,iperm,x,desc_a,info)
|
|
|
|
!....assembly dense matrix x .....
|
|
|
|
|
|
|
|
use psb_descriptor_type
|
|
|
|
use psb_descriptor_type
|
|
|
|
use psb_serial_mod
|
|
|
|
use psb_serial_mod
|
|
|
|
use psb_const_mod
|
|
|
|
use psb_const_mod
|
|
|
@ -174,16 +176,20 @@ end subroutine psb_zgelp
|
|
|
|
!!$ POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
!!$ POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
!!$
|
|
|
|
!!$
|
|
|
|
!!$
|
|
|
|
!!$
|
|
|
|
|
|
|
|
!
|
|
|
|
|
|
|
|
! WARNING: This routine should be changed and moved to the serial part
|
|
|
|
|
|
|
|
! i.e. taking out the descriptor.
|
|
|
|
|
|
|
|
!
|
|
|
|
|
|
|
|
!
|
|
|
|
! Subroutine: psb_zgelpv
|
|
|
|
! Subroutine: psb_zgelpv
|
|
|
|
! ???????????
|
|
|
|
! Apply a left permutation to a dense matrix
|
|
|
|
!
|
|
|
|
!
|
|
|
|
! Parameters:
|
|
|
|
! Parameters:
|
|
|
|
! trans - character.
|
|
|
|
! trans - character.
|
|
|
|
! iperm - integer.
|
|
|
|
! iperm - integer.
|
|
|
|
! x - real, dimension(:).
|
|
|
|
! x - real, dimension(:).
|
|
|
|
! info - integer. Eventually returns an error code.
|
|
|
|
! info - integer. Return code.
|
|
|
|
subroutine psb_zgelpv(trans,iperm,x,desc_a,info)
|
|
|
|
subroutine psb_zgelpv(trans,iperm,x,desc_a,info)
|
|
|
|
!....assembly dense matrix x .....
|
|
|
|
|
|
|
|
use psb_descriptor_type
|
|
|
|
use psb_descriptor_type
|
|
|
|
use psb_serial_mod
|
|
|
|
use psb_serial_mod
|
|
|
|
use psb_const_mod
|
|
|
|
use psb_const_mod
|
|
|
|