matrix_mod Module Reference

Data Types
type	t_cfs_matrix

Functions/Subroutines
subroutine	prod_vec (this, xvec, bvec)
integer function	get_dim (this)
subroutine	matrix_create (this, nn)
subroutine	matrix_destroy (this)
subroutine	matrix_associate (this, ptr_irow, ptr_jcol, ptr_val)

Function/Subroutine Documentation

get_dim()

integer function matrix_mod::get_dim

(

class(t_cfs_matrix), intent(in)

this

)

Definition at line 100 of file matrix_mod.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
          class(t_cfs_matrix), intent(in) :: this
          integer :: get_dim
          get_dim = this%dim

matrix_associate()

subroutine matrix_mod::matrix_associate	(	class(t_cfs_matrix), intent(inout), target	this,
		integer, dimension(:), pointer	ptr_irow,
		integer, dimension(:), pointer	ptr_jcol,
		double precision, dimension(:), pointer	ptr_val )

Definition at line 153 of file matrix_mod.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
          class(t_cfs_matrix), intent(inout), target :: this
          integer, dimension(:), pointer :: ptr_irow, ptr_jcol
          double precision, dimension(:), pointer :: ptr_val
          ptr_irow => this%irow
          ptr_jcol => this%jcol
          ptr_val => this%val

matrix_create()

subroutine matrix_mod::matrix_create	(	class(t_cfs_matrix), intent(inout)	this,
		integer, intent(in)	nn )

Definition at line 117 of file matrix_mod.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
          class(t_cfs_matrix), intent(inout) :: this
          integer, intent(in) :: nn
          this%dim = nn
          allocate(this%irow(nn), this%jcol(nn), this%val(nn))

matrix_destroy()

subroutine matrix_mod::matrix_destroy

(

class(t_cfs_matrix), intent(inout)

this

)

Definition at line 135 of file matrix_mod.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
          class(t_cfs_matrix), intent(inout) :: this
          if (allocated(this%irow)) deallocate(this%irow)
          if (allocated(this%jcol)) deallocate(this%jcol)
          if (allocated(this%val)) deallocate(this%val)

prod_vec()

subroutine matrix_mod::prod_vec	(	class(t_cfs_matrix), intent(in)	this,
		type(t_vector), intent(in)	xvec,
		type(t_vector), intent(inout)	bvec )

Definition at line 68 of file matrix_mod.F.

          USE vector_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
          class(t_cfs_matrix), intent(in) :: this
          type(t_vector), intent(in) :: xvec
          type(t_vector), intent(inout) :: bvec
          integer :: i, j
 
          integer :: ii
          bvec%val(1:bvec%get_dim()) = zero
          do ii = 1, this%dim
            i = this%irow(ii)
            j = this%jcol(ii)
            bvec%val(i) = bvec%val(i) + this%val(ii) * xvec%val(j)
          enddo