vector_mod Module Reference

Data Types
type	t_vector

Functions/Subroutines
integer function	get_dim (this)
subroutine	set_dim (this, dim)
subroutine	create (this, nn)
subroutine	destroy (this)
subroutine	associate (this, ptr_irow, ptr_val)
function	norm (this)

Function/Subroutine Documentation

associate()

subroutine vector_mod::associate	(	class(t_vector), intent(inout), target	this,
		integer, dimension(:), pointer	ptr_irow,
		double precision, dimension(:), pointer	ptr_val )

Definition at line 132 of file vector_mod.F.

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

create()

subroutine vector_mod::create	(	class(t_vector), intent(inout)	this,
		integer, intent(in)	nn )

Definition at line 97 of file vector_mod.F.

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

destroy()

subroutine vector_mod::destroy

(

class(t_vector), intent(inout)

this

)

Definition at line 115 of file vector_mod.F.

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

get_dim()

integer function vector_mod::get_dim

(

class(t_vector), intent(in)

this

)

Definition at line 71 of file vector_mod.F.

          class(t_vector), intent(in) :: this
          integer :: get_dim
          get_dim = this%dim

norm()

function vector_mod::norm

(

class(t_vector), intent(in)

this

)

Definition at line 153 of file vector_mod.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
          class(t_vector), intent(in) :: this
          my_real :: norm
          integer :: ii
          norm = zero
          do ii = 1, this%dim
            norm = norm + abs(this%val(ii))
          enddo

set_dim()

subroutine vector_mod::set_dim	(	class(t_vector), intent(inout)	this,
		integer	dim )

Definition at line 84 of file vector_mod.F.

          class(t_vector), intent(inout) :: this
          integer :: dim
          this%dim = dim