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

              SUBROUTINE MASKNAME

  MASKNAME CONSTRUCTS A FULL FILENAME FOR A MASK.

  THE FILE NAME IS CONSTRUCTED AS FOLLOWS:

/MAIN BRANCH DIRECTORY/PROBE TYPE/'MASKS'/PARAMETER TYPE/ FILENAME

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

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

maskname_(

 char *type,           /* REQUESTED FILE NAME */

 int *partype,         /* PARAMETER CODE NUMBER */

 char *filename,       /* CONSTRUCTED FILE NAME */

 int *ptype            /* PROBE CODE NUMBER */

          )


{

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

}