[CONTACT]

[ABOUT]

[POLICY]

This is the serial version of

Found at: ftp.icm.edu.pl:70/packages/netlib/magic/magic1.c

/*                        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 );
   }
}
      

.


AD:

NEW PAGES:

[ODDNUGGET]

[GOPHER]