Fixed redundant is,js arguments in CDINS and SPINS.

psblas3-type-indexed
Salvatore Filippone 19 years ago
parent f22e2ee76c
commit 51cc071cb9

@ -413,12 +413,11 @@ Module psb_tools_mod
end interface
interface psb_cdins
subroutine psb_cdins(nz,ia,ja,desc_a,info,is,js)
subroutine psb_cdins(nz,ia,ja,desc_a,info)
use psb_descriptor_type
type(psb_desc_type), intent(inout) :: desc_a
Integer, intent(in) :: nz,IA(:),JA(:)
integer, intent(out) :: info
integer, intent(in), optional :: is,js
end subroutine psb_cdins
end interface
@ -535,7 +534,7 @@ Module psb_tools_mod
interface psb_spins
subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,is,js,rebuild)
subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild)
use psb_descriptor_type
use psb_spmat_type
type(psb_desc_type), intent(inout) :: desc_a
@ -543,10 +542,9 @@ Module psb_tools_mod
integer, intent(in) :: nz,ia(:),ja(:)
real(kind(1.d0)), intent(in) :: val(:)
integer, intent(out) :: info
integer, intent(in), optional :: is,js
logical, intent(in), optional :: rebuild
end subroutine psb_dspins
subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,is,js)
subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild)
use psb_descriptor_type
use psb_spmat_type
type(psb_desc_type), intent(inout) :: desc_a
@ -554,7 +552,7 @@ Module psb_tools_mod
integer, intent(in) :: nz,ia(:),ja(:)
complex(kind(1.d0)), intent(in) :: val(:)
integer, intent(out) :: info
integer, intent(in), optional :: is,js
logical, intent(in), optional :: rebuild
end subroutine psb_zspins
end interface

@ -39,9 +39,7 @@
! ja - integer,dimension(:). The column indices of the points.
! desc_a - type(<psb_desc_type>). The communication descriptor to be freed.
! info - integer. Eventually returns an error code.
! is - integer(optional). The row offset.
! js - integer(optional). The column offset.
subroutine psb_cdins(nz,ia,ja,desc_a,info,is,js)
subroutine psb_cdins(nz,ia,ja,desc_a,info)
use psb_descriptor_type
use psb_serial_mod
@ -53,7 +51,6 @@ subroutine psb_cdins(nz,ia,ja,desc_a,info,is,js)
Type(psb_desc_type), intent(inout) :: desc_a
Integer, intent(in) :: nz,ia(:),ja(:)
integer, intent(out) :: info
integer, intent(in), optional :: is,js
!LOCALS.....

@ -40,11 +40,11 @@
! val - real,dimension(:). The values of the points to be inserted.
! a - type(<psb_dspmat_type>). The sparse destination matrix.
! desc_a - type(<psb_desc_type>). The communication descriptor.
! info - integer. Eventually returns an error code.
! is - integer(optional). The row offset.
! js - integer(optional). The column offset.
! info - integer. Error code
! rebuild - logical Allows to reopen a matrix under
! certain circumstances.
!
subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,is,js,rebuild)
subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild)
use psb_descriptor_type
use psb_spmat_type
@ -59,7 +59,6 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,is,js,rebuild)
integer, intent(in) :: nz,ia(:),ja(:)
real(kind(1.d0)), intent(in) :: val(:)
integer, intent(out) :: info
integer, intent(in), optional :: is,js
logical, intent(in), optional :: rebuild
!locals.....
@ -73,13 +72,12 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,is,js,rebuild)
logical :: rebuild_
interface psb_cdins
subroutine psb_cdins(nz,ia,ja,desc_a,info,is,js)
subroutine psb_cdins(nz,ia,ja,desc_a,info)
use psb_descriptor_type
implicit none
type(psb_desc_type), intent(inout) :: desc_a
integer, intent(in) :: nz,ia(:),ja(:)
integer, intent(out) :: info
integer, intent(in), optional :: is,js
end subroutine psb_cdins
end interface

@ -40,11 +40,11 @@
! val - real,dimension(:). The values of the points to be inserted.
! a - type(<psb_zspmat_type>). The sparse destination matrix.
! desc_a - type(<psb_desc_type>). The communication descriptor.
! info - integer. Eventually returns an error code.
! is - integer(optional). The row offset.
! js - integer(optional). The column offset.
! info - integer. Error code
! rebuild - logical Allows to reopen a matrix under
! certain circumstances.
!
subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,is,js,rebuild)
subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild)
use psb_descriptor_type
use psb_spmat_type
@ -59,7 +59,6 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,is,js,rebuild)
integer, intent(in) :: nz,ia(:),ja(:)
complex(kind(1.d0)), intent(in) :: val(:)
integer, intent(out) :: info
integer, intent(in), optional :: is,js
logical, intent(in), optional :: rebuild
!locals.....
@ -73,13 +72,12 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,is,js,rebuild)
logical :: rebuild_
interface psb_cdins
subroutine psb_cdins(nz,ia,ja,desc_a,info,is,js)
subroutine psb_cdins(nz,ia,ja,desc_a,info)
use psb_descriptor_type
implicit none
type(psb_desc_type), intent(inout) :: desc_a
integer, intent(in) :: nz,ia(:),ja(:)
integer, intent(out) :: info
integer, intent(in), optional :: is,js
end subroutine psb_cdins
end interface

Loading…
Cancel
Save