csrutilsmodule Module Reference

Functions/Subroutines
integer(i4b) function, public	getcsrindex (i, j, ia, ja)
	Return index for element i,j in CSR storage,. More...

Function/Subroutine Documentation

getcsrindex()

integer(i4b) function, public csrutilsmodule::getcsrindex	(	integer(i4b), intent(in)	i,
		integer(i4b), intent(in)	j,
		integer(i4b), dimension(:), intent(in)	ia,
		integer(i4b), dimension(:), intent(in)	ja
	)

Parameters

[in]	i	the row index
[in]	j	the column index
[in]	ia	CSR ia array
[in]	ja	CSR ja array

Returns

the CSR ndex of element i,j

Definition at line 12 of file CsrUtils.f90.

    use kindmodule, only: i4b
    integer(I4B), intent(in) :: i !< the row index
    integer(I4B), intent(in) :: j !< the column index
    integer(I4B), dimension(:), intent(in) :: ia !< CSR ia array
    integer(I4B), dimension(:), intent(in) :: ja !< CSR ja array
    integer(I4B) :: csrIndex !< the CSR ndex of element i,j
    ! local
    integer(I4B) :: idx
 
    csrindex = -1
    do idx = ia(i), ia(i + 1) - 1
      if (ja(idx) == j) then
        csrindex = idx
        return
      end if
    end do
 

Here is the caller graph for this function: