MAPL_HashIncrement Function

public function MAPL_HashIncrement(Hash, i, j, k)

Arguments

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

Return Value integer


Calls

proc~~mapl_hashincrement~~CallsGraph proc~mapl_hashincrement MAPL_HashIncrement interface~mapl_assert MAPL_Assert proc~mapl_hashincrement->interface~mapl_assert

Called by

proc~~mapl_hashincrement~~CalledByGraph proc~mapl_hashincrement MAPL_HashIncrement proc~mapl_locstreamcreatexform MAPL_LocStreamCreateXform proc~mapl_locstreamcreatexform->proc~mapl_hashincrement

Source Code

integer function MAPL_HashIncrement(Hash,i,j,k)
  integer,           intent(IN) :: Hash
  integer,           intent(IN) :: i
  integer, optional, intent(IN) :: j
  integer, optional, intent(IN) :: k

  integer :: INCREMENTHASH, rc

  if    (present(k)) then
     _ASSERT(present(j),'needs informative message')
     MAPL_HashIncrement = INCREMENTHASH(HASH,I,J,K)
  elseif(present(j)) then
     MAPL_HashIncrement = INCREMENTHASH(HASH,I,J,INT_MAX)
  else
     MAPL_HashIncrement = INCREMENTHASH(HASH,I,INT_MAX,INT_MAX)
  endif

end function MAPL_HashIncrement