au program
Glenn Facey (GAFACEY@oreo.chem.uottawa.ca)
29 Apr 94 08:25:39 EST
/* AU PROGRAM GRCOSY */
/* Written to set up a gradient COSY experiment */
/* from a standard proton spectrum. */
/* */
/* This program requires that the user set up the */
/* appropriate sweep width for a COSY spectrum. */
/* It recoveres the SFO1, SW, and SF parameters */
/* from the 1 D spectrum, then calls up the */
/* parameter set "GRCOSY" (this includes plotting */
/* parameters). It then reads the SF, SFO1 and */
/* parameters into the 2D data format. */
/* Note that the current data is overwritten */
/* */
/* written */
/* by */
/* Glenn A. Facey */
/* April 27, 1994 */
getcurdata
storepar("TD",1024)
storepar("SI",1024)
ft
getcurdata
fetchpar("SFO1",&d1)
fetchpar("SW",&d2)
fetchpar("SF",&d3)
rpar("grcosy","all")
storepar("SFO1",d1)
storepar1("SFO1",d1)
storepar("SW",d2)
storepar1("SW",d2)
storepar("SF",d3)
storepar1("SF",d3)
quitmsg("The gradient pulse is se at 3 msec and the gradient recovery is set at 1.4 msec. Gradient COSY setup complete. Ready to go!")