# define on res (cnst10 Hz) frequency here
# then use the macro gen_std.pl in /mac/user dir
# to generate sat times and off res freq jump
# it is best to run an offres expt, phase it and then save 
# as std.txi (like below) before starting arrays

rpar std.txi all

p9 5m
pulprog stddiff.dm

##############################
#   H SETTINGS               #
##############################

getprosol 1H 9.1 -11.14                #plw 13.0 watts/-11.14 dbW; old 1kw amp

#p1 9.2			#H90
o1 2750			#H on res wherever

1 sw 16			#H sweepwidth direct
1 aq 1300m		#H acquisition sime

p9 10m			#H saturation pulse; 5m needs 2058us 90 power; 121Hz
spnam9 Gaus1_90.1000 	#H saturation pulse name
spw9 0.000064		#H saturation pulse name; power for 5m above

##############################

#cnst10 2155		#H saturation freq Hz; Ha
cnst10 3850		#H saturation freq Hz; TPA
cnst11 2750		#H acquire freq Hz

d20 5000m		# saturation time

##############################

d1 10s
rg 1
ns 16
ds 2

lb 3

##############################
##############################
##############################