ROUTINE
-------

INT_ ug_io_file_type (char File_Name[],
                      INT_ NDim,
                      INT_ *File_Data_Type_)

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

Determine the file type from a standard UG file name.

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

File_Name                : File name.

NDim                     : Geometry dimension flag.
                           If NDim = 2 then the geometry is 2D.
                           If NDim = 3 then the geometry is 3D.

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_Data_Type_          : File data type flag.
                           The numeric values associated with each file data
                           type are defined in the include file,
                           "UG_IO_File_Def.h".
