C.1 F2003_Utils Module Code Listing

The main documentation of the F2003_Utils Module 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: 10/20/06
! CVS Info:   $Id: f2003_utils.F90,v 1.2 2006/10/23 22:20:55 hall Exp $

module Caesar_F2003_Utils_Module

  ! Global use associations.

  use Caesar_Intrinsics_Module

  ! Start up with everything untyped and private.

  implicit none
  private

  ! Public procedures.

  public :: Command_Argument_Count, Get_Command_Argument

  interface Command_Argument_Count
    module procedure Command_Argument_Count_F2003
  end interface

  interface Get_Command_Argument
    module procedure Get_Command_Argument_F2003
  end interface

contains

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

Command_Argument_Count_F2003

Get_Command_Argument_F2003

end module Caesar_F2003_Utils_Module