Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_Base), | intent(in), | optional | :: | base |
function ESMF_BaseGetInit(base) ! ! !RETURN VALUE: ESMF_INIT_TYPE :: ESMF_BaseGetInit ! ! !ARGUMENTS: type(ESMF_Base), intent(in), optional :: base ! ! !DESCRIPTION: ! Access deep object init code. ! ! The arguments are: ! \begin{description} ! \item [base] ! Base object. ! \end{description} ! !EOPI if (present(base)) then ESMF_BaseGetInit = ESMF_INIT_GET(base) else ESMF_BaseGetInit = ESMF_INIT_CREATED endif end function ESMF_BaseGetInit