seqfil = 'c7inadwdumbogen2d'

//------------------------------
// Receiver Delays
//------------------------------

exists('rd','parameter'):$e
if $e < 0.5 then
   create('rd','pulse')
   setlimit('rd',8192,0,0.0125)  
endif 

exists('ad','parameter'):$e
if $e < 0.5 then
   create('ad','pulse')
   setlimit('ad',8192,0,0.0125)  
endif

exists('ddrtc','parameter'):$e
if $e < 0.5 then
   create('ddrtc','pulse')
   setlimit('ddrtc',8192,0,0.0125)  
endif

exists('rof3','parameter'):$e
if $e < 0.5 then
   create('rof3','pulse')
   setlimit('rof3',8192,0,0.0125)  
endif

//------------------------------
// Spin Rate
//------------------------------

exists('srate','parameter'):$e
if $e < 0.5 then
   create('srate','frequency')
endif 

exists('hsrotor','parameter'):$e
if $e < 0.5 then
   create('hsrotor','flag') 
endif

//------------------------------
// Basic Transmitter Properties
//------------------------------

exists('aX90','parameter'):$e
if $e < 0.5 then
   create('aX90','real')
   setlimit('aX90',4095,0,0)  
endif 

exists('aH90','parameter'):$e
if $e < 0.5 then
   create('aH90','real')
   setlimit('aH90',4095,0,0)  
endif 

exists('aY90','parameter'):$e
if $e < 0.5 then
   create('aY90','real')
   setlimit('aY90',4095,0,0)  
endif

exists('aZ90','parameter'):$e
if $e < 0.5 then
   create('aZ90','real')
   setlimit('aZ90',4095,0,0)  
endif

exists('pwX90','parameter'):$e
if $e < 0.5 then
   create('pwX90','pulse')
   setlimit('pwX90',8192,0,0.0125)
endif 

exists('pwH90','parameter'):$e
if $e < 0.5 then
   create('pwH90','pulse')
   setlimit('pwH90',8192,0,0.0125)
endif 

exists('pwY90','parameter'):$e
if $e < 0.5 then
   create('pwY90','pulse')
   setlimit('pwY90',8192,0,0.0125)
endif

exists('pwZ90','parameter'):$e
if $e < 0.5 then
   create('pwZ90','pulse')
   setlimit('pwZ90',8192,0,0.0125)
endif

//---------------
// cpHX elements
//---------------

exists('shHX','parameter'):$e
if $e < 0.5 then
    create('shHX','flag')
endif

exists('toHX','parameter'):$e
if $e < 0.5 then
   create('toHX','flag')
endif 
setvalue('toHX','obs')

exists('frHX','parameter'):$e
if $e < 0.5 then
   create('frHX','flag')
endif
setvalue('frHX','dec')  

exists('chHX','parameter'):$e
if $e < 0.5 then
   create('chHX','flag')
endif 

exists('aHhx','parameter'):$e
if $e < 0.5 then
   create('aHhx','real')
   setlimit('aHhx',4095,0,0)
endif 

exists('aXhx','parameter'):$e
if $e < 0.5 then
   create('aXhx','real')
   setlimit('aXhx',4095,0,0)
endif 

exists('bHX','parameter'):$e
if $e < 0.5 then
   create('bHX','real')
   setlimit('bHX',1000000,0,1.0e-6)
endif 

exists('dHX','parameter'):$e
if $e < 0.5 then
   create('dHX','real')
   setlimit('dHX',4095,-4095,1)
endif 

exists('tHX','parameter'):$e
if $e < 0.5 then
   create('tHX','pulse')
   setlimit('tHX',50000,0,0.0125)
endif

exists('ofHX','parameter'):$e
if $e < 0.5 then
    create('ofHX','frequency')
endif  

//=====================
// decoupling options
//======================

exists('Hseq','parameter'):$e
if $e < 0.5 then
    create('Hseq','flag')
endif

//-----------
// tppm
//-----------

exists('aHtppm','parameter'):$e
if $e < 0.5 then
    create('aHtppm','real')
    setlimit('aHtppm',4095,0,0)
endif

exists('pwHtppm','parameter'):$e
if $e < 0.5 then
    create('pwHtppm','pulse')
    setlimit('pwHtppm',8192,0,0.0125)
