indexmapmodule Module Reference

Data Types
type	indexmaptype
type	indexmapsgntype

Functions/Subroutines
subroutine	add_map (this, map)
subroutine	copy_map (this, map)
subroutine	add_signed_map (this, signed_map)
subroutine	copy_signed_map (this, signed_map)

Function/Subroutine Documentation

add_map()

subroutine indexmapmodule::add_map	(	class(indexmaptype)	this,
		class(indexmaptype)	map
	)

Definition at line 30 of file IndexMap.f90.

    class(IndexMapType) :: this
    class(IndexMapType) :: map
 
    call concatarray(this%src_idx, map%src_idx)
    call concatarray(this%tgt_idx, map%tgt_idx)
 

add_signed_map()

subroutine indexmapmodule::add_signed_map ( class(indexmapsgntype)  this, class(indexmapsgntype)  signed_map  )

private

Definition at line 56 of file IndexMap.f90.

    class(IndexMapSgnType) :: this
    class(IndexMapSgnType) :: signed_map
 
    call concatarray(this%src_idx, signed_map%src_idx)
    call concatarray(this%tgt_idx, signed_map%tgt_idx)
    call concatarray(this%sign, signed_map%sign)
 

copy_map()

subroutine indexmapmodule::copy_map ( class(indexmaptype)  this, class(indexmaptype)  map  )

private

Definition at line 39 of file IndexMap.f90.

    class(IndexMapType) :: this
    class(IndexMapType) :: map
    ! local
    integer(I4B) :: i
 
    allocate (this%src_idx(size(map%src_idx)))
    allocate (this%tgt_idx(size(map%tgt_idx)))
    do i = 1, size(map%src_idx)
      this%src_idx(i) = map%src_idx(i)
    end do
    do i = 1, size(map%tgt_idx)
      this%tgt_idx(i) = map%tgt_idx(i)
    end do
 

copy_signed_map()

subroutine indexmapmodule::copy_signed_map ( class(indexmapsgntype)  this, class(indexmapsgntype)  signed_map  )

private

Definition at line 66 of file IndexMap.f90.

    class(IndexMapSgnType) :: this
    class(IndexMapSgnType) :: signed_map
    ! local
    integer(I4B) :: i
 
    allocate (this%src_idx(size(signed_map%src_idx)))
    allocate (this%tgt_idx(size(signed_map%tgt_idx)))
    allocate (this%sign(size(signed_map%sign)))
    do i = 1, size(signed_map%src_idx)
      this%src_idx(i) = signed_map%src_idx(i)
    end do
    do i = 1, size(signed_map%tgt_idx)
      this%tgt_idx(i) = signed_map%tgt_idx(i)
    end do
    do i = 1, size(signed_map%sign)
      this%sign(i) = signed_map%sign(i)
    end do