//$1	mode selection: 1/2/3/4 = if/rt/srt-n/srt-w BASHD and 11/12/13/14 = if/rt/srt-n/srt-w ZS and 5/-5 = ts-bs/ts-nobs; and 6 = rt-HSQC; and 7 = PSYCHE

s1

$mode='srtACQ'
$shapename_a='kp_'+$mode+'_active'
$shapename_p='kp_'+$mode+'_passive'
$shapename_w='kp_'+$mode+'_soft90'

$shapename_d='kp_'+$mode+'_dec'
$shapename_b='kp_'+$mode+'_XBIP'

if ($#>0) then
		if ($1=1) then $mode='ifACQ' endif
		if ($1=2) then $mode='rtACQ' endif
		if ($1=3) then $mode='srtACQ-n' endif
		if ($1=4) then $mode='srtACQ-w' endif
		if ($1=6) then $mode='rtHSQC' endif
		if ($1=7) then $mode='PSYCHE' endif
		if ($1=11) then $mode='ifZS' endif
		if ($1=12) then $mode='rtZS' endif
		if ($1=13) then $mode='srtZS-n' endif
		if ($1=14) then $mode='srtZS-w' endif

		if ($1=5) then $mode='tsACQ-bs' endif
		if ($1=-5) then $mode='tsACQ-nobs' endif
	if (($1=5) or ($1=-5)) then

		if ($1=5) then $shapename_t='kp_tsACQ_bs' endif
		if ($1=-5) then $shapename_t='kp_tsACQ_nobs' endif
	$bandwidth_DEC_str='0.02'
	$kp_stepsize_t_str='10.0'
	$Poffset_str='1000' $Noffset_str='-1000'

	opx
	  format(kp_stepsize_t,0,2):$kp_stepsize_t_str
	
	$i=1 $j=1
	repeat
	     format(bw_t[$j],0,4):$bandwidth_DEC_str
	     format(offset[$i],0,1):$Poffset_str
	     format(-offset[$i],0,1):$Noffset_str
	     setwave(kp_wave_t+' '+$bandwidth_DEC_str+' '+$Poffset_str)
	if ($1=5) then
	     setwave(kp_wave_t+' '+$bandwidth_DEC_str+' '+$Noffset_str)
	endif
	     $i=$i+1 $j=$j+1
		if ($j>size('bw_t')) then $j=1 endif
	until ($i>size('offset'))
	
	  pboxpar('stepsize',$kp_stepsize_t_str)
	  pboxpar('reps',4)
	  pboxpar('sucyc',kp_scyc)
	if ($1=5) then
	  pboxpar('bscor','y')
	endif
	  pboxpar('dcyc',dutyc)
	  pboxpar('ref_pw90',ref_pw90)
	  pboxpar('ref_pwr',ref_pwr)
	  pboxpar('name',$shapename_t)
	cpx
	pboxget($shapename_t+'.DEC'):hdseq,$pw_homodec,hdpwr,$pwrf_homodec,hdres,hdmf
	hdof=0 
	else
	  if ($1=6) then
	if (BIRDmode='n') then

	$shapename_a='kp_'+$mode+'_active'

	$bandwidth_str='500.0'
	$kp_phincr_a_str='0.0'
	$kp_beta_a_str='180.0'
	$kp_stepsize_a_str='2.5'
	$offset_str='0'

	opx($shapename_a)
	  format(kp_phincr_a,0,3):$kp_phincr_a_str
	  format(kp_beta_a,0,1):$kp_beta_a_str
	  format(kp_stepsize_a,0,2):$kp_stepsize_a_str
	
	$i=1 $j=1
	repeat
	     format(bw_a[$j],0,1):$bandwidth_str
	     format(offset[$i],0,1):$offset_str	     
	     setwave(kp_wave_a+' '+$bandwidth_str+' '+$offset_str+' 1 '+$kp_phincr_a_str+' '+$kp_beta_a_str)
	     $i=$i+1 $j=$j+1
		if ($j>size('bw_a')) then $j=1 endif
	until ($i>size('offset'))

	  pboxpar('stepsize',$kp_stepsize_a_str)
	  pboxpar('reps',4)
	if (size('offset')>1) then pboxpar('bscor','y') endif
	  pboxpar('ref_pw90',ref_pw90)
	  pboxpar('ref_pwr',ref_pwr)
	  pboxpar('name',$shapename_a)
	cpx
	pbox_pw($shapename_a+'.RF'):pw180_a
	pbox_pwr($shapename_a+'.RF'):pwr180_a
	shp_a=$shapename_a
	endif
	if (BIRDmode='b') then
	$shapename_b='kp_'+$mode+'_XBIP'
	exists('ACQ_pwx','parameter'):$e
	if $e=0 then 
		UoM_bip125($shapename_b,pwxlvl,pwx):shp_XBIP,pwr_XBIP,pw_XBIP
	else 
		UoM_bip125($shapename_b,ACQ_pwxlvl,ACQ_pwx):shp_XBIP,pwr_XBIP,pw_XBIP
	endif

	endif
	$shapename_d='kp_'+$mode+'_dec'

	$bandwidth_str='25000.0'
	$kp_pw_d_str='0.0012'
	$kp_phincr_d_str='0.0'
	$kp_beta_d_str='180.0'
	$kp_stepsize_d_str='2.5'

	opx
	  format(bw_d,0,1):$bandwidth_str
	  format(kp_pw_d/1000000,0,6):$kp_pw_d_str
	  format(kp_phincr_d,0,3):$kp_phincr_d_str
	  format(kp_beta_d,0,1):$kp_beta_d_str
	  format(kp_stepsize_d,0,2):$kp_stepsize_d_str
	
	  setwave(kp_wave_d+' '+$bandwidth_str+'/'+$kp_pw_d_str+' 0.0 0.0 '+$kp_phincr_d_str+' '+$kp_beta_d_str)

	  pboxpar('stepsize',$kp_stepsize_d_str)
	  pboxpar('sucyc',kp_scyc_d)
	  pboxpar('reps',4)
	  pboxpar('ref_pw90',pwx)
	  pboxpar('ref_pwr',pwxlvl)
	  pboxpar('name',$shapename_d+'.DEC')
	cpx
	pboxget($shapename_d+'.DEC'):dseq,$pw_dec,dpwr,$pwrf_dec,dres,dmf
	  else
		if ($1=7) then

		$shapename_a='kp_'+$mode+'_active'
	$bandwidth_str='10000.0'
	$plength_str='0.015'
	$kp_beta_a_str='4.0'
	$kp_stepsize_a_str='1.0'
	kp_wave_a='psyche'

	opx($shapename_a)
	  format(pw180_a/1000000/2,0,6):$plength_str
	  format(kp_beta_a,0,1):$kp_beta_a_str
	  format(kp_stepsize_a,0,2):$kp_stepsize_a_str

	$i=1
	repeat
	     format(bw_a[$i],0,1):$bandwidth_str
	     setwave(kp_wave_a+' '+$bandwidth_str+'/'+$plength_str+' 0 0.5 a2 '+$kp_beta_a_str)
	     $i=$i+1 
	until ($i>size('bw_a'))

	  pboxpar('stepsize',$kp_stepsize_a_str)
	  pboxpar('reps',4)
	  pboxpar('ref_pw90',ref_pw90)
	  pboxpar('ref_pwr',ref_pwr)
	  pboxpar('name',$shapename_a)
	cpx
	pbox_pw($shapename_a+'.RF'):pw180_a
	pbox_pwr($shapename_a+'.RF'):pwr180_a
	shp_a=$shapename_a
			exists('shp_bb','parameter'):$e
			if $e>0 then

		$shapename_bb=shp_bb
		$shapename_bbR=shp_bbR
	$bandwidth_str='10000.0'
	$plength_str='0.001'
	$kp_stepsize_bb_str='1.0'

	opx($shapename_bb)
	  format(bw_bb,0,1):$bandwidth_str
	  format(pw180_bb/1000000,0,6):$plength_str
	  format(kp_stepsize_bb,0,2):$kp_stepsize_bb_str

	  setwave(kp_wave_bb+' '+$bandwidth_str+'/'+$plength_str)

	  pboxpar('stepsize',$kp_stepsize_bb_str)
	  pboxpar('reps',4)
	  pboxpar('ref_pw90',ref_pw90)
	  pboxpar('ref_pwr',ref_pwr)
	  pboxpar('name',$shapename_bb)
	cpx
	opx($shapename_bbR)
	  format(-bw_bb,0,1):$bandwidth_str
	  format(pw180_bb/1000000,0,6):$plength_str
	  format(kp_stepsize_bb,0,2):$kp_stepsize_bb_str

	  setwave(kp_wave_bb+' '+$bandwidth_str+'/'+$plength_str)

	  pboxpar('stepsize',$kp_stepsize_bb_str)
	  pboxpar('reps',4)
	  pboxpar('ref_pw90',ref_pw90)
	  pboxpar('ref_pwr',ref_pwr)
	  pboxpar('name',$shapename_bbR)
	cpx
	pbox_pw($shapename_bb+'.RF'):pw180_bb
	pbox_pwr($shapename_bb+'.RF'):pwr180_bb
	shp_bb=$shapename_bb
	shp_bbR=$shapename_bbR
			endif 
 
		else
		$shapename_a='kp_'+$mode+'_active'
	$bandwidth_str='500.0'
	$kp_phincr_a_str='0.0'
	$kp_beta_a_str='180.0'
	$kp_stepsize_a_str='2.5'
	$offset_str='0'

	opx($shapename_a)
	  format(kp_phincr_a,0,3):$kp_phincr_a_str
	  format(kp_beta_a,0,1):$kp_beta_a_str
	  format(kp_stepsize_a,0,2):$kp_stepsize_a_str
	$i=1 $j=1
	repeat
	     format(bw_a[$j],0,1):$bandwidth_str
	     format(offset[$i],0,1):$offset_str	     
	     setwave(kp_wave_a+' '+$bandwidth_str+' '+$offset_str+' 1 '+$kp_phincr_a_str+' '+$kp_beta_a_str)
	     $i=$i+1 $j=$j+1
		if ($j>size('bw_a')) then $j=1 endif
	until ($i>size('offset'))

	  pboxpar('stepsize',$kp_stepsize_a_str)
	  pboxpar('reps',4)
	if (size('offset')>1) then pboxpar('bscor','y') endif
	  pboxpar('ref_pw90',ref_pw90)
	  pboxpar('ref_pwr',ref_pwr)
	  pboxpar('name',$shapename_a)
	cpx
	pbox_pw($shapename_a+'.RF'):pw180_a
	pbox_pwr($shapename_a+'.RF'):pwr180_a
	shp_a=$shapename_a
		endif
	endif
	if ($1=3) then 
		$mode='srtACQ-n'
		$shapename_p='kp_'+$mode+'_passive'

		$bandwidth_DEC_str='50'
		$kp_beta_p_str='180.0'
		format(kp_beta_p,0,1):$kp_beta_p_str
		$Poffset_str='1000' $Noffset_str='-1000'
		$kp_stepsize_p_str='2.5'
		opx($shapename_p)
		  $i=1 $j=1
		  repeat
		     format(bw_p[$j],0,1):$bandwidth_DEC_str
		     format(offset[$i],0,1):$Poffset_str
		     format(-offset[$i],0,1):$Noffset_str
		     setwave(kp_wave_p+' '+$bandwidth_DEC_str+' '+$Poffset_str+' 1 0.0 '+$kp_beta_p_str)
		     setwave(kp_wave_p+' '+$bandwidth_DEC_str+' '+$Noffset_str+' 1 180.0 '+$kp_beta_p_str)
		    $i=$i+1 $j=$j+1
			if ($j>size('bw_p')) then $j=1 endif
		  until ($i>size('offset'))

		  pboxpar('bscor','y')
		  format(kp_stepsize_p,0,2):$kp_stepsize_p_str
		  pboxpar('stepsize',$kp_stepsize_p_str)
		  pboxpar('reps',4)
		  pboxpar('ref_pw90',ref_pw90)
		  pboxpar('ref_pwr',ref_pwr)
		  pboxpar('name',$shapename_p)
		cpx
	pbox_pw($shapename_p+'.RF'):pw180_p
	pbox_pwr($shapename_p+'.RF'):pwr180_p
	shp_p=$shapename_p
	endif
	if ($1=13) then 
		$mode='srtACQ-nZS'
		$shapename_p='kp_'+$mode+'_passive'

		$bandwidth_DEC_str='0.01850'
		$Poffset_str='1000' $Noffset_str='-1000'
		$kp_stepsize_p_str='2.5'
		opx($shapename_p)
		  $i=1 $j=1
		  repeat
		     format((pw180_p[$j]-kp_pfgtc)/1000000,0,7):$bandwidth_DEC_str
		     format(offset[$i],0,1):$Poffset_str
		     format(-offset[$i],0,1):$Noffset_str
		     setwave(kp_wave_p+' '+$bandwidth_DEC_str+' '+$Poffset_str+' 1 0.0')
		     setwave(kp_wave_p+' '+$bandwidth_DEC_str+' '+$Noffset_str+' 1 180.0')
		    $i=$i+1 $j=$j+1
			if ($j>size('bw_p')) then $j=1 endif
		  until ($i>size('offset'))

		  pboxpar('bscor','y')
		  format(kp_stepsize_p,0,2):$kp_stepsize_p_str
		  pboxpar('stepsize',$kp_stepsize_p_str)
		  pboxpar('reps',4)
		  pboxpar('ref_pw90',ref_pw90)
		  pboxpar('ref_pwr',ref_pwr)
		  pboxpar('name',$shapename_p)
		cpx
	pbox_pw($shapename_p+'.RF'):pw180_p
	pbox_pwr($shapename_p+'.RF'):pwr180_p
	shp_p=$shapename_p
	endif
	if ($1=4) then 
		$mode='srtACQ-w'
		$shapename_w='kp_'+$mode+'_passive'

		$bandwidth_str='200.0'
		$kp_phincr_w_str='0.0'
		$kp_beta_w_str='90.0'

		opx($shapename_w)
		  format(bw_w,0,1):$bandwidth_str
		  format(kp_phincr_w,0,3):$kp_phincr_w_str
		  format(kp_beta_w,0,1):$kp_beta_w_str
		  setwave(kp_wave_w+' '+$bandwidth_str+' 0 1 '+$kp_phincr_w_str+' '+$kp_beta_w_str)
		  pboxpar('reps',4)
		  pboxpar('ref_pw90',ref_pw90)
		  pboxpar('ref_pwr',ref_pwr)
		  pboxpar('name',$shapename_w)


		cpx
	pbox_pw($shapename_w+'.RF'):pw90_w
	pbox_pwr($shapename_w+'.RF'):pwr90_w
	shp_w=$shapename_w

	endif
	if ($1=14) then 
		$mode='srtACQ-w'
		$shapename_w='kp_'+$mode+'_passive'

		$bandwidth_str='0.005'
		$kp_phincr_w_str='0.0'
		$kp_beta_w_str='90.0'

		opx($shapename_w)

		  format((pw90_w-kp_pfgtc)/1000000,0,7):$bandwidth_str
		  format(kp_phincr_w,0,3):$kp_phincr_w_str
		  format(kp_beta_w,0,1):$kp_beta_w_str
		  setwave(kp_wave_w+' '+$bandwidth_str+' 0 1 '+$kp_phincr_w_str+' '+$kp_beta_w_str)
		  pboxpar('reps',4)
		  pboxpar('ref_pw90',ref_pw90)
		  pboxpar('ref_pwr',ref_pwr)
		  pboxpar('name',$shapename_w)
		cpx
	pbox_pw($shapename_w+'.RF'):pw90_w
	pbox_pwr($shapename_w+'.RF'):pwr90_w
	shp_w=$shapename_w
	endif
endif

endif

r1


exists('d2','parameter'):$e
if ($e<>0) then d2=0 endif

if (($1=2) or ($1=12)) then
	exists('ni','parameter'):$e
	if $e=1 then ni=0 endif 
	exists('phase','parameter'):$e
	if $e=1 then phase=0 endif 
endif
if ($1=3) then
	BIRDmode='n' gzlvl7=0
endif
if ($1=13) then
	BIRDmode='n' if (gzlvl7=0) then gzlvl7=600 endif
endif
if ($1=4) then
	BIRDmode='w' gzlvl7=0
endif
if ($1=14) then
	BIRDmode='w' if (gzlvl7=0) then gzlvl7=600 endif
endif

groupcopy('current','processed','acquisition')


