ROUTINE
-------

INT_ ug_io_file_format (char File_Name[],
                        INT_ *File_Format_)

DESCRIPTION
-----------

Determine file format from a standard UG file name.

INPUT ARGUMENTS
---------------

File_Name                : File name.

RETURN VALUE
------------

0                        : No errors occurred determining file information.
<0                       : The file name is blank or NULL.
                           The return value will be between -600 and -699.
>0                       : Errors occurred determining file information.
                           The return value will be between 600 and 699.

OUTPUT ARGUMENTS
----------------

File_Name                : File name. If File_Name has a trailing dot, ".", the
                           dot will be ignored and removed on output.

File_Format_             : File format flag.
                           The numeric values associated with each file format
                           are defined in the include file, "UG_IO_File_Def.h".
