This is the serial version of

/*                        MaGIC1.c           Version of 22-11-89 

   This is the serial version of MaGIC compatible with xmagic 

   version 1.  It requires such structures as JOB to be defined 

   in MAGIC.h and expects the large body of external variables 

   to be declared in lid.c.                                        */

#define TICK 100

#include "MaGIC.h"

/**

 **  Since this is not the parallel version, the timing macro has

 **  not been included, so timing apparatus goes in here.

 **/

#include <sys/types.h>

#include <sys/time.h>

#ifdef HASTIMES

#include <sys/times.h>

#endif

nt begin_timer, end_timer;

CLoCK(timer)  int *timer;

{

   struct timeval tp;

   struct timezone tzp;

   gettimeofday(&tp,&tzp);

   *timer = tp.tv_sec & 0xffff;

   *timer *= 100;

   *timer += (tp.tv_usec / 10000);

#ifdef HASTIMES

   times(&time_buffer);

#endif

}

JOB *theJob;                                  /* Run specification */

/********************************************************************

********************************************************************/

nt DONE;

FILE   *infil,                                /* For data input    */

       *outfil,                               /* "Real" output     */

       *fopen();

nt    noclear = 0,                           /* Suppress "clear"  */

       start_time;                            /* Clock reading     */

char *malloc();

#include "lid.c"

#include "setup.c"

#include "TR.c"

/*******************************************************************/

main(argc,argv)  int argc; char *argv[];

{

   int i, j, option;

   extern char *optarg;

   extern int optind;

   while ((option = getopt (argc, argv, "x#:")) != -1)

   if ( option == 'x' ) noclear = 1;

   theJob = (JOB*) malloc(sizeof(JOB));

   job_defaults();

   perm_initial();

   while ( i = dialog() ) if ( i > 0 )

   {

      printf("\n Searching.....\n");  fflush(stdout);

      job_start();

      subf_set();

      DONE = 0;

      while ( got_siz() )

      if ( theJob->f_n ) while ( got_neg() ) do_a_job();

      else do_a_job();

      job_stop();

   }

   if ( !noclear ) system("clear");

}

/*****************************************************************/

{   

   while ( got_ord() )

   while ( got_des() )

   if ( pre_set() )

   {

      setperm();

      transref( Vlength, Good_matrix, set_poss );

   }

}

.