MAPL_CFIOGet Subroutine

public subroutine MAPL_CFIOGet(MCFIO, RootRank, krank, collection_id, RC)

Arguments

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

Calls

proc~~mapl_cfioget~~CallsGraph proc~mapl_cfioget MAPL_CFIOGet proc~mapl_return MAPL_Return proc~mapl_cfioget->proc~mapl_return 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

Source Code

  subroutine MAPL_CFIOGet(mcfio,RootRank,krank,collection_id,rc)
  type(MAPL_CFIO),             intent(INOUT) :: MCFIO
  integer, optional,           intent(  OUT) :: RootRank
  integer, optional,           intent(  OUT) :: krank
  integer, optional,           intent(  OUT) :: collection_id
  integer, optional,           intent(  OUT) :: RC


  if (present(RootRank)) RootRank = MCFIO%RootRank

  if (present(Krank)) Krank=size(MCFIO%krank)

  if (present(collection_id)) collection_id=MCFIO%collection_id

  _RETURN(ESMF_SUCCESS)
  end subroutine MAPL_CFIOGet