/******************************************************************

              SUBROUTINE EXTRANAME
EXTRANAME CONSTRUCTS A FILE NAME WHICH POINTS TO A DIRECTORY WHICH
IS NOT PART OF THE MAIN DATA BASE FUNCTIONALITY (SUCH AS THE INFORMATION
DIRECTORY).  IT IS CONSTRUCTED AS FOLLOWS:

 /MAINBRANCH/EXTRA/XNAME

MAINBRANCH IS THE MAIN DIRECTORY PATH TO THE DATA BASE
EXTRA IS THE SUBDIRECTORY NAME
XNAME IS THE NAME OF THE FILE

*******************************************************************/

extraname_(

 char *extra,     /* SUBDIRECTORY NAME */

 char *xname,     /* FILE NAME */

 char *filename   /* CONSTRUCTED FILE NAME */

          )

{

    sprintf( filename, "%s%s/%s\0",MAINBRANCH,extra,xname);
/*    printf(" subdirectory: %s\n",extra);
    printf(" file name: %s\n",xname);
    printf(" constructed file name: %s\n",filename);
*/

}