ESMF_ArraySpecGetInit Function

public function ESMF_ArraySpecGetInit(arrayspec)

Arguments

Type IntentOptional Attributes Name
type(ESMF_ArraySpec), intent(in), optional :: arrayspec

Return Value integer(kind=ESMF_KIND_I8)


Called by

proc~~esmf_arrayspecgetinit~~CalledByGraph proc~esmf_arrayspecgetinit ESMF_ArraySpecGetInit proc~esmf_arrayspeceq ESMF_ArraySpecEQ proc~esmf_arrayspeceq->proc~esmf_arrayspecgetinit proc~esmf_arrayspecget ESMF_ArraySpecGet proc~esmf_arrayspecget->proc~esmf_arrayspecgetinit proc~esmf_arrayspecprint ESMF_ArraySpecPrint proc~esmf_arrayspecprint->proc~esmf_arrayspecgetinit proc~esmf_arrayspecvalidate ESMF_ArraySpecValidate proc~esmf_arrayspecvalidate->proc~esmf_arrayspecgetinit interface~operator(==)~15 operator(==) interface~operator(==)~15->proc~esmf_arrayspeceq proc~esmf_arrayspecne ESMF_ArraySpecNE proc~esmf_arrayspecne->proc~esmf_arrayspeceq proc~f_esmf_arrayspecget f_esmf_arrayspecget proc~f_esmf_arrayspecget->proc~esmf_arrayspecget proc~f_esmf_arrayspecgetrank f_esmf_arrayspecgetrank proc~f_esmf_arrayspecgetrank->proc~esmf_arrayspecget proc~f_esmf_arrayspecgettypekind f_esmf_arrayspecgettypekind proc~f_esmf_arrayspecgettypekind->proc~esmf_arrayspecget program~esmf_arrayspecex ESMF_ArraySpecEx program~esmf_arrayspecex->proc~esmf_arrayspecget program~esmf_arrayspecutest ESMF_ArraySpecUTest program~esmf_arrayspecutest->proc~esmf_arrayspecget program~esmf_arrayspecutest->proc~esmf_arrayspecprint interface~operator(SLASH=)~15 operator(/=) interface~operator(SLASH=)~15->proc~esmf_arrayspecne

Source Code

  function ESMF_ArraySpecGetInit(arrayspec) 
!
! !RETURN VALUE:
    ESMF_INIT_TYPE :: ESMF_ArraySpecGetInit   
!
! !ARGUMENTS:
    type(ESMF_ArraySpec), intent(in), optional :: arrayspec
!
! !DESCRIPTION:
!   Access init code.
!
!   The arguments are:
!   \begin{description}
!   \item [arrayspec]
!     ArraySpec object.
!   \end{description}
!
!EOPI
!------------------------------------------------------------------------------
    if (present(arrayspec)) then
      ESMF_ArraySpecGetInit = ESMF_INIT_GET(arrayspec)
    else
      ESMF_ArraySpecGetInit = ESMF_INIT_DEFINED
    endif

  end function ESMF_ArraySpecGetInit