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.
10 ! ESMF Fraction Module
12 !==============================================================================
14 ! ESMF Fraction Module
15 module ESMF_FractionMod
17 !==============================================================================
19 ! This file contains the Fraction class definition and all Fraction
22 !------------------------------------------------------------------------------
25 !===============================================================================
28 ! !MODULE: ESMF_FractionMod
31 ! Part of ESMF F90 API wrapper of C++ implemenation
33 ! Defines F90 wrapper entry points for corresponding
34 ! C++ implementaion of class {\tt ESMC\_Fraction}
36 ! See {\tt ../include/ESMC\_Fraction.h} for complete description
38 !------------------------------------------------------------------------------
43 !------------------------------------------------------------------------------
46 !------------------------------------------------------------------------------
51 integer :: n ! Integer fraction (exact) n/d; numerator
52 integer :: d ! Integer fraction (exact) n/d; denominator
55 !------------------------------------------------------------------------------
58 !------------------------------------------------------------------------------
60 ! !PUBLIC MEMBER FUNCTIONS:
62 ! !PRIVATE MEMBER FUNCTIONS:
66 !==============================================================================
70 !==============================================================================
72 ! Wrappers to C++ fraction routines
74 !------------------------------------------------------------------------------
77 !------------------------------------------------------------------------------
79 end module ESMF_FractionMod