! Earth System Modeling Framework
! Copyright 2002-2003, University Corporation for Atmospheric Research,
! Massachusetts Institute of Technology, Geophysical Fluid Dynamics
! Laboratory, University of Michigan, National Centers for Environmental
! Prediction, Los Alamos National Laboratory, Argonne National Laboratory,
! NASA Goddard Space Flight Center.
! Licensed under the GPL.
!
! ESMF Fraction Module
!
!==============================================================================
!
!     ESMF Fraction Module
module ESMF_FractionMod
  !
  !==============================================================================
  !
  ! This file contains the Fraction class definition and all Fraction
  ! class methods.
  !
  !------------------------------------------------------------------------------
  ! INCLUDES
  !
  !===============================================================================
  !BOPI
  !
  ! !MODULE: ESMF_FractionMod
  !
  ! !DESCRIPTION:
  ! Part of ESMF F90 API wrapper of C++ implemenation
  !
  ! Defines F90 wrapper entry points for corresponding
  ! C++ implementaion of class {\tt ESMC\_Fraction}
  !
  ! See {\tt ../include/ESMC\_Fraction.h} for complete description
  !
  !------------------------------------------------------------------------------
  ! !USES:

  implicit none
  !
  !------------------------------------------------------------------------------
  ! !PRIVATE TYPES:
  private
  !------------------------------------------------------------------------------
  !     ! ESMF_Fraction
  !
  type ESMF_Fraction
     private
     integer :: n    ! Integer fraction (exact) n/d; numerator
     integer :: d    ! Integer fraction (exact) n/d; denominator
  end type ESMF_Fraction
  !
  !------------------------------------------------------------------------------
  ! !PUBLIC TYPES:
  public ESMF_Fraction
  !------------------------------------------------------------------------------
  !
  ! !PUBLIC MEMBER FUNCTIONS:

  ! !PRIVATE MEMBER FUNCTIONS:

  !EOPI

  !------------------------------------------------------------------------------
  ! The following line turns the CVS identifier string into a printable variable.
  character(*), parameter, private :: version = &
       '$Id$'

  !==============================================================================

  !      contains

  !==============================================================================
  !
  ! Wrappers to C++ fraction routines
  !
  !------------------------------------------------------------------------------
  !

  !------------------------------------------------------------------------------

end module ESMF_FractionMod
