C.3 Text_Utils Module Code Listing

The main documentation of the Text_Utils Module contains additional explanation of this code listing.

!
! Author: Michael L. Hall
!         P.O. Box 1663, MS-D409, LANL
!         Los Alamos, NM 87545
!         ph: 505-665-4312
!         email: Hall@LANL.gov
! 
! Created on: 10/09/07
! CVS Info:   $Id: text_utils.F90,v 1.1 2007/10/10 22:09:30 hall Exp $

module Caesar_Text_Utils_Module

  ! Global use associations.

  use Caesar_Intrinsics_Module

  ! Start up with everything untyped and private.

  implicit none
  private

  ! Public procedures.

  public :: Capitalize, Lowercase, Uppercase

  interface Capitalize
    module procedure Capitalize_Text_Utils
  end interface

  interface Lowercase
    module procedure Lowercase_Text_Utils
  end interface

  interface Uppercase
    module procedure Uppercase_Text_Utils
  end interface

  ! Global module parameters.

  ! Definitions for ASCII representation, others may differ.

  ! Amount to be added for capitalization.
  type(integer), parameter :: Capitalization = -32
  ! Ranges for upper- and lowercase letters.
  type(integer), dimension(2), parameter :: Majuscules = (/ 65, 90 /)
  type(integer), dimension(2), parameter :: Minuscules = (/ 97, 122 /)

contains

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

Capitalize_Text_Utils

Lowercase_Text_Utils

Uppercase_Text_Utils

end module Caesar_Text_Utils_Module