ESMF_FractionGetInit Function

public function ESMF_FractionGetInit(s)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Fraction), intent(in), optional :: s

Return Value integer(kind=ESMF_KIND_I8)


Called by

proc~~esmf_fractiongetinit~~CalledByGraph proc~esmf_fractiongetinit ESMF_FractionGetInit proc~esmf_timeintervalprodft ESMF_TimeIntervalProdFT proc~esmf_timeintervalprodft->proc~esmf_fractiongetinit proc~esmf_timeintervalprodtf ESMF_TimeIntervalProdTF proc~esmf_timeintervalprodtf->proc~esmf_fractiongetinit interface~operator(ASTERISK) operator(*) interface~operator(ASTERISK)->proc~esmf_timeintervalprodft interface~operator(ASTERISK)->proc~esmf_timeintervalprodtf

Source Code

    function ESMF_FractionGetInit(s)
!
! !ARGUMENTS:
       type(ESMF_Fraction), intent(in), optional :: s
       ESMF_INIT_TYPE :: ESMF_FractionGetInit
!
! !DESCRIPTION:
!      Get the initialization status of the shallow class {\tt fraction}.
!
!     The arguments are:
!     \begin{description}
!     \item [s]
!           {\tt ESMF\_Fraction} from which to retrieve status.
!     \end{description}
!
!EOPI

       if (present(s)) then
         ESMF_FractionGetInit = ESMF_INIT_GET(s)
       else
         ESMF_FractionGetInit = ESMF_INIT_DEFINED
       endif

    end function ESMF_FractionGetInit