endif

exists('phHtppm','parameter'):$e
if $e < 0.5 then
    create('phHtppm','real')
    setlimit('phHtppm',180,-180,0.0438)
endif

exists('chHtppm','parameter'):$e
if $e < 0.5 then
   create('chHtppm','flag')
endif 
setvalue('chHtppm','dec')

//------------------------------
//  spinal 
//------------------------------

exists('aHspinal','parameter'):$e
if $e < 0.5 then
    create('aHspinal','real')
    setlimit('aHspinal',4095,0,0)
endif

exists('pwHspinal','parameter'):$e
if $e < 0.5 then
    create('pwHspinal','pulse')
    setlimit('pwHspinal',8192,0,0.0125)
endif

exists('phHspinal','parameter'):$e
if $e < 0.5 then
    create('phHspinal','real')
    setlimit('phHspinal',180,-180,0.0438)
endif

exists('chHspinal','parameter'):$e
if $e < 0.5 then
   create('chHspinal','flag')
endif 
setvalue('chHspinal','dec')

//------------------------------
//  X Tilt Pulse
//------------------------------

exists('pwXtilt','parameter'):$e
if $e < 0.5 then
    create('pwXtilt','pulse')
    setlimit('pwXtilt',8192,0,0.0125)
endif

//------------------------------
//  Prep Pulse 
//------------------------------

exists('aXprep','parameter'):$e
if $e < 0.5 then
    create('aXprep','real')
    setlimit('aXprep',4095,0,0)
endif

exists('pwXprep','parameter'):$e
if $e < 0.5 then
    create('pwXprep','pulse')
    setlimit('pwXprep',8192,0,0.0125)
endif

exists('phXprep','parameter'):$e
if $e < 0.5 then
    create('phXprep','real')
    setlimit('phXprep',180,-180,0.0438)
endif

//------------------------------
//  X WDUMBO 
//------------------------------

exists('npaXwdumbo','parameter'):$e
if $e < 0.5 then
    create('npaXwdumbo','real')
    setlimit('npaXwdumbo',4095,0,0)
endif

exists('aXwdumbo','parameter'):$e
if $e < 0.5 then
    create('aXwdumbo','real')
    setlimit('aXwdumbo',4095,0,0)
endif

exists('r1Xwdumbo','parameter'):$e
if $e < 0.5 then
    create('r1Xwdumbo','pulse')
    setlimit('r1Xwdumbo',8192,0,0.0125)
endif

exists('pwXwdumbo','parameter'):$e
if $e < 0.5 then
    create('pwXwdumbo','pulse')
    setlimit('pwXwdumbo',8192,0,0.0125)
endif

exists('r2Xwdumbo','parameter'):$e
if $e < 0.5 then
    create('r2Xwdumbo','pulse')
    setlimit('r2Xwdumbo',8192,0,0.0125)
endif

exists('r3Xwdumbo','parameter'):$e
if $e < 0.5 then
    create('r3Xwdumbo','pulse')
    setlimit('r3Xwdumbo',8192,0,0.0125)
endif

exists('tauXwdumbo','parameter'):$e
if $e < 0.5 then
    create('tauXwdumbo','pulse')
    setlimit('tauXwdumbo',8192,0,0.0125)
endif

exists('chXwdumbo','parameter'):$e
if $e < 0.5 then
   create('chXwdumbo','flag')
endif 
setvalue('chXwdumbo','obs')

exists('phXwdumbo','parameter'):$e
if $e < 0.5 then
   create('phXwdumbo','real')
   setlimit('phXwdumbo',180,-180,0.0438)
endif 

//-------------------------------
// DUMBO Coefficients dcf1X
//------------------------------

exists('qXdcf1','parameter'):$e
if $e < 0.5 then
   create('qXdcf1','real')
   setlimit('qXdcf1',8192,0,0.0125)
   qXdcf1=64
endif

exists('scXdcf1','parameter'):$e
if $e < 0.5 then
   create('scXdcf1','real')
   setlimit('scXdcf1',1,0,0.0125)
   scXdcf1=1
endif

exists('ca1Xdcf1','parameter'):$e
if $e < 0.5 then
   create('ca1Xdcf1','real')
