wrfv2_fire/external/esmf_time_f90/ESMF_Fraction.F90

   1 !
   2 ! Earth System Modeling Framework
   3 ! Copyright 2002-2003, University Corporation for Atmospheric Research,
   4 ! Massachusetts Institute of Technology, Geophysical Fluid Dynamics
   5 ! Laboratory, University of Michigan, National Centers for Environmental
   6 ! Prediction, Los Alamos National Laboratory, Argonne National Laboratory,
   7 ! NASA Goddard Space Flight Center.
   8 ! Licensed under the University of Illinois-NCSA license.
   9 !
  10 ! ESMF Fraction Module
  11 !
  12 !==============================================================================
  13 !
  14 !     ESMF Fraction Module
  15       module ESMF_FractionMod
  16 !
  17 !==============================================================================
  18 !
  19 ! This file contains the Fraction class definition and all Fraction
  20 ! class methods.
  21 !
  22 !------------------------------------------------------------------------------
  23 ! INCLUDES
  24 !
  25 !===============================================================================
  26 !BOPI
  27 !
  28 ! !MODULE: ESMF_FractionMod
  29 !
  30 ! !DESCRIPTION:
  31 ! Part of ESMF F90 API wrapper of C++ implemenation
  32 !
  33 ! Defines F90 wrapper entry points for corresponding
  34 ! C++ implementaion of class {\tt ESMC\_Fraction}
  35 !
  36 ! See {\tt ../include/ESMC\_Fraction.h} for complete description
  37 !
  38 !------------------------------------------------------------------------------
  39 ! !USES:
  40
  41       implicit none
  42 !
  43 !------------------------------------------------------------------------------
  44 ! !PRIVATE TYPES:
  45       private
  46 !------------------------------------------------------------------------------
  47 !     ! ESMF_Fraction
  48 !
  49       type ESMF_Fraction
  50       private
  51         integer :: n    ! Integer fraction (exact) n/d; numerator
  52         integer :: d    ! Integer fraction (exact) n/d; denominator
  53       end type
  54 !
  55 !------------------------------------------------------------------------------
  56 ! !PUBLIC TYPES:
  57       public ESMF_Fraction
  58 !------------------------------------------------------------------------------
  59 !
  60 ! !PUBLIC MEMBER FUNCTIONS:
  61
  62 ! !PRIVATE MEMBER FUNCTIONS:
  63
  64 !EOPI
  65
  66 !==============================================================================
  67
  68 !      contains
  69
  70 !==============================================================================
  71 !
  72 ! Wrappers to C++ fraction routines
  73 !
  74 !------------------------------------------------------------------------------
  75 !
  76
  77 !------------------------------------------------------------------------------
  78
  79       end module ESMF_FractionMod