B.3 Integer Class Code Listing

The main documentation of the Integer Class contains additional explanation of this code listing.

!
! Author: Michael L. Hall
!         P.O. Box 1663, MS-D413, LANL
!         Los Alamos, NM 87545
!         ph: 505-665-4312
!         email: Hall@LANL.gov
! 
! Created on: 1/18/99
! CVS Info:   $Id: integer.F90,v 7.2 2006/10/12 18:30:29 hall Exp $

module Caesar_Integer_Class

  ! Global use associations.

  use Caesar_Status_Class

  ! Start up with everything untyped and private.

  implicit none
  private

  ! Public procedures.

  public :: Initialize, Finalize, Valid_State, Valid_State_NP
  public :: MaxVal, MinVal, SUM

  REPLICATE_INTERFACE([Initialize], [Initialize_Integer])

  REPLICATE_INTERFACE([Finalize], [Finalize_Integer])

  REPLICATE_INTERFACE([Valid_State], [Valid_State_Integer_P])
  REPLICATE_INTERFACE([Valid_State_NP], [Valid_State_Integer_NP])

  interface MaxVal
    module procedure MaxVal_Integer_Scalar
  end interface

  interface MinVal
    module procedure MinVal_Integer_Scalar
  end interface

  interface SUM
    module procedure SUM_Integer_Scalar
  end interface

contains

The Integer_Class contains the following routines which are listed in separate sections:

Initialize_Integer

Finalize_Integer

Valid_State_Integer

MaxVal_Integer_Scalar

MinVal_Integer_Scalar

SUM_Integer_Scalar

end module Caesar_Integer_Class