ROUTINE
-------

INT_ ug_io_case_name (char File_Name[],
                      char Case_Name[])

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

Extract the case name (with leading path if any) 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.

Case_Name                : File case name with file format suffix and file type
                           suffix removed (leading path if any will remain).
