ROUTINE
-------

INT_ ug_io_file_type_suffix (char File_Name[],
                             INT_ NDim,
                             char File_Type_Suffix[])

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

Extract file type suffix 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_Type_Suffix_        : File type suffix.
