ESMF_DELayoutGetInit Function

public recursive function ESMF_DELayoutGetInit(delayout) result(DELayoutGetInit)

Arguments

Type IntentOptional Attributes Name
type(ESMF_DELayout), intent(in), optional :: delayout

Return Value integer(kind=ESMF_KIND_I8)


Source Code

  recursive function ESMF_DELayoutGetInit(delayout) result (DELayoutGetInit)
!
! !RETURN VALUE:
    ESMF_INIT_TYPE :: DELayoutGetInit
!
! !ARGUMENTS:
    type(ESMF_DELayout), intent(in), optional :: delayout
!
! !DESCRIPTION:
!      Access deep object init code.
!
!     The arguments are:
!     \begin{description}
!     \item [delayout]
!           DELayout object.
!     \end{description}
!
!EOPI
!------------------------------------------------------------------------------
    if (present(delayout)) then
      DELayoutGetInit = ESMF_INIT_GET(delayout)
    else
      DELayoutGetInit = ESMF_INIT_CREATED
    endif

  end function ESMF_DELayoutGetInit