endif 

exists('ca2Xdcf1','parameter'):$e
if $e < 0.5 then
   create('ca2Xdcf1','real')
endif 

exists('ca3Xdcf1','parameter'):$e
if $e < 0.5 then
   create('ca3Xdcf1','real')
endif

exists('ca4Xdcf1','parameter'):$e
if $e < 0.5 then
   create('ca4Xdcf1','real')
endif

exists('ca5Xdcf1','parameter'):$e
if $e < 0.5 then
   create('ca5Xdcf1','real')
endif

exists('ca6Xdcf1','parameter'):$e
if $e < 0.5 then
   create('ca6Xdcf1','real')
endif

exists('cb1Xdcf1','parameter'):$e
if $e < 0.5 then
   create('cb1Xdcf1','real')
endif 

exists('cb2Xdcf1','parameter'):$e
if $e < 0.5 then
   create('cb2Xdcf1','real')
endif 

exists('cb3Xdcf1','parameter'):$e
if $e < 0.5 then
   create('cb3Xdcf1','real')
endif

exists('cb4Xdcf1','parameter'):$e
if $e < 0.5 then
   create('cb4Xdcf1','real')
endif

exists('cb5Xdcf1','parameter'):$e
if $e < 0.5 then
   create('cb5Xdcf1','real')
endif

exists('cb6Xdcf1','parameter'):$e
if $e < 0.5 then
   create('cb6Xdcf1','real')
endif


//-------------------------------
// DUMBO Coefficients dcfX
//------------------------------

exists('qXdcf','parameter'):$e
if $e < 0.5 then
   create('qXdcf','real')
   setlimit('qXdcf',8192,0,0.0125)
   qXdcf=64
endif

exists('scXdcf','parameter'):$e
if $e < 0.5 then
   create('scXdcf','real')
   setlimit('scXdcf',1,0,0.0125)
   scXdcf=1
endif

exists('ca1Xdcf','parameter'):$e
if $e < 0.5 then
   create('ca1Xdcf','real')
endif 

exists('ca2Xdcf','parameter'):$e
if $e < 0.5 then
   create('ca2Xdcf','real')
endif 

exists('ca3Xdcf','parameter'):$e
if $e < 0.5 then
   create('ca3Xdcf','real')
endif

exists('ca4Xdcf','parameter'):$e
if $e < 0.5 then
   create('ca4Xdcf','real')
endif

exists('ca5Xdcf','parameter'):$e
if $e < 0.5 then
   create('ca5Xdcf','real')
endif

exists('ca6Xdcf','parameter'):$e
if $e < 0.5 then
   create('ca6Xdcf','real')
endif

exists('cb1Xdcf','parameter'):$e
if $e < 0.5 then
   create('cb1Xdcf','real')
endif 

exists('cb2Xdcf','parameter'):$e
if $e < 0.5 then
   create('cb2Xdcf','real')
endif 

exists('cb3Xdcf','parameter'):$e
if $e < 0.5 then
   create('cb3Xdcf','real')
endif

exists('cb4Xdcf','parameter'):$e
if $e < 0.5 then
   create('cb4Xdcf','real')
endif

exists('cb5Xdcf','parameter'):$e
if $e < 0.5 then
   create('cb5Xdcf','real')
endif

exists('cb6Xdcf','parameter'):$e
if $e < 0.5 then
   create('cb6Xdcf','real')
endif

//==================
// X dumbogen ELEMENTS
//==================

exists('nXdumbo','parameter'):$e
if $e < 0.5 then
   create('nXdumbo','real')
   setlimit('nXdumbo',512,0,1)
endif 

exists('chXdumbo','parameter'):$e
if $e < 0.5 then
   create('chXdumbo','flag')
endif 
setvalue('chXdumbo','obs')

exists('ofXdumbo','parameter'):$e
if $e < 0.5 then
   create('ofXdumbo','frequency')
endif 

exists('aXdumbo','parameter'):$e
if $e < 0.5 then
   create('aXdumbo','real')
   setlimit('aXdumbo',4095,0,0)
endif 

exists('pwXdumbo','parameter'):$e
if $e < 0.5 then
   create('pwXdumbo','pulse')
   setlimit('pwXdumbo',8192,0,0.0125)
