/*** ^^A -*-C++-*- **********************************************/
/*	ay_zg_std			04.04.2016		*/
/****************************************************************/
/*	Short Description :					*/
/*	General AU program for data acquisition with 1H pulse   */
/*	and O1 calibration for water suppression.		*/
/****************************************************************/
/*	Keywords :						*/
/*	zg							*/
/****************************************************************/
/*	Description/Usage :					*/
/*	AU program for data acquisition.			*/
/*	First a pulse calibration for 1H is done,		*/
/*	then O1 calibration by calling the au program o1calib.	*/
/*	Before acquisition rga is executed. In additon the B1	*/
/*	field for saturation is checked not to exceed 1500 Hz	*/
/****************************************************************/
/*	Author(s) :						*/
/*      Name            : Stefan Jehle				*/
/*      Organisation    : Bruker BioSpin			*/
/*      Email           : nmr-support@bruker.com		*/
/****************************************************************/
/*	Name		Date	Modification:			*/
/*	saj		160404	created				*/
/****************************************************************/
/*
$Id:$
*/


float   satf;

XAU("pulsecal", "fast quiet")

FETCHPAR("CNST 62", &satf)

if (satf > 1500)
  STOPMSG("Saturation Field too high\nplease change CNST 62 to a value smaller than 1500")

RGA
ZG
QUIT
