C +-======-+ 
C  Copyright (c) 2003-2007 United States Government as represented by 
C  the Admistrator of the National Aeronautics and Space Administration.  
C  All Rights Reserved.
C  
C  THIS OPEN  SOURCE  AGREEMENT  ("AGREEMENT") DEFINES  THE  RIGHTS  OF USE,
C  REPRODUCTION,  DISTRIBUTION,  MODIFICATION AND REDISTRIBUTION OF CERTAIN 
C  COMPUTER SOFTWARE ORIGINALLY RELEASED BY THE UNITED STATES GOVERNMENT AS 
C  REPRESENTED BY THE GOVERNMENT AGENCY LISTED BELOW ("GOVERNMENT AGENCY").  
C  THE UNITED STATES GOVERNMENT, AS REPRESENTED BY GOVERNMENT AGENCY, IS AN 
C  INTENDED  THIRD-PARTY  BENEFICIARY  OF  ALL  SUBSEQUENT DISTRIBUTIONS OR 
C  REDISTRIBUTIONS  OF THE  SUBJECT  SOFTWARE.  ANYONE WHO USES, REPRODUCES, 
C  DISTRIBUTES, MODIFIES  OR REDISTRIBUTES THE SUBJECT SOFTWARE, AS DEFINED 
C  HEREIN, OR ANY PART THEREOF,  IS,  BY THAT ACTION, ACCEPTING IN FULL THE 
C  RESPONSIBILITIES AND OBLIGATIONS CONTAINED IN THIS AGREEMENT.
C  
C  Government Agency: National Aeronautics and Space Administration
C  Government Agency Original Software Designation: GSC-15354-1
C  Government Agency Original Software Title:  GEOS-5 GCM Modeling Software
C  User Registration Requested.  Please Visit http://opensource.gsfc.nasa.gov
C  Government Agency Point of Contact for Original Software:  
C  			Dale Hithon, SRA Assistant, (301) 286-2691
C  
C +-======-+ 
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!       NASA/GSFC, Data Assimilation Office, Code 910.3, GEOS/DAS      !
!-----------------------------------------------------------------------
!
!
! !PROGRAM:      zeit_usage
!
! !DESCRIPTION:  This program returns usage information about the particular
!                program that was called
!
! !USAGE:        zeit_usage(progname)
!                where:  progname    Name of called program
!                                    
      subroutine zeit_usage(progname)
      implicit none
      character*7 progname
      if(progname.eq.'zeit_pr')then
      print*,'Usage:     zeit_pr.x [-i fname] [-o out_fname] [-d] [-h]'
         print*,'-i         Indicate use of a users registry file'
         print*,'fname      Input registry file. Default is .zeit'
         print*,'-o         Indicate name of output file'
         print*,'out_fname  Output file to write current timings'
         print*,'           Default is standard output'
         print*,'-d         Option to remove registry when finished'
         print*,'-h         Option to print usage message'
      elseif(progname.eq.'zeit_ci')then
         print*,'Usage is:   zeit_ci.x [-r fname] [-v] [name]'
         print*,'-r fname    Time register file name,' 
         print*,'            default is .zeit'
         print*,'-v          Verbose mode: prints wallclock'
         print*,'            time'
         print*,'name        Name of program to be timed'
      elseif(progname.eq.'zeit_co')then
         print*,'Usage is:   zeit_co.x [-r fname] [-v] [name]'
         print*,'-r fname    Time register file name,' 
         print*,'            default is .zeit'
         print*,'-v          Verbose mode: prints wallclock'
         print*,'            time'
         print*,'name        Name of program to be timed'
      endif
      return
      stop
      end subroutine zeit_usage