endif 

exists('phXdumbo','parameter'):$e
if $e < 0.5 then
    create('phXdumbo','real')
    setlimit('phXdumbo',180,-180,0.0438)
endif

//==================
// C7 ELEMENTS
//==================

exists('qXc7','parameter'):$e
if $e < 0.5 then
   create('qXc7','real')
   setlimit('qXc7',64,0,1)
   qXc7 = 7.0
endif 

exists('chXc7','parameter'):$e
if $e < 0.5 then
   create('chXc7','flag')
endif 
setvalue('chXc7','obs')

exists('ofXc7','parameter'):$e
if $e < 0.5 then
   create('ofXc7','frequency')
endif 

exists('aXc7','parameter'):$e
if $e < 0.5 then
   create('aXc7','real')
   setlimit('aXc7',4095,0,0)
endif 

exists('pwXc7','parameter'):$e
if $e < 0.5 then
   create('pwXc7','pulse')
   setlimit('pwXc7',8192,0,0.0125)
endif 

//==============================
//  zfX 
//==============================

exists('tXzf','parameter'):$e
if $e < 0.5 then
   create('tXzf','pulse')
   setlimit('tXzf',8192,0,0.0125)
endif 

//==================
// Additional ELEMENTS
//==================

exists('scalesw1','parameter'):$e
if $e < 0.5 then
   create('scalesw1')
   setgroup('scalesw1','processing')
   scalesw1 = sqrt(3)
endif 

exists('scalesw','parameter'):$e
if $e < 0.5 then
   create('scalesw')
   setgroup('scalesw','processing')
   scalesw = sqrt(3)
endif 

exists('refsource1','parameter'):$e
if $e < 0.5 then
   create('refsource1','string')
   setgroup('refsource1','processing')
   refsource1 = 'sfrq'
endif 

exists('axis','parameter'):$e
if $e < 0.5 then
   create('axis','string')
   setgroup('axis','processing')
   axis = 'pp'
endif 

// --------------------------------------------------
// Set parameters specific to the experiment
// --------------------------------------------------

exists('wrtp','parameter'):$e
if ($e < 0.5) then 
   create('wrtp','string')
endif
wrtp = 'reset_c7inadwdumbogen2d '
reset_c7inadwdumbogen2d

//------------------------------------------------
//  Set Bit 14 for new parameters of the .par file 
//------------------------------------------------

$params = 'npaXwdumbo aXwdumbo r1Xwdumbo pwXwdumbo phXwdumbo ' 
$params = $params + 'r2Xwdumbo r3Xwdumbo tauXwdumbo chXwdumbo '
$params = $params + 'nXdumbo chXdumbo ofXdumbo aXdumbo pwXdumbo phXdumbo wrtp scXdcf qXdcf '
$params = $params + 'ca1Xdcf ca2Xdcf ca3Xdcf ca4Xdcf ca5Xdcf ca6Xdcf '
$params = $params + 'cb1Xdcf cb2Xdcf cb3Xdcf cb4Xdcf cb5Xdcf cb6Xdcf '
$params = $params + 'rof3 pwXtilt '
$params = $params + 'qXc7 chXc7 ofXc7 aXc7 pwXc7 tXzf wrtp '
$params = $params + 'scalesw1 axis refsource1 scalesw pwXprep aXprep phXprep'
setprotect('','clear',16384)
setprotect($params,'on',16384)

//------------------------------------------------
//  Set the parameter templates
//------------------------------------------------

