MAPL_CFIOSet Subroutine

public subroutine MAPL_CFIOSet(MCFIO, Root, Psize, fName, Krank, IOWorker, globalComm, newFormat, collectionID, fraction, RC)

The subroutine MAPL_CFIOSet sets the member variables of a MAPL CFIO Object.

Arguments

Type IntentOptional Attributes Name
type(MAPL_CFIO), intent(inout) :: MCFIO
integer, intent(in), optional :: Root
integer, intent(in), optional :: Psize
character(len=*), intent(in), optional :: fName
integer, intent(in), optional :: Krank(:)
integer, intent(in), optional :: IOWorker
integer, intent(in), optional :: globalComm
logical, intent(in), optional :: newFormat
integer, intent(in), optional :: collectionID
integer, intent(in), optional :: fraction
integer, intent(out), optional :: RC

Calls

proc~~mapl_cfioset~~CallsGraph proc~mapl_cfioset MAPL_CFIOSet proc~mapl_return MAPL_Return proc~mapl_cfioset->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_CFIOSet( MCFIO, Root, Psize, fName, Krank, IOWorker, globalComm, newFormat, collectionID, fraction, RC )
!
  type(MAPL_CFIO),             intent(INOUT) :: MCFIO
  integer, optional,           intent(IN   ) :: Root, Psize
  character(len=*), optional,  intent(IN   ) :: fName
  integer, optional,           intent(IN   ) :: Krank(:)
  integer, optional,           intent(IN   ) :: IOWorker
  integer, optional,           intent(IN   ) :: globalComm
  logical, optional,           intent(IN   ) :: newFormat
  integer, optional,           intent(IN   ) :: collectionID
  integer, optional,           intent(IN   ) :: fraction
  integer, optional,           intent(  OUT) :: RC
!
  if(present(Root)) then
     mCFIO%Root = Root
  endif

  if(present(Psize)) then
     mCFIO%Partsize = Psize
  endif

  if(present(fName)) then
     mCFIO%fName = fName
  endif

  if(present(Krank)) then
    mCFIO%Krank = Krank
  endif

  if(present(IOWorker)) then
    mCFIO%AsyncWorkRank = IOWorker
  end if

  if(present(globalComm)) then
    mCFIO%globalComm = globalComm
  end if

  if(present(newFormat)) then
     mCFIO%newFormat = newFormat
  end if

  if(present(collectionID)) then
     mCFIO%collection_ID = collectionID
  end if

  if(present(fraction)) then
     mCFIO%fraction = fraction
  end if

  _RETURN(ESMF_SUCCESS)
  end subroutine MAPL_CFIOSet