TopSpin AU program to split pseudo-3D dataset into separate 2D planes

splitser3d.cga

/*** ^^A -*-C++-*- **********************************************/
/*      splitser3d              15.08.1990                      */
/****************************************************************/
/*      Short Description :                                     */
/*      Program which splits a pseudo 3D ser file into single   */
/*      fids starting with the expno which follows the ser file.*/
/****************************************************************/
/*      Keywords :                                              */
/*      splitser                                                */
/****************************************************************/
/*      Description/Usage :                                     */
/*      Program which splits a pseudo ser file into single fids,*/
/*      starting with the expno which follows the ser file.     */
/****************************************************************/
/*      Author(s) :                                             */
/*      Name            : Rainer Kerssebaum                     */
/*      Organisation    : Bruker Analytik                       */
/*      Email           : rainer.kerssebaum@bruker.de           */
/****************************************************************/
/*      Name            Date    Modification:                   */
/*      rke             900815  created                         */
/*      mrs             02sep2009 alter for pseudo 3D           */
/*      cga             added dimension selection               */
/****************************************************************/
/*
$Id: splitser3d,v 1 2009/09/02 11:40:00 gsc Exp $
*/

int td;
int direc=23;

GETCURDATA
GETINT("Enter direction of planes 13 or 23:",direc)

if (direc == 23)
	{
FETCHPAR3S("TD",&td)
	}
else
	{
FETCHPAR1S("TD",&td)
	}
i1=0;
TIMES(td)
  i1 ++;
  RSER2D(direc,i1,i1+1000)
END
QUITMSG("--- splitser3d finished ---")