fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed redundant is,js arguments in CDINS and SPINS.

Browse Source
psblas3-type-indexed
Salvatore Filippone 19 years ago
parent f22e2ee76c
commit 51cc071cb9
4 changed files with 15 additions and 24 deletions
Show Stats Download Patch File Download Diff File

10
src/modules/psb_tools_mod.f90
Unescape Escape View File

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

5
src/tools/psb_cdins.f90
Unescape Escape View File

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

12
src/tools/psb_dspins.f90
Unescape Escape View File

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

12
src/tools/psb_zspins.f90
Unescape Escape View File

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

Write Preview
Loading…
Cancel
Save