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

                      SUBROUTINE CNAME

  CNAME SETS THREE PARAMETER CHARACTER ARRAYS GLOBALLY IN C.

  THE THREE GLOBAL VARIABLES AND THEIR CORRESPONDING INPUT
  VARIABLES ARE:

   *PNAME (*NAME) - MAXIMUM FIFTEEN LETTER PARAMETER NAME INPUT FROM
                    PROBEFILE.D.  THIS ARRAY IS USED AS THE FILE
                    NAME UNDER WHICH THE ACTUAL DATA IS STORED AS
                    WELL AS A DIRECTORY NAME WHERE ALL MASK FILES
                    ARE STORED FOR EACH PROBE.

   *PNAME1 (*NAME1) - MAXIMUM THREE LETTER (USUALLY ONE LETTER)
                      PARAMETER CODE WHICH IS USED TO NAME AUXILARY
                      FILES SUCH AS ANALYZED DATA FILES.

   *PNAME4 (*NAME4) - MAXIMUM FOUR LETTER PARAMETER CODE WHICH IS
                      USED AS AN IDENTIFIER IN OUTPUT ASCII PROFILES. 

   MAXCALC IS THE MAXIMUM NUMBER OF MEASURED AND CALCULATED PARAMETERS
   WHICH CAN BE PROCESSED IN THE OCL SYSTEM.
  
****************************************************************/

  char *pname[maxlev];      
  char *pname1[maxlev];   
  char *pname4[maxlev];  



cname_( 

 char *name,         /* SEE DESCRIPTION ABOVE */

 char *name1,        /* SEE DESCRIPTION ABOVE */

 char *name4,        /* SEE DESCRIPTION ABOVE */

 int *n              /* PARAMETER CODE AS SET IN PROBEFILE.D */

       )


{

 pname[*n] = name;
 pname1[*n] = name1;
 pname4[*n] = name4;

}