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

              SUBROUTINE DENSESURFFILENAME

  DENSESURFFILENAME CONSTRUCTS A FULL FILENAME FOR A VARIABLE ON
  A DENSITY SURFACE.

  THE FILE NAME IS CONSTRUCTED AS FOLLOWS:

/MAIN BRANCH DIRECTORY/PROBE TYPE/'DENSESURF'/FILENAME

 MAIN BRANCH DIRECTORY IS A GLOBAL CONSTANT.
 PROBE TYPE IS A GLOBAL C CHARACTER ARRAY TAKEN FROM PROBEFILE.D
 FILENAME CONTAINS A PARAMETER TYPE WHICH IS ALSO A GLOBAL C ARRAY
 FROM PROBEFILE.D
 FILE NAME IS USER INPUT FILE NAME

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

densesurffilename_(

 char *type,           /* REQUESTED FILE NAME */

 int *ptype,           /* PROBE CODE NUMBER */

 char *filename        /* CONSTRUCTED FILE NAME */

          )


{

 sprintf( filename,"%sdata/%s/densesurf/%s\0",MAINBRANCH,
    probename_[*ptype],type);

}