Function:     GETCLA

Purpose:      Obtains a command line argument.

Category:     UTILITY

File:         getcla.src

Author:       K.G. Begeman

Use:          INTEGER GETCLA( ARGC ,       Input     INTEGER
                              ARGV )       Output    CHARACTER*(*)

              GETCLA    Returns number of command line arguments (excluding
                        the command name) or -1 on error.
              ARGC      The number of the desired command line argument;
                        the command name is argument number 0; the
                        remaining arguments are numbered beginning with 1.
              ARGV      The text of the specified command line argument.

Warning:      System dependent! Currently implemented for ALLIANT, ALPHA,
              CONVEX, CRAY, IBM AIX, SILICON GRAPHICS, SUN, MIPS, Linux
              and HP 9000.

Updates:      Jul  1, 1991: KGB, Document created.
              Jul  2, 1999: JPT, Added __g77__ option 3.
              Dec 19, 2008: JPT, Included gfortran code section.