setprotect('dg','clear',4)
$dg = '1:ACQUISITION:sw:1,at:6,np:0,d1:6,nt:0,ct:0,bs:0,'
$dg = $dg + 'ss:0,rd:1,ad:1,ddrtc:1,rof3(rof3):1,gain:0,temp:0,srate:1;'
$dg = $dg + '2:dumboX:nXdumbo:0,aXdumbo:0,pwXdumbo:1,phXdumbo:2,ofXdumbo:1;'
$dg = $dg + '2:wdumboX:aXwdumbo:0,npaXwdumbo:0,r1Xwdumbo:1,'
$dg = $dg + 'phXwdumbo:2,r2Xwdumbo:1,r3Xwdumbo:1,tauXwdumbo:1;'
$dg = $dg + '3:dcfX:ca1Xdcf:4,ca2Xdcf:4,ca3Xdcf:4,ca4Xdcf:4,ca5Xdcf:4,ca6Xdcf:4,'
$dg = $dg + 'cb1Xdcf:4,cb2Xdcf:4,cb3Xdcf:4,cb4Xdcf:4,cb5Xdcf:4,cb6Xdcf:4,qXdcf:0;'
$dg = $dg + '4:c7X:aXc7:0,pwXc7:1,qXc7:0,ofXc7:1,tXzf:1,pwXtilt:1;'
dg = $dg
setprotect('dg','on',4)

setprotect('dg2','clear',4)
$dg2 = '1:OBSERVE:tn,sfrq:6,tof:1,tpwr:0,aX90:0,pwX90:1;'
$dg2=$dg2+'2:DECOUPLE:dn,dfrq:6,dof:1,dpwr:0,aH90:0,pwH90:1;'
$dg2=$dg2+'3:DECOUPLE2:dn2,dfrq2:6,dof2:1,dpwr2:0,aY90:0,pwY90:1;'
$dg2=$dg2+'4:DECOUPLE3:dn3,dfrq3:6,dof3:1,dpwr3:0,aZ90:0,pwZ90:1;'
dg2 = $dg2
setprotect('dg2','on',4)

setprotect('ap','clear',4)
$ap = '1:SAMPLE:date,temp:1,srate:1,file;'
$ap = $ap + '1:ACQUISITION:tn,sfrq:6,tof:1,tpwr:0,sw:1,at:6,np:0,d1:6,nt:0,ct:0,ss:0,rd:1,ad:1,aX90:0,pwX90:1;'
$ap = $ap + '1(ni):2D ACQUISITION:d2:6,sw1:1,ni:0,phase:0;'
$ap = $ap + '1:DECOUPLE:dn,dfrq:6,dof:1,dpwr:0,aH90:0,pwH90:1;'
$ap = $ap + '1(dfrq2>0):DECOUPLE2:dn2,dfrq2:6,dof2:1,dpwr2:0,aY90:0,pwY90:1;'
$ap = $ap + '1(dfrq3>0):DECOUPLE3:dn3,dfrq3:6,dof3:1,dpwr3:0,aZ90:0,pwZ90:1;'
$ap = $ap + '2:wdumboX:aXwdumbo:0,npaXwdumbo:0,r1Xwdumbo:1,'
$ap = $ap + 'r2Xwdumbo:1,r3Xwdumbo:1,tauXwdumbo:1;'
$ap = $ap + '2:dumboX:nXdumbo:0,aXdumbo:0,pwXdumbo:1,phXdumbo:2,ofXdumbo:1;'
$ap = $ap + '2:dcfX:ca1Xdcf:4,ca2Xdcf:4,ca3Xdcf:4,ca4Xdcf:4,ca5Xdcf:4,ca6Xdcf:4,'
$ap = $ap + 'cb1Xdcf:4,cb2Xdcf:4,cb3Xdcf:4,cb4Xdcf:4,cb5Xdcf:4,cb6Xdcf:4,qXdcf:0;'
$ap = $ap + '2:c7X:aXc7:0,pwXc7:1,qXc7:0,ofXc7:1,tXzf:1,pwXtilt;'
$ap = $ap + '2:PROCESSING:fn:0,phfid:2,rp:2,lp:2,lsfrq(lsfrq):1,lb(lb):1,sb(sb):3,sbs(sb):3,'
$ap = $ap + 'gf(gf):3,gfs(gf):3,lsfid(lsfid):0,wtfile(wtfile);'
$ap = $ap + '2(ni):2D PROCESSING:fn1:0,phfid1:2,rp1:2,lp1:2,lsfrq1(lsfrq1):1,lb1(lb1):1,sb1(sb1):3,sbs1(sb1):3,'
$ap = $ap + 'gf1(gf1):3,gfs1(gf1):3,lsfid1(lsfid1):0,wtfile1(wtfile1);'
ap = $ap
setvalue('ap',$ap,'processed')
setprotect('ap','on',4)
