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