; Minimal Bruker pulseprogram created by write_pprog
"d11=30m"
"d12=20u"
"dCH=1s/(cnst4*2)"
"dCC=1s/(2*cnst5)"  /* CT duration  */"
"p42=4.875/(cnst2*bf1/1000000)" /* REBURP pulse length  */"
"spw26=plw1*(pow((p1*2/p42)/0.0798,2))"   /* REBURP power level  */"
"spoff26=bf1*(cnst1/1000000)-o1" /* REBURP offset */"
"cnst21 = 35.0"    /*  Calph  frequency offset   */"
"cnst22 = 18.0"     /*  Me frequency offset   */"
"p14=4.875/(70.0*bf2/1000000)" /* REBURP pulse length  */"
"spoff7=bf2*((cnst21-cnst22)/1000000)" /* shift from Me to CO   */"
"spw7=plw2*(pow((p3*1.97/p14)/0.0798,2))"   /* REBURP power level  */"
"p44 =p1*8.0"    /* BIP pulse length  */"
"spoff30=0.0" /*  BIP offset */"
"spw30=plw1"  /* BIP power level  */"
"p4 =p3*2.0"    /* 13C 180 pulse  */"
"p2 =p1*2.0"    /* 1H 180 pulse  */"
"p50 =500u"    /* BIP pulse length  */"
"spoff50=0.0" /*  BIP offset */"
"spw50=plw3*(pow((p21*8/p50),2))"   /* BIP power level  */"
"if ( p61 < 250u && d1 < 0.5 ) { p61 = 250u"
"cnst50=2000000/(4*p61*bf2)"
"cnst51=cnst50*5.5"
"cnst52=cnst50*2.2"
"DELTA1=dCH*0.5-p16-d16-p1*0.66-p4*0.5"
"DELTA2=dCH*0.5-p16-d16-p4*0.5-p3"
"DELTA3=dCH*0.5-p16-d16-p42*0.5-p3"
"in0=inf1"
"in10=inf2/4"
"in20=inf2/4"
"d0=inf1/2-p3*0.66*2"
"/*"d0=0" */"
"d10=dCC/4-p3*0.66-p4*0.5-p16-d16"
"d20=dCC/4-p4*0.5-p2*0.5-p16-d16"
"dCC1=dCC/4-p3*0.66-p4*0.5-p16-d16"
"dCC2=dCC/4-p4*0.5-p2*0.5-p16-d16"
"dCC4=dCC/4-p3*0.66-p4*0.5-p16-d16-p1*0.33-p3*0.25+p1*0.25"
"dCC3=dCC/4-p4*0.5-p2*0.5-p16-d16-p1*0.33-p3*0.25+p1*0.25"
"acqt0=0"
