/****************************************************************/
/*	del_expno		09.6.2000			*/
/*      delete directory of expno #				*/
/****************************************************************/
/*	Short Description :					*/
/*	Performs "rm -r DIRECTORY/data/USER/nmr/NAME/#"		*/
/****************************************************************/
/*	Author(s) :						*/
/*	Name		: Atsushi Asano				*/
/*	Organisation	: NDA (when I was in NIST)		*/
/*	Email		: asanoa@nda.ac.jp			*/
/****************************************************************/

char ans[3];
GETCURDATA;
/*-- input # of delete ---*/
i1=999;
GETINT("Enter number of experiments TO DELETE : ",i1);
(void) sprintf(text," Delete expno#=%i",i1);
strcat(text," is OK ? (y/n) :");
strcpy(ans,"n");
GETSTRING(text,ans);

/*-- delete expno# directory --*/
if (!strcmp(ans,"y")) 
{
(void) sprintf(text,"rm -r %s/data/%s/nmr/%s/%d/", disk, user, name, i1);
Show_status(text);
sleep(2);
system(text);
}

/* --------------- end */
QUIT;