/****************************************************************/
/*	fid_to_1r (fidto1r)	01.26.2000			*/
/*      copy fid to /pdata/1/ and rename fid to 1r              */
/*	This results to let FID show as dual display		*/
/****************************************************************/
/*	Short Description :					*/
/*	Performs "cp -f fid /pdata/1/1r",			*/
/*	edit ##$SI in /pdata/1/proc & procs to TD number	*/
/*	using "sed" command, modified at 08/14/00		*/
/****************************************************************/
/*	Author(s) :						*/
/*	Name		: Atsushi Asano				*/
/*	Organisation	: NDA (when I was in NIST)		*/
/*	Email		: asanoa@nda.ac.jp			*/
/****************************************************************/

/* --------------- copy fid to 1r */
GETCURDATA;
(void) sprintf(text,"cp -f %s/data/%s/nmr/%s/%d/fid %s/data/%s/nmr/%s/%d/pdata/1/1r", disk, user, name, expno, disk, user, name, expno);
Show_status(text);
sleep(1);
system(text);

/* --------------- edit proc & procs file */
/* --------------- "sed" allows to replace the value of SI in proc & procs => changes SI in edp */
/* --------------- even if the value is not power of 2 */
FETCHPAR("TD",&i1);
STOREPAR("SI",i1); 
FETCHPAR("SI",&i2)
(void) sprintf(text,"sed 's/##$SI= %i/##$SI= %i/g' %s/data/%s/nmr/%s/%d/pdata/1/proc > %s/data/%s/nmr/%s/%d/pdata/1/proc_1r", i2,i1,disk,user,name,expno,disk,user,name,expno); 
Show_status(text);
sleep(1);
system(text);
(void) sprintf(text,"cp -f %s/data/%s/nmr/%s/%d/pdata/1/proc_1r %s/data/%s/nmr/%s/%d/pdata/1/procs", disk, user, name, expno, disk, user, name, expno);
Show_status(text);
sleep(1);
system(text);
(void) sprintf(text,"cp -f %s/data/%s/nmr/%s/%d/pdata/1/proc_1r %s/data/%s/nmr/%s/%d/pdata/1/proc", disk, user, name, expno, disk, user, name, expno);
Show_status(text);
sleep(1);
system(text);

/* --------------- end */
QUITMSG("--- fid_to_1r finished ---");