MAPL_CFIOSetKrank Subroutine

public subroutine MAPL_CFIOSetKrank(MCFIO, RC)

Arguments

Type IntentOptional Attributes Name
type(MAPL_CFIO), intent(inout) :: MCFIO
integer, intent(out), optional :: RC

Calls

proc~~mapl_cfiosetkrank~~CallsGraph proc~mapl_cfiosetkrank MAPL_CFIOSetKrank proc~mapl_return MAPL_Return proc~mapl_cfiosetkrank->proc~mapl_return proc~mapl_roundrobinpelist MAPL_RoundRobinPEList proc~mapl_cfiosetkrank->proc~mapl_roundrobinpelist proc~mapl_verify MAPL_Verify proc~mapl_cfiosetkrank->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_roundrobinpelist->proc~mapl_return proc~mapl_roundrobinpelist->proc~mapl_verify interface~mapl_getnewrank MAPL_GetNewRank proc~mapl_roundrobinpelist->interface~mapl_getnewrank proc~mapl_verify->proc~mapl_throw_exception

Source Code

  subroutine MAPL_CFIOSetKrank( MCFIO, RC )
  type(MAPL_CFIO),             intent(INOUT) :: MCFIO
  integer, optional,           intent(  OUT) :: RC

  integer :: status

  call MAPL_RoundRobinPEList(MCFIO%Krank,MCFIO%PartSize,root=MCFIO%ROOT,firstRank=MCFIO%RootRank,rc=status)
  _VERIFY(STATUS)

  _RETURN(ESMF_SUCCESS)
  end subroutine MAPL_CFIOSetKrank