/****************************************************************************/
/* (C) Copyright 1993 Universidade Estadual de Campinas (UNICAMP)           */
/*                    Campinas, SP, Brazil                                  */
/*                                                                          */
/* This file can be freely distributed, modified, and used for any          */
/*   non-commercial purpose, provided that this copyright and authorship    */
/*   notice be included in any copy or derived version of this file.        */
/*                                                                          */
/* DISCLAIMER: This software is offered ``as is'', without any guarantee    */
/*   as to fitness for any particular purpose.  Neither the copyright       */
/*   holder nor the authors or their employers can be held responsible for  */
/*   any damages that may result from its use.                              */
/****************************************************************************/

/* 
  Postamble for tracing zeros of a binary function on a regular grid.
*/

int main(void)
  {
    int epsf;
    
    aa_init();

    fprintf(stderr, "aa_stack_top = %p (%d)\n", aa_top(), (unsigned) aa_top());

    for (epsf = 0; epsf < 2; epsf++)
      {
	aagrid_plots(
	  txtcat(aat_ftag, "-gridtest"),
	  epsf,
	  aat_fname,
	  aat_f_flt,
	  aat_f_ia,
	  aat_f_aa,
	  aat_fxd, aat_fyd,
	  aat_fn, 64
	);
      }
    
    return (0);
  }