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

               SUBROUTINE CHECKWHICHDEPTHFILE

 CHECKWHICHDEPTHFILE CHECKS WHICH SET OF DEPTHS IS BEING USED
 AND PASSES THE NAME OF THE FILE OUT OF THE SUBROUTINE

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

checkwhichdepthfile_(

 char *depthset   /* NAME OF DEPTH SET TO USE */

            )


{

 FILE *fpcheck;
 int in_num,istrc=0;
 char filename[80];

/* GET INFORMATION ON WHICH SET OF STANDARD DEPTHS */

 if ( (fpcheck = fopen("whichdepthset.inf\0","r")) ==NULL ) {
  sprintf(filename,"%ssys.inf/whichdepthset.inf\0",MAINBRANCH);
  if ( (fpcheck = fopen(filename,"r")) ==NULL ) {
/*   printf(" unable to open %s\n",filename);
   return;
*/
  strcpy(depthset,"orig\0");
  istrc = 1;

  }

 }

 if ( istrc != 1 ) {
  fscanf(fpcheck,"%s",depthset);
  in_num= fclose(fpcheck);
 }

}