MAPL_HashDump Function

public function MAPL_HashDump(Hash, i, j)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: Hash
integer, intent(out) :: i(:)
integer, intent(out), optional :: j(:)

Return Value integer


Calls

proc~~mapl_hashdump~~CallsGraph proc~mapl_hashdump MAPL_HashDump dumphash dumphash proc~mapl_hashdump->dumphash interface~mapl_assert MAPL_Assert proc~mapl_hashdump->interface~mapl_assert proc~mapl_hashsize MAPL_HashSize proc~mapl_hashdump->proc~mapl_hashsize

Source Code

integer function MAPL_HashDump(Hash,i,j)
  integer, intent(IN ) :: Hash
  integer, intent(OUT) :: i(:)
  integer, optional, intent(OUT) :: j(:)

  integer, allocatable :: jj(:)

  integer :: rc

  MAPL_HashDump = MAPL_HashSize(HASH)

  if(size(i) < MAPL_HashSize(HASH)) then
     MAPL_HashDump = -1
     return
  end if

  if(present(j)) then
     _ASSERT(size(i) == size(j),'needs informative message')
     call DUMPHASH(HASH,I,J)
  else
     allocate(jj(size(i)))
     call DUMPHASH(HASH,I,JJ)
     deallocate(JJ)
  end if

end function MAPL_HashDump