mappedmemorymodule Module Reference

Data Types
type	mappedmemorytype

Functions/Subroutines
subroutine	sync (this)
logical(lgp) function	skip_sync (this)
subroutine	sync_int1d (this)
	Copy 1d integer array with map. More...
subroutine	apply_sgn_int1d (this)
subroutine	sync_dbl1d (this)
	Copy 1d double array with map. More...
subroutine	apply_sgn_dbl1d (this)
subroutine	sync_dbl2d (this)
	Copy 2d double array with map. More...
subroutine	apply_sgn_dbl2d (this)
class(mappedmemorytype) function, pointer, public	castasmappeddata (obj)

Function/Subroutine Documentation

apply_sgn_dbl1d()

subroutine mappedmemorymodule::apply_sgn_dbl1d ( class(mappedmemorytype)  this )

private

Definition at line 142 of file MappedMemory.f90.

    class(MappedMemoryType) :: this
    ! local
    integer(I4B) :: i
 
    if (this%copy_all) then
      do i = 1, this%tgt%isize
        this%tgt%adbl1d(i) = this%tgt%adbl1d(i) * this%sign(i)
      end do
    else
      do i = 1, size(this%tgt_idx)
        this%tgt%adbl1d(this%tgt_idx(i)) = this%tgt%adbl1d(this%tgt_idx(i)) * &
                                           this%sign(i)
      end do
    end if
 

apply_sgn_dbl2d()

subroutine mappedmemorymodule::apply_sgn_dbl2d ( class(mappedmemorytype)  this )

private

Definition at line 191 of file MappedMemory.f90.

    class(MappedMemoryType) :: this
    ! local
    integer(I4B) :: i, k
 
    if (this%copy_all) then
      do i = 1, this%tgt%isize
        do k = 1, size(this%src%adbl2d, dim=1)
          this%tgt%adbl2d(k, i) = this%tgt%adbl2d(k, i) * this%sign(i)
        end do
      end do
    else
      do i = 1, size(this%tgt_idx)
        do k = 1, size(this%src%adbl2d, dim=1)
          this%tgt%adbl2d(k, this%tgt_idx(i)) = &
            this%tgt%adbl2d(k, this%tgt_idx(i)) * this%sign(i)
        end do
      end do
    end if
 

apply_sgn_int1d()

subroutine mappedmemorymodule::apply_sgn_int1d ( class(mappedmemorytype)  this )

private

Definition at line 100 of file MappedMemory.f90.

    class(MappedMemoryType) :: this
    ! local
    integer(I4B) :: i
 
    if (this%copy_all) then
      do i = 1, this%tgt%isize
        this%tgt%aint1d(i) = this%tgt%aint1d(i) * this%sign(i)
      end do
    else
      do i = 1, size(this%tgt_idx)
        this%tgt%aint1d(this%tgt_idx(i)) = this%tgt%aint1d(this%tgt_idx(i)) * &
                                           this%sign(i)
      end do
    end if
 

castasmappeddata()

class(mappedmemorytype) function, pointer, public mappedmemorymodule::castasmappeddata

(

class(*), intent(inout), pointer

obj

)

Definition at line 213 of file MappedMemory.f90.

    implicit none
    class(*), pointer, intent(inout) :: obj
    class(MappedMemoryType), pointer :: res
 
    res => null()
 
    select type (obj)
    class is (mappedmemorytype)
      res => obj
    end select
 

Here is the caller graph for this function:

skip_sync()

logical(lgp) function mappedmemorymodule::skip_sync ( class(mappedmemorytype)  this )

private

Definition at line 69 of file MappedMemory.f90.

    class(MappedMemoryType) :: this
    logical(LGP) :: skip
 
    skip = (this%src%isize == 0)
 

sync()

subroutine mappedmemorymodule::sync ( class(mappedmemorytype)  this )

private

Definition at line 44 of file MappedMemory.f90.

    class(MappedMemoryType) :: this
    ! local
    logical(LGP) :: found
 
    if (.not. associated(this%src)) then
      ! cache
      call get_from_memorystore(this%src_name, this%src_path, this%src, found)
      call get_from_memorystore(this%tgt_name, this%tgt_path, this%tgt, found)
    end if
 
    if (this%skip_sync()) return
 
    if (associated(this%tgt%aint1d)) call this%sync_int1d()
    if (associated(this%tgt%adbl1d)) call this%sync_dbl1d()
    if (associated(this%tgt%adbl2d)) call this%sync_dbl2d()
 
    if (associated(this%sign)) then
      if (associated(this%tgt%aint1d)) call this%apply_sgn_int1d()
      if (associated(this%tgt%adbl1d)) call this%apply_sgn_dbl1d()
      if (associated(this%tgt%adbl2d)) call this%apply_sgn_dbl2d()
    end if
 

Here is the call graph for this function:

sync_dbl1d()

subroutine mappedmemorymodule::sync_dbl1d ( class(mappedmemorytype)  this )

private

Definition at line 120 of file MappedMemory.f90.

    class(MappedMemoryType) :: this
    ! local
    integer(I4B) :: i
 
    if (this%copy_all) then
      do i = 1, this%tgt%isize
        this%tgt%adbl1d(i) = this%src%adbl1d(i)
      end do
    else if (associated(this%lut)) then
      do i = 1, size(this%tgt_idx)
        this%tgt%adbl1d(this%tgt_idx(i)) = &
          this%src%adbl1d(this%lut(this%src_idx(i)))
      end do
    else
      do i = 1, size(this%tgt_idx)
        this%tgt%adbl1d(this%tgt_idx(i)) = this%src%adbl1d(this%src_idx(i))
      end do
    end if
 

sync_dbl2d()

subroutine mappedmemorymodule::sync_dbl2d ( class(mappedmemorytype)  this )

private

Definition at line 162 of file MappedMemory.f90.

    class(MappedMemoryType) :: this
    ! local
    integer(I4B) :: i, k
 
    if (this%copy_all) then
      do i = 1, this%tgt%isize
        do k = 1, size(this%src%adbl2d, dim=1)
          this%tgt%adbl2d(k, i) = this%src%adbl2d(k, i)
        end do
      end do
    else if (associated(this%lut)) then
      do i = 1, size(this%tgt_idx)
        do k = 1, size(this%src%adbl2d, dim=1)
          this%tgt%adbl2d(k, this%tgt_idx(i)) = &
            this%src%adbl2d(k, this%lut(this%src_idx(i)))
        end do
      end do
    else
      do i = 1, size(this%tgt_idx)
        do k = 1, size(this%src%adbl2d, dim=1)
          this%tgt%adbl2d(k, this%tgt_idx(i)) = &
            this%src%adbl2d(k, this%src_idx(i))
        end do
      end do
    end if
 

sync_int1d()

subroutine mappedmemorymodule::sync_int1d ( class(mappedmemorytype)  this )

private

Definition at line 78 of file MappedMemory.f90.

    class(MappedMemoryType) :: this
    ! local
    integer(I4B) :: i
 
    if (this%copy_all) then
      do i = 1, this%tgt%isize
        this%tgt%aint1d(i) = this%src%aint1d(i)
      end do
    else if (associated(this%lut)) then
      do i = 1, size(this%tgt_idx)
        this%tgt%aint1d(this%tgt_idx(i)) = &
          this%src%aint1d(this%lut(this%src_idx(i)))
      end do
    else
      do i = 1, size(this%tgt_idx)
        this%tgt%aint1d(this%tgt_idx(i)) = this%src%aint1d(this%src_idx(i))
      end do
    end if