Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_ConfigAttrUsed), | intent(in), | optional | :: | s |
function ESMF_ConfigAttrUsedGetInit(s) ! ! !ARGUMENTS: type(ESMF_ConfigAttrUsed), intent(in), optional :: s ESMF_INIT_TYPE :: ESMF_ConfigAttrUsedGetInit ! ! !DESCRIPTION: ! Get the initialization status of the shallow class {\tt ConfigAttrUsed}. ! ! The arguments are: ! \begin{description} ! \item [s] ! {\tt ESMF\_ConfigAttrUsed} from which to retrieve status. ! \end{description} ! !EOPI if (present(s)) then ESMF_ConfigAttrUsedGetInit = ESMF_INIT_GET(s) else ESMF_ConfigAttrUsedGetInit = ESMF_INIT_DEFINED endif end function ESMF_ConfigAttrUsedGetInit