Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
SURF: Unify the types of models in a uniq s_surf_model_t (using an union) +reindent...
authormquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Tue, 30 Jun 2009 21:00:10 +0000 (21:00 +0000)
committermquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Tue, 30 Jun 2009 21:00:10 +0000 (21:00 +0000)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@6406 48e7efb5-ca39-0410-a469-dd3cf9ba447f

63 files changed:
ChangeLog
examples/msg/actions/actions.c
examples/msg/masterslave/masterslave_forwarder.c
examples/smpi/bcast.c
examples/smpi/bcbench.c
examples/smpi/compute.c
examples/smpi/compute2.c
examples/smpi/compute3.c
examples/smpi/first.c
examples/smpi/mvmul.c
examples/smpi/reduce.c
examples/smpi/ring_c.c
examples/smpi/second.c
examples/smpi/split.c
include/gras/datadesc.h
include/smpi/smpi.h
include/xbt/config.h
include/xbt/set.h
src/gras/Msg/gras_msg_listener.c
src/include/surf/maxmin.h
src/include/surf/surf.h
src/include/xbt/context.h
src/java/jmsg_application_handler.c
src/msg/msg_config.c
src/msg/msg_mailbox.c
src/simdag/sd_global.c
src/simdag/sd_link.c
src/simdag/sd_task.c
src/simdag/sd_workstation.c
src/simix/private.h
src/simix/smx_action.c
src/simix/smx_deployment.c
src/simix/smx_environment.c
src/simix/smx_global.c
src/simix/smx_host.c
src/simix/smx_process.c
src/smpi/private.h
src/smpi/smpi_base.c
src/smpi/smpi_bench.c
src/smpi/smpi_global.c
src/smpi/smpi_mpi.c
src/smpi/smpi_receiver.c
src/smpi/smpi_sender.c
src/surf/cpu.c
src/surf/lagrange.c
src/surf/model.c
src/surf/network.c
src/surf/network_constant.c
src/surf/network_gtnets.c
src/surf/simgrid_dtd.c
src/surf/surf.c
src/surf/surf_config.c
src/surf/surf_private.h
src/surf/surf_timer.c
src/surf/surfxml_parse.c
src/surf/workstation.c
src/surf/workstation_ptask_L07.c
src/xbt/config.c
src/xbt/log.c
src/xbt/set.c
src/xbt/snprintf.c
src/xbt/xbt_context_private.h
teshsuite/gras/datadesc/datadesc_usage.c

index 0e35379..f39b408 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -11,6 +11,7 @@ SimGrid (3.3.2-svn) unstable; urgency=low
    + change model->common_model->resource_name() 
      into surf_model_resource_by_name(model)
    (less redirections, less function to write when defining a model)
+  * Unify the types of models in a uniq s_surf_model_t (using an union)
 
  XBT:
   * Add xbt_set_get_by_name_or_null() [Silas De Munck]
index d04d866..e76db4e 100644 (file)
 #include "xbt.h"                /* calloc, printf */
 
 XBT_LOG_NEW_DEFAULT_CATEGORY(msg_test,
-                 "Messages specific for this msg example");
+                             "Messages specific for this msg example");
 
 /* Helper function */
-static double parse_double(const char *string) {
+static double parse_double(const char *string)
+{
   double value;
   char *endptr;
 
-  value=strtod(string, &endptr);
+  value = strtod(string, &endptr);
   if (*endptr != '\0')
-         THROW1(unknown_error, 0, "%s is not a double", string);
+    THROW1(unknown_error, 0, "%s is not a double", string);
   return value;
 }
 
index 167033d..0f791ce 100644 (file)
@@ -169,7 +169,7 @@ int forwarder(int argc, char *argv[])
     }
   }
   xbt_free(slaves);
-   
+
   INFO0("I'm done. See you!");
   return 0;
 }                               /* end_of_forwarder */
index 608c5c3..6e197fe 100644 (file)
@@ -1,19 +1,20 @@
 #include <stdio.h>
 #include <mpi.h>
 
-int main (int argc, char **argv) {
+int main(int argc, char **argv)
+{
   int size, rank;
   int value = 3;
   double start_timer;
-   int quiet = 0;
+  int quiet = 0;
 
   MPI_Init(&argc, &argv);
   MPI_Comm_size(MPI_COMM_WORLD, &size);
   MPI_Comm_rank(MPI_COMM_WORLD, &rank);
 
-   if (argc > 1 && !strcmp(argv[1],"-q")) 
-     quiet=1;
-   
+  if (argc > 1 && !strcmp(argv[1], "-q"))
+    quiet = 1;
+
   start_timer = MPI_Wtime();
 
   if (0 == rank) {
@@ -23,9 +24,10 @@ int main (int argc, char **argv) {
   MPI_Bcast(&value, 1, MPI_INT, 0, MPI_COMM_WORLD);
   printf("node %d has value %d after broadcast\n", rank, value);
 
-  MPI_Barrier( MPI_COMM_WORLD );
-  if ( 0 == rank && !quiet)
-           printf("Elapsed time on rank %d: %lf s\n", rank, MPI_Wtime()-start_timer);
+  MPI_Barrier(MPI_COMM_WORLD);
+  if (0 == rank && !quiet)
+    printf("Elapsed time on rank %d: %lf s\n", rank,
+           MPI_Wtime() - start_timer);
   MPI_Finalize();
   return 0;
 }
index 85d3656..214f88b 100644 (file)
@@ -11,7 +11,8 @@
 #define ONE_MILLION 1000000.0
 #define RAND_SEED 842270
 
-int main(int argc, char* argv[]) {
+int main(int argc, char *argv[])
+{
 
   int size, rank;
   int N, I;
@@ -29,17 +30,17 @@ int main(int argc, char* argv[]) {
   MPI_Comm_size(MPI_COMM_WORLD, &size);
 
   if (0 == rank) {
-    start_time = (struct timeval *)malloc(sizeof(struct timeval));
-    stop_time  = (struct timeval *)malloc(sizeof(struct timeval));
+    start_time = (struct timeval *) malloc(sizeof(struct timeval));
+    stop_time = (struct timeval *) malloc(sizeof(struct timeval));
   }
 
-  for (N = N_START ; N <= N_STOP ; N = N_NEXT) {
+  for (N = N_START; N <= N_STOP; N = N_NEXT) {
 
     buffer = malloc(sizeof(char) * N);
 
     if (0 == rank) {
       for (j = 0; j < N; j++) {
-        buffer[j] = (char)(random() % 256);
+        buffer[j] = (char) (random() % 256);
       }
       if (-1 == gettimeofday(start_time, NULL)) {
         printf("couldn't set start_time on node 0!\n");
@@ -52,7 +53,8 @@ int main(int argc, char* argv[]) {
       MPI_Bcast(buffer, N, MPI_BYTE, 0, MPI_COMM_WORLD);
       if (0 == rank) {
         for (j = 1; j < size; j++) {
-          MPI_Recv(&check, 1, MPI_INT, MPI_ANY_SOURCE, 1, MPI_COMM_WORLD, MPI_STATUS_IGNORE);
+          MPI_Recv(&check, 1, MPI_INT, MPI_ANY_SOURCE, 1, MPI_COMM_WORLD,
+                   MPI_STATUS_IGNORE);
         }
       } else {
         MPI_Send(&rank, 1, MPI_INT, 0, 1, MPI_COMM_WORLD);
@@ -65,13 +67,17 @@ int main(int argc, char* argv[]) {
         MPI_Abort(MPI_COMM_WORLD, GETTIMEOFDAY_ERROR);
         exit(EXIT_FAILURE);
       }
-      seconds = (double)(stop_time->tv_sec - start_time->tv_sec) + (double)(stop_time->tv_usec - start_time->tv_usec) / ONE_MILLION;
+      seconds =
+        (double) (stop_time->tv_sec - start_time->tv_sec) +
+        (double) (stop_time->tv_usec - start_time->tv_usec) / ONE_MILLION;
     }
 
     free(buffer);
 
     if (0 == rank) {
-      printf("N: %10d, iter: %d, time: %10f s, avg rate: %12f Mbps\n", N, ITER, seconds, ((double)N * ITER * 8) / (1024.0 * 1024.0 * seconds));
+      printf("N: %10d, iter: %d, time: %10f s, avg rate: %12f Mbps\n", N,
+             ITER, seconds,
+             ((double) N * ITER * 8) / (1024.0 * 1024.0 * seconds));
     }
 
   }
index 2e4b0e3..23d254a 100644 (file)
@@ -1,19 +1,20 @@
 #include <stdio.h>
 
-int main(int argc, char *argv[]) {
-       int i;
-       double d;
-       MPI_Init(&argc, &argv);
-       d = 2.0;
-       for (i = 0; i < atoi(argv[1]); i++) {
-               if (d < 10000) {
-                       d = d*d;
-               } else {
-                       d = 2;
-               }
-       }
-       printf("%d %f\n", i, d);
-       MPI_Comm_rank(MPI_COMM_WORLD, &i);
-       MPI_Finalize();
-       return 0;
+int main(int argc, char *argv[])
+{
+  int i;
+  double d;
+  MPI_Init(&argc, &argv);
+  d = 2.0;
+  for (i = 0; i < atoi(argv[1]); i++) {
+    if (d < 10000) {
+      d = d * d;
+    } else {
+      d = 2;
+    }
+  }
+  printf("%d %f\n", i, d);
+  MPI_Comm_rank(MPI_COMM_WORLD, &i);
+  MPI_Finalize();
+  return 0;
 }
index 153e1ba..aa6c53a 100644 (file)
@@ -1,20 +1,21 @@
 #include <stdio.h>
 
-int main(int argc, char *argv[]) {
-       int i;
-       double d;
-       MPI_Init(&argc, &argv);
-       d = 2.0;
-       SMPI_DO_ONCE {
-               for (i = 0; i < atoi(argv[1]); i++) {
-                       if (d < 10000) {
-                               d = d*d;
-                       } else {
-                               d = 2;
-                       }
-               }
-               printf("%d %f\n", i, d);
-       }
-       MPI_Finalize();
-       return 0;
+int main(int argc, char *argv[])
+{
+  int i;
+  double d;
+  MPI_Init(&argc, &argv);
+  d = 2.0;
+  SMPI_DO_ONCE {
+    for (i = 0; i < atoi(argv[1]); i++) {
+      if (d < 10000) {
+        d = d * d;
+      } else {
+        d = 2;
+      }
+    }
+    printf("%d %f\n", i, d);
+  }
+  MPI_Finalize();
+  return 0;
 }
index 77cb535..59e9ea3 100644 (file)
@@ -1,30 +1,31 @@
 #include <stdio.h>
 
-int main(int argc, char *argv[]) {
-       int i;
-       double d;
-       MPI_Init(&argc, &argv);
-       d = 2.0;
-       SMPI_DO_ONCE {
-               for (i = 0; i < atoi(argv[1]); i++) {
-                       if (d < 10000) {
-                               d = d*d;
-                       } else {
-                               d = 2;
-                       }
-               }
-               printf("%d %f\n", i, d);
-       }
-       SMPI_DO_ONCE {
-               for (i = 0; i < 2*atoi(argv[1]); i++) {
-                       if (d < 10000) {
-                               d = d*d;
-                       } else {
-                               d = 2;
-                       }
-               }
-               printf("%d %f\n", i, d);
-       }
-       MPI_Finalize();
-       return 0;
+int main(int argc, char *argv[])
+{
+  int i;
+  double d;
+  MPI_Init(&argc, &argv);
+  d = 2.0;
+  SMPI_DO_ONCE {
+    for (i = 0; i < atoi(argv[1]); i++) {
+      if (d < 10000) {
+        d = d * d;
+      } else {
+        d = 2;
+      }
+    }
+    printf("%d %f\n", i, d);
+  }
+  SMPI_DO_ONCE {
+    for (i = 0; i < 2 * atoi(argv[1]); i++) {
+      if (d < 10000) {
+        d = d * d;
+      } else {
+        d = 2;
+      }
+    }
+    printf("%d %f\n", i, d);
+  }
+  MPI_Finalize();
+  return 0;
 }
index e48d03a..8ff6e4c 100644 (file)
@@ -3,30 +3,30 @@
 
 int main(int argc, char *argv[])
 {
-       int rank, size, err;
+  int rank, size, err;
 
-       err = MPI_Init(&argc, &argv); /* Initialize MPI */
-       if (err != MPI_SUCCESS) {
-               printf("MPI initialization failed!\n");
-               exit(1);
-       }
+  err = MPI_Init(&argc, &argv); /* Initialize MPI */
+  if (err != MPI_SUCCESS) {
+    printf("MPI initialization failed!\n");
+    exit(1);
+  }
 
-       err = MPI_Comm_size(MPI_COMM_WORLD, &size);
-       if (err != MPI_SUCCESS) {
-               printf("MPI Get Communicator Size Failed!\n");
-       }
+  err = MPI_Comm_size(MPI_COMM_WORLD, &size);
+  if (err != MPI_SUCCESS) {
+    printf("MPI Get Communicator Size Failed!\n");
+  }
 
-       err = MPI_Comm_rank(MPI_COMM_WORLD, &rank);
-       if (err != MPI_SUCCESS) {
-               printf("MPI Get Communicator Rank Failed!\n");
-       }
+  err = MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+  if (err != MPI_SUCCESS) {
+    printf("MPI Get Communicator Rank Failed!\n");
+  }
 
-       if (0 == rank) {
-               printf("root node believes there are %d nodes in world.\n", size);
-       }
+  if (0 == rank) {
+    printf("root node believes there are %d nodes in world.\n", size);
+  }
 
-       sleep(20);
+  sleep(20);
 
-       err = MPI_Finalize();          /* Terminate MPI */
-       return 0;
+  err = MPI_Finalize();         /* Terminate MPI */
+  return 0;
 }
index 68f09ab..8706b84 100644 (file)
@@ -8,14 +8,16 @@
 #define SANITY_ERROR       2
 #define GETTIMEOFDAY_ERROR 3
 
-int main(int argc, char* argv[]) {
+int main(int argc, char *argv[])
+{
 
   int size, rank;
   int N, n, i, j, k, current_iteration, successful_iterations = 0;
   double *matrix, *vector, *vcalc, *vcheck;
   MPI_Status status;
   struct timeval *start_time, *stop_time;
-  long parallel_usecs, parallel_usecs_total = 0, sequential_usecs, sequential_usecs_total = 0;
+  long parallel_usecs, parallel_usecs_total =
+    0, sequential_usecs, sequential_usecs_total = 0;
 
   MPI_Init(&argc, &argv);
 
@@ -33,24 +35,25 @@ int main(int argc, char* argv[]) {
 
     N = atoi(argv[1]);
 
-    start_time     = (struct timeval *)malloc(sizeof(struct timeval));
-    stop_time      = (struct timeval *)malloc(sizeof(struct timeval));
+    start_time = (struct timeval *) malloc(sizeof(struct timeval));
+    stop_time = (struct timeval *) malloc(sizeof(struct timeval));
 
   }
 
-  for(current_iteration = 0; current_iteration < ITERATIONS; current_iteration++) {
+  for (current_iteration = 0; current_iteration < ITERATIONS;
+       current_iteration++) {
 
     if (0 == rank) {
 
-      matrix         = (double *)malloc(N*N*sizeof(double));
-      vector         = (double *)malloc(N*sizeof(double));
+      matrix = (double *) malloc(N * N * sizeof(double));
+      vector = (double *) malloc(N * sizeof(double));
 
-      for(i = 0; i < N*N; i++) {
-        matrix[i] = (double)rand()/((double)RAND_MAX + 1);
+      for (i = 0; i < N * N; i++) {
+        matrix[i] = (double) rand() / ((double) RAND_MAX + 1);
       }
 
-      for(i = 0; i < N; i++) {
-        vector[i] = (double)rand()/((double)RAND_MAX + 1);
+      for (i = 0; i < N; i++) {
+        vector[i] = (double) rand() / ((double) RAND_MAX + 1);
       }
 
       // for the sake of argument, the parallel algorithm begins
@@ -62,7 +65,7 @@ int main(int argc, char* argv[]) {
         exit(GETTIMEOFDAY_ERROR);
       }
 
-      for(i = 1; i < size; i++) {
+      for (i = 1; i < size; i++) {
         MPI_Send(&N, 1, MPI_INT, i, 0, MPI_COMM_WORLD);
       }
 
@@ -73,43 +76,45 @@ int main(int argc, char* argv[]) {
     // this algorithm uses at most N processors...
     if (rank < N) {
 
-      if (size > N) size = N;
+      if (size > N)
+        size = N;
       n = N / size + ((rank < (N % size)) ? 1 : 0);
 
       if (0 == rank) {
 
-        for(i = 1, j = n; i < size && j < N; i++, j+=k) {
+        for (i = 1, j = n; i < size && j < N; i++, j += k) {
           k = N / size + ((i < (N % size)) ? 1 : 0);
-          MPI_Send(matrix+N*j, N*k, MPI_DOUBLE, i, 0, MPI_COMM_WORLD);
+          MPI_Send(matrix + N * j, N * k, MPI_DOUBLE, i, 0, MPI_COMM_WORLD);
           MPI_Send(vector, N, MPI_DOUBLE, i, 0, MPI_COMM_WORLD);
         }
 
         // sanity check
-        #ifdef DEBUG
-        if(i != size || j != N) {
-          printf("index calc error: i = %d, size = %d, j = %d, N = %d\n", i, size, j, N);
+#ifdef DEBUG
+        if (i != size || j != N) {
+          printf("index calc error: i = %d, size = %d, j = %d, N = %d\n", i,
+                 size, j, N);
           MPI_Abort(MPI_COMM_WORLD, SANITY_ERROR);
           exit(SANITY_ERROR);
         }
-        #endif
+#endif
 
-        vcalc = (double *)malloc(N*sizeof(double));
+        vcalc = (double *) malloc(N * sizeof(double));
 
       } else {
 
-        matrix = (double *)malloc(N*n*sizeof(double));
-        vector = (double *)malloc(N*sizeof(double));
-        vcalc  = (double *)malloc(n*sizeof(double));
+        matrix = (double *) malloc(N * n * sizeof(double));
+        vector = (double *) malloc(N * sizeof(double));
+        vcalc = (double *) malloc(n * sizeof(double));
 
-        MPI_Recv(matrix, N*n, MPI_DOUBLE, 0, 0, MPI_COMM_WORLD, &status);
+        MPI_Recv(matrix, N * n, MPI_DOUBLE, 0, 0, MPI_COMM_WORLD, &status);
         MPI_Recv(vector, N, MPI_DOUBLE, 0, 0, MPI_COMM_WORLD, &status);
 
       }
 
-      for(i = 0; i < n; i++) {
+      for (i = 0; i < n; i++) {
         vcalc[i] = 0.0;
-        for(j = 0; j < N; j++) {
-          vcalc[i] += matrix[N*i+j] * vector[j];
+        for (j = 0; j < N; j++) {
+          vcalc[i] += matrix[N * i + j] * vector[j];
         }
       }
 
@@ -117,19 +122,20 @@ int main(int argc, char* argv[]) {
         MPI_Send(vcalc, n, MPI_DOUBLE, 0, 0, MPI_COMM_WORLD);
       } else {
 
-        for(i = 1, j = n; i < size && j < N; i++, j+=k) {
+        for (i = 1, j = n; i < size && j < N; i++, j += k) {
           k = N / size + ((i < (N % size)) ? 1 : 0);
-          MPI_Recv(vcalc+j, k, MPI_DOUBLE, i, 0, MPI_COMM_WORLD, &status);
+          MPI_Recv(vcalc + j, k, MPI_DOUBLE, i, 0, MPI_COMM_WORLD, &status);
         }
 
         // sanity check
-        #ifdef DEBUG
-        if(i != size || j != N) {
-          printf("index calc error 2: i = %d, size = %d, j = %d, N = %d\n", i, size, j, N);
+#ifdef DEBUG
+        if (i != size || j != N) {
+          printf("index calc error 2: i = %d, size = %d, j = %d, N = %d\n", i,
+                 size, j, N);
           MPI_Abort(MPI_COMM_WORLD, SANITY_ERROR);
           exit(SANITY_ERROR);
         }
-        #endif
+#endif
 
         if (-1 == gettimeofday(stop_time, NULL)) {
           printf("couldn't set stop_time on node 0!\n");
@@ -137,20 +143,21 @@ int main(int argc, char* argv[]) {
           exit(GETTIMEOFDAY_ERROR);
         }
 
-        parallel_usecs = (stop_time->tv_sec*1000000+stop_time->tv_usec) - (start_time->tv_sec*1000000+start_time->tv_usec);
+        parallel_usecs =
+          (stop_time->tv_sec * 1000000 + stop_time->tv_usec) -
+          (start_time->tv_sec * 1000000 + start_time->tv_usec);
 
         if (-1 == gettimeofday(start_time, NULL)) {
           printf("couldn't set start_time on node 0!\n");
           MPI_Abort(MPI_COMM_WORLD, GETTIMEOFDAY_ERROR);
           exit(GETTIMEOFDAY_ERROR);
         }
-
         // calculate serially
-        vcheck = (double *)malloc(N*sizeof(double));
-        for(i = 0; i < N; i++) {
+        vcheck = (double *) malloc(N * sizeof(double));
+        for (i = 0; i < N; i++) {
           vcheck[i] = 0.0;
-          for(j = 0; j < N; j++) {
-            vcheck[i] += matrix[N*i+j] * vector[j];
+          for (j = 0; j < N; j++) {
+            vcheck[i] += matrix[N * i + j] * vector[j];
           }
         }
 
@@ -160,20 +167,22 @@ int main(int argc, char* argv[]) {
           exit(GETTIMEOFDAY_ERROR);
         }
 
-        sequential_usecs = (stop_time->tv_sec*1000000+stop_time->tv_usec) - (start_time->tv_sec*1000000+start_time->tv_usec);
+        sequential_usecs =
+          (stop_time->tv_sec * 1000000 + stop_time->tv_usec) -
+          (start_time->tv_sec * 1000000 + start_time->tv_usec);
 
         // verify correctness
-        for(i = 0; i < N && vcalc[i] == vcheck[i]; i++);
-        
+        for (i = 0; i < N && vcalc[i] == vcheck[i]; i++);
+
         printf("prog: blocking, i: %d ", current_iteration);
 
         if (i == N) {
-          printf("ptime: %ld us, stime: %ld us, speedup: %.3f, nodes: %d, efficiency: %.3f\n",
-              parallel_usecs,
-              sequential_usecs,
-              (double)sequential_usecs / (double)parallel_usecs,
-              size,
-              (double)sequential_usecs / ((double)parallel_usecs * (double)size));
+          printf
+            ("ptime: %ld us, stime: %ld us, speedup: %.3f, nodes: %d, efficiency: %.3f\n",
+             parallel_usecs, sequential_usecs,
+             (double) sequential_usecs / (double) parallel_usecs, size,
+             (double) sequential_usecs / ((double) parallel_usecs *
+                                          (double) size));
 
           parallel_usecs_total += parallel_usecs;
           sequential_usecs_total += sequential_usecs;
@@ -193,16 +202,18 @@ int main(int argc, char* argv[]) {
 
   }
 
-  if(0 == rank) {
+  if (0 == rank) {
     printf("prog: blocking, ");
-    if(0 < successful_iterations) {
-      printf("iterations: %d, avg. ptime: %.3f us, avg. stime: %.3f us, avg. speedup: %.3f, nodes: %d, avg. efficiency: %.3f\n",
-          successful_iterations,
-          (double) parallel_usecs_total / (double) successful_iterations,
-          (double) sequential_usecs_total / (double) successful_iterations,
-          (double)sequential_usecs_total / (double)parallel_usecs_total,
-          size,
-          (double)sequential_usecs_total / ((double)parallel_usecs_total * (double)size));
+    if (0 < successful_iterations) {
+      printf
+        ("iterations: %d, avg. ptime: %.3f us, avg. stime: %.3f us, avg. speedup: %.3f, nodes: %d, avg. efficiency: %.3f\n",
+         successful_iterations,
+         (double) parallel_usecs_total / (double) successful_iterations,
+         (double) sequential_usecs_total / (double) successful_iterations,
+         (double) sequential_usecs_total / (double) parallel_usecs_total,
+         size,
+         (double) sequential_usecs_total / ((double) parallel_usecs_total *
+                                            (double) size));
     } else {
       printf("no successful iterations!\n");
     }
index 83cc8bf..bc74092 100644 (file)
  * ENHANCEMENTS, OR MODIFICATIONS.
  * ***************************************************************************
  **/
-int ibm_test( int rank, int size ) {
-         int success=1;
+int ibm_test(int rank, int size)
+{
+  int success = 1;
 #define MAXLEN  10000
 
-         int root,i,j,k;
-         int out[MAXLEN];
-         int in[MAXLEN];
-         root = size/2;
-
-         for(j=1;j<=MAXLEN;j*=10)  {
-                   for(i=0;i<j;i++)  out[i] = i;
-
-                   MPI_Reduce(out,in,j,MPI_INT,MPI_SUM,root,MPI_COMM_WORLD);
-
-                   if(rank == root)  {
-                               for(k=0;k<j;k++) {
-                                         if(in[k] != k*size) {  
-                                                   printf("bad answer (%d) at index %d of %d (should be %d)", in[k],k,j,k*size);
-                                                   success=0;
-                                                   break; 
-                                         }
-                               }
-                   }
-         }
-         return( success );
+  int root, i, j, k;
+  int out[MAXLEN];
+  int in[MAXLEN];
+  root = size / 2;
+
+  for (j = 1; j <= MAXLEN; j *= 10) {
+    for (i = 0; i < j; i++)
+      out[i] = i;
+
+    MPI_Reduce(out, in, j, MPI_INT, MPI_SUM, root, MPI_COMM_WORLD);
+
+    if (rank == root) {
+      for (k = 0; k < j; k++) {
+        if (in[k] != k * size) {
+          printf("bad answer (%d) at index %d of %d (should be %d)", in[k], k,
+                 j, k * size);
+          success = 0;
+          break;
+        }
+      }
+    }
+  }
+  return (success);
 }
 
 
 
 
-int main (int argc, char **argv) {
-         int size, rank;
-         int root=0;
-         int value;
-         int sum=-99,sum_mirror=-99,min=999,max=-999;
+int main(int argc, char **argv)
+{
+  int size, rank;
+  int root = 0;
+  int value;
+  int sum = -99, sum_mirror = -99, min = 999, max = -999;
 
   double start_timer;
 
@@ -69,7 +73,7 @@ int main (int argc, char **argv) {
 
   start_timer = MPI_Wtime();
 
-  value=rank+1;  /* easy to verify that sum= (size*(size+1))/2; */
+  value = rank + 1;             /* easy to verify that sum= (size*(size+1))/2; */
 
   printf("[%d] has value %d\n", rank, value);
   MPI_Reduce(&value, &sum, 1, MPI_INT, MPI_SUM, root, MPI_COMM_WORLD);
@@ -77,37 +81,36 @@ int main (int argc, char **argv) {
 
   MPI_Reduce(&value, &min, 1, MPI_INT, MPI_MIN, root, MPI_COMM_WORLD);
   MPI_Reduce(&value, &max, 1, MPI_INT, MPI_MAX, root, MPI_COMM_WORLD);
-  if ( rank == root) {
-          printf("** Scalar Int Test Result:\n");
-           printf("\t[%d] sum=%d ... validation ",rank,sum);
-          if (((size*(size+1))/2 == sum) && (sum_mirror==sum) )
-                       printf("ok.\n");
-           else 
-                       printf("failed (sum=%d,sum_mirror=%d while both sould be %d.\n",
-                                           sum,sum_mirror,(size*(size+1))/2);
-          printf("\t[%d] min=%d ... validation ",rank,min);
-          if (1 == min )
-                       printf("ok.\n");
-           else
-                       printf("failed.\n");
-          printf("\t[%d] max=%d ... validation ",rank,max);
-          if ( size == max )
-                       printf("ok.\n");
-           else
-                       printf("failed.\n");
-           printf("Elapsed time=%lf s\n", MPI_Wtime()-start_timer);
+  if (rank == root) {
+    printf("** Scalar Int Test Result:\n");
+    printf("\t[%d] sum=%d ... validation ", rank, sum);
+    if (((size * (size + 1)) / 2 == sum) && (sum_mirror == sum))
+      printf("ok.\n");
+    else
+      printf("failed (sum=%d,sum_mirror=%d while both sould be %d.\n",
+             sum, sum_mirror, (size * (size + 1)) / 2);
+    printf("\t[%d] min=%d ... validation ", rank, min);
+    if (1 == min)
+      printf("ok.\n");
+    else
+      printf("failed.\n");
+    printf("\t[%d] max=%d ... validation ", rank, max);
+    if (size == max)
+      printf("ok.\n");
+    else
+      printf("failed.\n");
+    printf("Elapsed time=%lf s\n", MPI_Wtime() - start_timer);
   }
 
-  MPI_Barrier( MPI_COMM_WORLD );
+  MPI_Barrier(MPI_COMM_WORLD);
 
-  if ( 0 == rank ) 
-           printf("** IBM Test Result: ... \n");
-  if (!ibm_test( rank, size))
-           printf("\t[%d] failed.\n",rank);
+  if (0 == rank)
+    printf("** IBM Test Result: ... \n");
+  if (!ibm_test(rank, size))
+    printf("\t[%d] failed.\n", rank);
   else
-           printf("\t[%d] ok.\n",rank);
+    printf("\t[%d] ok.\n", rank);
 
   MPI_Finalize();
   return 0;
 }
-
index c301ab3..773d74e 100644 (file)
 
 int main(int argc, char *argv[])
 {
-    int rank, size, next, prev, message, tag = 201;
+  int rank, size, next, prev, message, tag = 201;
 
-    /* Start up MPI */
+  /* Start up MPI */
 
-    MPI_Init(&argc, &argv);
-    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
-    MPI_Comm_size(MPI_COMM_WORLD, &size);
-    /* Calculate the rank of the next process in the ring.  Use the
-       modulus operator so that the last process "wraps around" to
-       rank zero. */
+  MPI_Init(&argc, &argv);
+  MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+  MPI_Comm_size(MPI_COMM_WORLD, &size);
 
-    next = (rank + 1) % size;
-    prev = (rank + size - 1) % size;
+  /* Calculate the rank of the next process in the ring.  Use the
+     modulus operator so that the last process "wraps around" to
+     rank zero. */
 
-    /* If we are the "master" process (i.e., MPI_COMM_WORLD rank 0),
-       put the number of times to go around the ring in the
-       message. */
+  next = (rank + 1) % size;
+  prev = (rank + size - 1) % size;
 
-    if (0 == rank) {
-        message = 10;
+  /* If we are the "master" process (i.e., MPI_COMM_WORLD rank 0),
+     put the number of times to go around the ring in the
+     message. */
 
-        printf("Process 0 sending %d to %d, tag %d (%d processes in ring)\n", 
-               message, next, tag, size);
-        MPI_Send(&message, 1, MPI_INT, next, tag, MPI_COMM_WORLD); 
-        printf("Process 0 sent to %d\n", next);
-    }
+  if (0 == rank) {
+    message = 10;
 
-    /* Pass the message around the ring.  The exit mechanism works as
-       follows: the message (a positive integer) is passed around the
-       ring.  Each time it passes rank 0, it is decremented.  When
-       each processes receives a message containing a 0 value, it
-       passes the message on to the next process and then quits.  By
-       passing the 0 message first, every process gets the 0 message
-       and can quit normally. */
-
-    sleep(3);
-
-    while (1) {
-        MPI_Recv(&message, 1, MPI_INT, prev, tag, MPI_COMM_WORLD, 
-                 MPI_STATUS_IGNORE);
-
-        if (0 == rank) {
-            --message;
-            printf("Process 0 decremented value: %d\n", message);
-        }
-
-        MPI_Send(&message, 1, MPI_INT, next, tag, MPI_COMM_WORLD);
-        if (0 == message) {
-            printf("Process %d exiting\n", rank);
-            break;
-        }
-    }
+    printf("Process 0 sending %d to %d, tag %d (%d processes in ring)\n",
+           message, next, tag, size);
+    MPI_Send(&message, 1, MPI_INT, next, tag, MPI_COMM_WORLD);
+    printf("Process 0 sent to %d\n", next);
+  }
+
+  /* Pass the message around the ring.  The exit mechanism works as
+     follows: the message (a positive integer) is passed around the
+     ring.  Each time it passes rank 0, it is decremented.  When
+     each processes receives a message containing a 0 value, it
+     passes the message on to the next process and then quits.  By
+     passing the 0 message first, every process gets the 0 message
+     and can quit normally. */
+
+  sleep(3);
 
-    /* The last process does one extra send to process 0, which needs
-       to be received before the program can exit */
+  while (1) {
+    MPI_Recv(&message, 1, MPI_INT, prev, tag, MPI_COMM_WORLD,
+             MPI_STATUS_IGNORE);
 
     if (0 == rank) {
-        MPI_Recv(&message, 1, MPI_INT, prev, tag, MPI_COMM_WORLD,
-                 MPI_STATUS_IGNORE);
+      --message;
+      printf("Process 0 decremented value: %d\n", message);
     }
-    
-    /* All done */
 
-    MPI_Finalize();
-    return 0;
+    MPI_Send(&message, 1, MPI_INT, next, tag, MPI_COMM_WORLD);
+    if (0 == message) {
+      printf("Process %d exiting\n", rank);
+      break;
+    }
+  }
+
+  /* The last process does one extra send to process 0, which needs
+     to be received before the program can exit */
+
+  if (0 == rank) {
+    MPI_Recv(&message, 1, MPI_INT, prev, tag, MPI_COMM_WORLD,
+             MPI_STATUS_IGNORE);
+  }
+
+  /* All done */
+
+  MPI_Finalize();
+  return 0;
 }
index 5c1d39f..2c80d60 100644 (file)
 #include <stdio.h>
 #include <mpi.h>
 
-main(int argc, char *argv[]) {
-  const int tag = 42;         /* Message tag */
+main(int argc, char *argv[])
+{
+  const int tag = 42;           /* Message tag */
   int id, ntasks, source_id, dest_id, err, i;
   MPI_Status status;
-  int msg[2];     /* Message array */
-  
+  int msg[2];                   /* Message array */
+
   err = MPI_Init(&argc, &argv); /* Initialize MPI */
   if (err != MPI_SUCCESS) {
     printf("MPI initialization failed!\n");
     exit(1);
   }
   err = MPI_Comm_size(MPI_COMM_WORLD, &ntasks); /* Get nr of tasks */
-  err = MPI_Comm_rank(MPI_COMM_WORLD, &id); /* Get id of this process */
+  err = MPI_Comm_rank(MPI_COMM_WORLD, &id);     /* Get id of this process */
   if (ntasks < 2) {
     printf("You have to use at least 2 processors to run this program\n");
-    MPI_Finalize();      /* Quit if there is only one processor */
+    MPI_Finalize();             /* Quit if there is only one processor */
     exit(0);
   }
-  
-  if (id == 0) {    /* Process 0 (the receiver) does this */
-    for (i=1; i<ntasks; i++) {
-      err = MPI_Recv(msg, 2, MPI_INT, MPI_ANY_SOURCE, tag, MPI_COMM_WORLD, \
-         &status);          /* Receive a message */
-      source_id = status.MPI_SOURCE;  /* Get id of sender */
-      printf("Received message %d %d from process %d\n", msg[0], msg[1], \
-       source_id);
+
+  if (id == 0) {                /* Process 0 (the receiver) does this */
+    for (i = 1; i < ntasks; i++) {
+      err = MPI_Recv(msg, 2, MPI_INT, MPI_ANY_SOURCE, tag, MPI_COMM_WORLD, &status);    /* Receive a message */
+      source_id = status.MPI_SOURCE;    /* Get id of sender */
+      printf("Received message %d %d from process %d\n", msg[0], msg[1],
+             source_id);
     }
-  }
-  else {      /* Processes 1 to N-1 (the senders) do this */
-    msg[0] = id;    /* Put own identifier in the message */
-    msg[1] = ntasks;          /* and total number of processes */
-    dest_id = 0;    /* Destination address */
+  } else {                      /* Processes 1 to N-1 (the senders) do this */
+    msg[0] = id;                /* Put own identifier in the message */
+    msg[1] = ntasks;            /* and total number of processes */
+    dest_id = 0;                /* Destination address */
     sleep(3);
     err = MPI_Send(msg, 2, MPI_INT, dest_id, tag, MPI_COMM_WORLD);
   }
-  
-  err = MPI_Finalize();          /* Terminate MPI */
-  if (id==0) printf("Ready\n");
+
+  err = MPI_Finalize();         /* Terminate MPI */
+  if (id == 0)
+    printf("Ready\n");
   return 0;
 }
-
index b161190..f451b87 100644 (file)
@@ -1,14 +1,15 @@
 #include <stdio.h>
 #include <mpi.h>
 
-int main(int argc, char *argv[]) {
-       int worldrank, localrank;
-       MPI_Comm localcomm;
-       MPI_Init(&argc, &argv);
-       MPI_Comm_rank(MPI_COMM_WORLD, &worldrank);
-       MPI_Comm_split(MPI_COMM_WORLD, worldrank % 2, worldrank, &localcomm);
-       MPI_Comm_rank(localcomm, &localrank);
-       printf("node with world rank %d has local rank %d\n", worldrank, localrank);
-       MPI_Finalize();
-       return 0;
+int main(int argc, char *argv[])
+{
+  int worldrank, localrank;
+  MPI_Comm localcomm;
+  MPI_Init(&argc, &argv);
+  MPI_Comm_rank(MPI_COMM_WORLD, &worldrank);
+  MPI_Comm_split(MPI_COMM_WORLD, worldrank % 2, worldrank, &localcomm);
+  MPI_Comm_rank(localcomm, &localrank);
+  printf("node with world rank %d has local rank %d\n", worldrank, localrank);
+  MPI_Finalize();
+  return 0;
 }
index 842c4f3..903902d 100644 (file)
@@ -327,6 +327,8 @@ XBT_PUBLIC(gras_datadesc_type_t)
                                                  void *data);
 /** \brief Prototype of type callbacks selecting a type. */
      typedef
+
+      
        gras_datadesc_type_t(*gras_datadesc_selector_t) (gras_datadesc_type_t
                                                         typedesc,
                                                         gras_cbps_t vars,
index 25a59ac..bf34372 100644 (file)
@@ -21,7 +21,6 @@ SG_BEGIN_DECL()
 #define MPI_ERR_COUNT   6
 #define MPI_ERR_RANK    7
 #define MPI_ERR_TAG     8
-
 // MPI_Comm
      typedef struct smpi_mpi_communicator_t *smpi_mpi_communicator_t;
      typedef smpi_mpi_communicator_t MPI_Comm;
@@ -123,14 +122,17 @@ XBT_PUBLIC(int) SMPI_MPI_Send(void *buf, int count, MPI_Datatype datatype,
 XBT_PUBLIC(int) SMPI_MPI_Bcast(void *buf, int count, MPI_Datatype datatype,
                                int root, MPI_Comm comm);
 XBT_PUBLIC(int) SMPI_MPI_Wait(MPI_Request * request, MPI_Status * status);
-XBT_PUBLIC(int) SMPI_MPI_Waitall(int count, MPI_Request requests[], MPI_Status status[]);
-XBT_PUBLIC(int) SMPI_MPI_Waitany(int count, MPI_Request requests[], int *index, MPI_Status status[]);
+XBT_PUBLIC(int) SMPI_MPI_Waitall(int count, MPI_Request requests[],
+                                 MPI_Status status[]);
+XBT_PUBLIC(int) SMPI_MPI_Waitany(int count, MPI_Request requests[],
+                                 int *index, MPI_Status status[]);
 XBT_PUBLIC(int) SMPI_MPI_Comm_split(MPI_Comm comm, int color, int key,
                                     MPI_Comm * comm_out);
 XBT_PUBLIC(double) SMPI_MPI_Wtime(void);
 
 XBT_PUBLIC(int) SMPI_MPI_Reduce(void *sendbuf, void *recvbuf, int count,
-                                   MPI_Datatype datatype, MPI_Op op, int root, MPI_Comm comm);
+                                MPI_Datatype datatype, MPI_Op op, int root,
+                                MPI_Comm comm);
 
 // smpi functions
 XBT_IMPORT_NO_EXPORT(int) smpi_simulated_main(int argc, char **argv);
index 41800aa..eb3de33 100644 (file)
@@ -169,13 +169,13 @@ XBT_PUBLIC(void) xbt_cfg_dump(const char *name, const char *indent,
  *
  *  @{
  */
-XBT_PUBLIC(void) xbt_cfg_register(xbt_cfg_t *cfg,
+XBT_PUBLIC(void) xbt_cfg_register(xbt_cfg_t * cfg,
                                   const char *name, const char *description,
-                                  e_xbt_cfgelm_type_t type, void *default_value,
-                                  int min, int max,
+                                  e_xbt_cfgelm_type_t type,
+                                  void *default_value, int min, int max,
                                   xbt_cfg_cb_t cb_set, xbt_cfg_cb_t cb_rm);
 XBT_PUBLIC(void) xbt_cfg_unregister(xbt_cfg_t cfg, const char *name);
-XBT_PUBLIC(void) xbt_cfg_register_str(xbt_cfg_t *cfg, const char *entry);
+XBT_PUBLIC(void) xbt_cfg_register_str(xbt_cfg_t * cfg, const char *entry);
 XBT_PUBLIC(void) xbt_cfg_help(xbt_cfg_t cfg);
 XBT_PUBLIC(void) xbt_cfg_check(xbt_cfg_t cfg);
 XBT_PUBLIC(e_xbt_cfgelm_type_t) xbt_cfg_get_type(xbt_cfg_t cfg,
index 9191f6a..09cc37d 100644 (file)
@@ -80,7 +80,8 @@ XBT_PUBLIC(void) xbt_set_add(xbt_set_t set, xbt_set_elm_t elm,
                              void_f_pvoid_t free_func);
 XBT_PUBLIC(void) xbt_set_remove(xbt_set_t set, xbt_set_elm_t elm);
 XBT_PUBLIC(void) xbt_set_remove_by_name(xbt_set_t set, const char *key);
-XBT_PUBLIC(xbt_set_elm_t) xbt_set_get_by_name_or_null(xbt_set_t set, const char *key);
+XBT_PUBLIC(xbt_set_elm_t) xbt_set_get_by_name_or_null(xbt_set_t set,
+                                                      const char *key);
 XBT_PUBLIC(void) xbt_set_remove_by_name_ext(xbt_set_t set, const char *key,
                                             int key_len);
 XBT_PUBLIC(void) xbt_set_remove_by_id(xbt_set_t set, int id);
index 846fbeb..3bf7c63 100644 (file)
@@ -98,7 +98,7 @@ gras_msg_listener_t gras_msg_listener_launch(xbt_queue_t msg_exchange)
 
   /* actually start the thread */
   arg->listener = xbt_thread_create("listener", listener_function, arg);
-  gras_os_sleep(0); /* TODO: useless? give the listener a chance to initialize even if the main is empty and we cancel it right afterward */
+  gras_os_sleep(0);             /* TODO: useless? give the listener a chance to initialize even if the main is empty and we cancel it right afterward */
   return arg;
 }
 
index 2336943..640009b 100644 (file)
@@ -103,13 +103,19 @@ XBT_PUBLIC(void) bottleneck_solve(lmm_system_t sys);
  */
 
 XBT_PUBLIC(void) lmm_set_default_protocol_function(double (*func_f)
+
+
                                                     
                                                    (lmm_variable_t var,
                                                     double x),
                                                    double (*func_fp)
+
+                                                    
                                                    (lmm_variable_t var,
                                                     double x),
                                                    double (*func_fpi)
+
+                                                    
                                                    (lmm_variable_t var,
                                                     double x));
 
index 503cd52..b9ecb49 100644 (file)
@@ -170,6 +170,86 @@ XBT_PUBLIC(int) find_model_description(s_surf_model_description_t * table,
  */
      typedef struct surf_model_private *surf_model_private_t;
 
+     /** \brief Timer model extension public
+      * \ingroup SURF_model
+      *
+      * Additionnal functions specific to the timer model
+      */
+     typedef struct surf_timer_model_extension_public {
+       void (*set) (double date, void *function, void *arg);
+       int (*get) (void **function, void **arg);
+     } s_surf_timer_model_extension_public_t;
+
+          /* Cpu model */
+
+          /** \brief CPU state
+           *  \ingroup SURF_models
+           */
+     typedef enum {
+       SURF_CPU_ON = 1,                   /**< Up & ready        */
+       SURF_CPU_OFF = 0                   /**< Down & broken     */
+     } e_surf_cpu_state_t;
+
+          /** \brief CPU model extension public
+           *  \ingroup SURF_models
+           *
+           *  Public functions specific to the CPU model.
+           */
+     typedef struct surf_cpu_model_extension_public {
+       surf_action_t(*execute) (void *cpu, double size);
+       surf_action_t(*sleep) (void *cpu, double duration);
+       e_surf_cpu_state_t(*get_state) (void *cpu);
+       double (*get_speed) (void *cpu, double load);
+       double (*get_available_speed) (void *cpu);
+     } s_surf_cpu_model_extension_public_t;
+
+               /* Network model */
+
+               /** \brief Network model extension public
+                *  \ingroup SURF_models
+                *
+                *  Public functions specific to the network model
+                */
+     typedef struct surf_network_model_extension_public {
+       surf_action_t(*communicate) (void *src, void *dst, double size,
+                                    double max_rate);
+       const void **(*get_route) (void *src, void *dst);
+       int (*get_route_size) (void *src, void *dst);
+       const char *(*get_link_name) (const void *link);
+       double (*get_link_bandwidth) (const void *link);
+       double (*get_link_latency) (const void *link);
+       int (*link_shared) (const void *link);
+     } s_surf_network_model_extension_public_t;
+
+                    /** \brief Workstation model extension public
+                     *  \ingroup SURF_models
+                     *
+                     *  Public functions specific to the workstation model.
+                     */
+     typedef struct surf_workstation_model_extension_public {
+       surf_action_t(*execute) (void *workstation, double size);                           /**< Execute a computation amount on a workstation
+                                                                                       and create the corresponding action */
+       surf_action_t(*sleep) (void *workstation, double duration);                         /**< Make a workstation sleep during a given duration */
+       e_surf_cpu_state_t(*get_state) (void *workstation);                                 /**< Return the CPU state of a workstation */
+       double (*get_speed) (void *workstation, double load);                               /**< Return the speed of a workstation */
+       double (*get_available_speed) (void *workstation);                                  /**< Return tha available speed of a workstation */
+       surf_action_t(*communicate) (void *workstation_src,                                 /**< Execute a communication amount between two workstations */
+                                    void *workstation_dst, double size,
+                                    double max_rate);
+
+       surf_action_t(*execute_parallel_task) (int workstation_nb,                          /**< Execute a parallel task on several workstations */
+                                              void **workstation_list,
+                                              double *computation_amount,
+                                              double *communication_amount,
+                                              double amount, double rate);
+       const void **(*get_route) (void *src, void *dst);                                   /**< Return the network link list between two workstations */
+       int (*get_route_size) (void *src, void *dst);                                       /**< Return the route size between two workstations */
+       const char *(*get_link_name) (const void *link);                                    /**< Return the name of a network link */
+       double (*get_link_bandwidth) (const void *link);                                    /**< Return the current bandwidth of a network link */
+       double (*get_link_latency) (const void *link);                                      /**< Return the current latency of a network link */
+       int (*link_shared) (const void *link);
+     } s_surf_workstation_model_extension_public_t;
+
 /** \brief Model datatype
  *  \ingroup SURF_models
  *
@@ -179,10 +259,16 @@ XBT_PUBLIC(int) find_model_description(s_surf_model_description_t * table,
      typedef struct surf_model {
        s_surf_model_public_t common_public;
        surf_model_private_t common_private;
+       union extension {
+         s_surf_timer_model_extension_public_t timer;
+         s_surf_cpu_model_extension_public_t cpu;
+         s_surf_network_model_extension_public_t network;
+         s_surf_workstation_model_extension_public_t workstation;
+       } extension;
      } s_surf_model_t;
 
      void surf_model_init(surf_model_t model);
-     void* surf_model_resource_by_name(void* model, const char *name);
+     void *surf_model_resource_by_name(surf_model_t model, const char *name);
 #define surf_model_resource_set(model) (model)->common_public.resource_set
      void surf_model_exit(surf_model_t model);
 
@@ -194,73 +280,21 @@ XBT_PUBLIC(int) find_model_description(s_surf_model_description_t * table,
 /* Implementations of model object */
 /**************************************/
 
-/** \brief Timer model extension public
- * \ingroup SURF_model
- *
- * Additionnal functions specific to the timer model
- */
-     typedef struct surf_timer_model_extension_public {
-       void (*set) (double date, void *function, void *arg);
-       int (*get) (void **function, void **arg);
-     } s_surf_timer_model_extension_public_t,
-  *surf_timer_model_extension_public_t;
-
-/** \brief Timer model
- *  \ingroup SURF_models
- */
-     typedef struct surf_timer_model {
-       s_surf_model_public_t common_public;
-       surf_model_private_t common_private;
-       surf_timer_model_extension_public_t extension_public;
-     } s_surf_timer_model_t, *surf_timer_model_t;
 
 /** \brief The timer model
  *  \ingroup SURF_models
  */
-XBT_PUBLIC_DATA(surf_timer_model_t) surf_timer_model;
+XBT_PUBLIC_DATA(surf_model_t) surf_timer_model;
 
 /** \brief Initializes the timer model
  *  \ingroup SURF_models
  */
 XBT_PUBLIC(void) surf_timer_model_init(const char *filename);
 
-/* Cpu model */
-
-/** \brief CPU state
- *  \ingroup SURF_models
- */
-     typedef enum {
-       SURF_CPU_ON = 1,         /**< Up & ready        */
-       SURF_CPU_OFF = 0         /**< Down & broken     */
-     } e_surf_cpu_state_t;
-
-/** \brief CPU model extension public
- *  \ingroup SURF_models
- *
- *  Public functions specific to the CPU model.
- */
-     typedef struct surf_cpu_model_extension_public {
-       surf_action_t(*execute) (void *cpu, double size);
-       surf_action_t(*sleep) (void *cpu, double duration);
-       e_surf_cpu_state_t(*get_state) (void *cpu);
-       double (*get_speed) (void *cpu, double load);
-       double (*get_available_speed) (void *cpu);
-     } s_surf_cpu_model_extension_public_t,
-  *surf_cpu_model_extension_public_t;
-
-/** \brief CPU model datatype
- *  \ingroup SURF_models
- */
-     typedef struct surf_cpu_model {
-       s_surf_model_public_t common_public;
-       surf_model_private_t common_private;
-       surf_cpu_model_extension_public_t extension_public;
-     } s_surf_cpu_model_t, *surf_cpu_model_t;
-
 /** \brief The CPU model
  *  \ingroup SURF_models
  */
-XBT_PUBLIC_DATA(surf_cpu_model_t) surf_cpu_model;
+XBT_PUBLIC_DATA(surf_model_t) surf_cpu_model;
 
 /** \brief Initializes the CPU model with the model Cas01
  *  \ingroup SURF_models
@@ -277,34 +311,6 @@ XBT_PUBLIC(void) surf_cpu_model_init_Cas01(const char *filename);
  */
 XBT_PUBLIC_DATA(s_surf_model_description_t) surf_cpu_model_description[];
 
-/* Network model */
-
-/** \brief Network model extension public
- *  \ingroup SURF_models
- *
- *  Public functions specific to the network model
- */
-     typedef struct surf_network_model_extension_public {
-       surf_action_t(*communicate) (void *src, void *dst, double size,
-                                    double max_rate);
-       const void **(*get_route) (void *src, void *dst);
-       int (*get_route_size) (void *src, void *dst);
-       const char *(*get_link_name) (const void *link);
-       double (*get_link_bandwidth) (const void *link);
-       double (*get_link_latency) (const void *link);
-       int (*link_shared) (const void *link);
-     } s_surf_network_model_extension_public_t,
-  *surf_network_model_extension_public_t;
-
-/** \brief Network model datatype
- *  \ingroup SURF_models
- */
-     typedef struct surf_network_model {
-       s_surf_model_public_t common_public;
-       surf_model_private_t common_private;
-       surf_network_model_extension_public_t extension_public;
-     } s_surf_network_model_t, *surf_network_model_t;
-
 XBT_PUBLIC(void) create_workstations(void);
 
 /** \brief The network model
@@ -315,7 +321,7 @@ XBT_PUBLIC(void) create_workstations(void);
  *  model should be accessed because depending on the platform model,
  *  the network model can be NULL.
  */
-XBT_PUBLIC_DATA(surf_network_model_t) surf_network_model;
+XBT_PUBLIC_DATA(surf_model_t) surf_network_model;
 
 /** \brief Initializes the platform with the network model 'LagrangeVelho'
  *  \ingroup SURF_models
@@ -437,45 +443,6 @@ XBT_PUBLIC(void) surf_network_model_init_SDP(const char *filename);
  */
 XBT_PUBLIC_DATA(s_surf_model_description_t) surf_network_model_description[];
 
-/** \brief Workstation model extension public
- *  \ingroup SURF_models
- *
- *  Public functions specific to the workstation model.
- */
-     typedef struct surf_workstation_model_extension_public {
-       surf_action_t(*execute) (void *workstation, double size);       /**< Execute a computation amount on a workstation
-                                                                       and create the corresponding action */
-       surf_action_t(*sleep) (void *workstation, double duration);     /**< Make a workstation sleep during a given duration */
-       e_surf_cpu_state_t(*get_state) (void *workstation);             /**< Return the CPU state of a workstation */
-       double (*get_speed) (void *workstation, double load);           /**< Return the speed of a workstation */
-       double (*get_available_speed) (void *workstation);              /**< Return tha available speed of a workstation */
-         surf_action_t(*communicate) (void *workstation_src,           /**< Execute a communication amount between two workstations */
-                                      void *workstation_dst, double size,
-                                      double max_rate);
-
-         surf_action_t(*execute_parallel_task) (int workstation_nb,    /**< Execute a parallel task on several workstations */
-                                                void **workstation_list,
-                                                double *computation_amount,
-                                                double *communication_amount,
-                                                double amount, double rate);
-       const void **(*get_route) (void *src, void *dst);               /**< Return the network link list between two workstations */
-       int (*get_route_size) (void *src, void *dst);                   /**< Return the route size between two workstations */
-       const char *(*get_link_name) (const void *link);                /**< Return the name of a network link */
-       double (*get_link_bandwidth) (const void *link);                /**< Return the current bandwidth of a network link */
-       double (*get_link_latency) (const void *link);                  /**< Return the current latency of a network link */
-       int (*link_shared) (const void *link);
-     } s_surf_workstation_model_extension_public_t,
-  *surf_workstation_model_extension_public_t;
-
-/** \brief Workstation model datatype.
- *  \ingroup SURF_models
- *
- */
-     typedef struct surf_workstation_model {
-       s_surf_model_public_t common_public;
-       surf_model_private_t common_private;
-       surf_workstation_model_extension_public_t extension_public;
-     } s_surf_workstation_model_t, *surf_workstation_model_t;
 
 /** \brief The workstation model
  *  \ingroup SURF_models
@@ -485,7 +452,7 @@ XBT_PUBLIC_DATA(s_surf_model_description_t) surf_network_model_description[];
  *  because depending on the platform model, the network model and the CPU model
  *  may not exist.
  */
-XBT_PUBLIC_DATA(surf_workstation_model_t) surf_workstation_model;
+XBT_PUBLIC_DATA(surf_model_t) surf_workstation_model;
 
 /** \brief Initializes the platform with a compound workstation model
  *  \ingroup SURF_models
@@ -557,8 +524,6 @@ XBT_PUBLIC_DATA(xbt_dict_t) link_set;
  *
  *  \see link_set
  */
-/*XBT_PUBLIC_DATA(xbt_dict_t) workstation_set; //KILLME
-XBT_PUBLIC_DATA(xbt_dict_t) cpu_set; //KILLME*/
 /** \brief List of initialized models
  *  \ingroup SURF_models
  */
index aab0fc3..abdea17 100644 (file)
@@ -4,18 +4,18 @@
 #include "xbt/misc.h"                          /* XBT_PUBLIC(), SG_BEGIN_DECL() and SG_END_DECL() definitions  */\r
 #include "xbt/function_types.h"                /* function pointer types declarations                                                  */      \r
 #include "xbt_modinter.h"                      /* xbt_context_init() and xbt_context_exit() declarations               */\r
-     \rSG_BEGIN_DECL() \r \rtypedef struct s_xbt_context *xbt_context_t;\r
-\r\rXBT_PUBLIC(xbt_context_t) \r
-xbt_context_new(const char *name, xbt_main_func_t code,\r
-                void_f_pvoid_t startup_func, void *startup_arg,\r
-                void_f_pvoid_t cleanup_func, void *cleanup_arg, int argc,\r
-                char *argv[]);\r
-\r\rXBT_PUBLIC(void) \r xbt_context_kill(xbt_context_t context);\r
-\r\rXBT_PUBLIC(void) \r xbt_context_start(xbt_context_t context);\r
-\r\rXBT_PUBLIC(void) \r xbt_context_yield(void);\r
-\r\rXBT_PUBLIC(void) \r xbt_context_schedule(xbt_context_t context);\r
-     \r\rvoid \rxbt_context_empty_trash(void);\r
-     \r\rvoid \rxbt_context_stop(int exit_code);\r
-     \r\rvoid \rxbt_context_free(xbt_context_t context);\r
-\r\r\rSG_END_DECL() \r \r
+     \rSG_BEGIN_DECL() \r \rtypedef struct s_xbt_context *xbt_context_t;
+\r\r\rXBT_PUBLIC(xbt_context_t) \r
+xbt_context_new(const char *name, xbt_main_func_t code,
+                \rvoid_f_pvoid_t startup_func, void *startup_arg,
+                \rvoid_f_pvoid_t cleanup_func, void *cleanup_arg, int argc,
+                \rchar *argv[]);
+\r\r\rXBT_PUBLIC(void) \r xbt_context_kill(xbt_context_t context);
+\r\r\rXBT_PUBLIC(void) \r xbt_context_start(xbt_context_t context);
+\r\r\rXBT_PUBLIC(void) \r xbt_context_yield(void);
+\r\r\rXBT_PUBLIC(void) \r xbt_context_schedule(xbt_context_t context);
+     \r\r\rvoid \rxbt_context_empty_trash(void);
+     \r\r\rvoid \rxbt_context_stop(int exit_code);
+     \r\r\rvoid \rxbt_context_free(xbt_context_t context);
+\r\r\r\rSG_END_DECL() \r \r
 #endif  /* !XBT_CONTEXT_H */\r
index f8810ee..bceda37 100644 (file)
@@ -5,88 +5,94 @@
 #include "surf/surfxml_parse.h"\r
 #include "jxbt_utilities.h"\r
 \r\r\r\rvoid \rjapplication_handler_on_start_document(void) \r
-{\r
-  \rjclass cls;\r
-  \rJNIEnv * env = get_current_thread_env();\r
-  \r\rjmethodID id =\r
-    jxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",\r
-                            "onStartDocument", "()V");\r
-  \r\rif (!id || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))\r
-    \rreturn;\r
-  \r\r(*env)->CallStaticVoidMethod(env, cls, id);\r
-\r}\r
-\r
-\r\rvoid \rjapplication_handler_on_end_document(void) \r
-{\r
-  \rjclass cls;\r
-  \rJNIEnv * env = get_current_thread_env();\r
-  \r\rjmethodID id =\r
-    jxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",\r
-                            "onEndDocument", "()V");\r
-  \r\rif (!id || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))\r
-    \rreturn;\r
-  \r\r(*env)->CallStaticVoidMethod(env, cls, id);\r
-\r}\r
-\r
-\r\rvoid \rjapplication_handler_on_begin_process(void) \r
-{\r
-  \rjstring jhostName;\r
-  \rjstring jfunction;\r
-  \rjclass cls;\r
-  \rJNIEnv * env = get_current_thread_env();\r
-  \r\rjmethodID id =\r
-    jxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",\r
-                            "onBeginProcess",\r
-                            "(Ljava/lang/String;Ljava/lang/String;)V");\r
-  \r\rif (!id || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))\r
-    \rreturn;\r
-  \r\rjhostName = (jstring) (*env)->NewStringUTF(env, A_surfxml_process_host);\r
-  \rjfunction =\r
-    (jstring) (*env)->NewStringUTF(env, A_surfxml_process_function);\r
-  \r\r(*env)->CallStaticVoidMethod(env, cls, id, jhostName, jfunction);\r
-\r}\r
-\r
-\r\rvoid \rjapplication_handler_on_process_arg(void) \r
-{\r
-  \rjstring jarg;\r
-  \rjclass cls;\r
-  \rJNIEnv * env = get_current_thread_env();\r
-  \r\rjmethodID id =\r
-    jxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",\r
-                            "onProcessArg", "(Ljava/lang/String;)V");\r
-  \r\rif (!id || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))\r
-    \rreturn;\r
-  \r\rjarg = (jstring) (*env)->NewStringUTF(env, A_surfxml_argument_value);\r
-  \r\r(*env)->CallStaticVoidMethod(env, cls, id, jarg);\r
-\r}\r
-\r
-\r\rvoid \rjapplication_handler_on_property(void) \r
-{\r
-  \rjstring jid;\r
-  \rjstring jvalue;\r
-  \rjclass cls;\r
-  \rJNIEnv * env = get_current_thread_env();\r
-  \r\rjmethodID id =\r
-    jxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",\r
-                            "onProperty",\r
-                            "(Ljava/lang/String;Ljava/lang/String;)V");\r
-  \r\rif (!id || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))\r
-    \rreturn;\r
-  \r\rjid = (jstring) (*env)->NewStringUTF(env, A_surfxml_prop_id);\r
-  \rjvalue = (jstring) (*env)->NewStringUTF(env, A_surfxml_prop_value);\r
-  \r\r(*env)->CallStaticVoidMethod(env, cls, id, jid, jvalue);\r
-\r}\r
-\r
-\r\rvoid \rjapplication_handler_on_end_process(void) \r
-{\r
-  \rJNIEnv * env = get_current_thread_env();\r
-  \rjclass cls;\r
-  \rjmethodID id =\r
-    jxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",\r
-                            "onEndProcess", "()V");\r
-  \r\rif (!id || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))\r
-    \rreturn;\r
-  \r\r(*env)->CallStaticVoidMethod(env, cls, id);\r
-\r}\r
-\r
-\r
+{
+  \r\rjclass cls;
+  \r\rJNIEnv * env = get_current_thread_env();
+  \r\r\rjmethodID id =
+    \rjxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",
+                             \r"onStartDocument", "()V");
+  \r\r\rif (!id
+         || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))
+    \r\rreturn;
+  \r\r\r(*env)->CallStaticVoidMethod(env, cls, id);
+\r\r}
+
+\r\r\r\rvoid \rjapplication_handler_on_end_document(void) \r
+{
+  \r\rjclass cls;
+  \r\rJNIEnv * env = get_current_thread_env();
+  \r\r\rjmethodID id =
+    \rjxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",
+                             \r"onEndDocument", "()V");
+  \r\r\rif (!id
+         || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))
+    \r\rreturn;
+  \r\r\r(*env)->CallStaticVoidMethod(env, cls, id);
+\r\r}
+
+\r\r\r\rvoid \rjapplication_handler_on_begin_process(void) \r
+{
+  \r\rjstring jhostName;
+  \r\rjstring jfunction;
+  \r\rjclass cls;
+  \r\rJNIEnv * env = get_current_thread_env();
+  \r\r\rjmethodID id =
+    \rjxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",
+                             \r"onBeginProcess",
+                             \r"(Ljava/lang/String;Ljava/lang/String;)V");
+  \r\r\rif (!id
+         || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))
+    \r\rreturn;
+  \r\r\rjhostName = (jstring) (*env)->NewStringUTF(env, A_surfxml_process_host);
+  \r\rjfunction = \r
+    (jstring) (*env)->NewStringUTF(env, A_surfxml_process_function);
+  \r\r\r(*env)->CallStaticVoidMethod(env, cls, id, jhostName, jfunction);
+\r\r}
+
+\r\r\r\rvoid \rjapplication_handler_on_process_arg(void) \r
+{
+  \r\rjstring jarg;
+  \r\rjclass cls;
+  \r\rJNIEnv * env = get_current_thread_env();
+  \r\r\rjmethodID id =
+    \rjxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",
+                             \r"onProcessArg", "(Ljava/lang/String;)V");
+  \r\r\rif (!id
+         || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))
+    \r\rreturn;
+  \r\r\rjarg = (jstring) (*env)->NewStringUTF(env, A_surfxml_argument_value);
+  \r\r\r(*env)->CallStaticVoidMethod(env, cls, id, jarg);
+\r\r}
+
+\r\r\r\rvoid \rjapplication_handler_on_property(void) \r
+{
+  \r\rjstring jid;
+  \r\rjstring jvalue;
+  \r\rjclass cls;
+  \r\rJNIEnv * env = get_current_thread_env();
+  \r\r\rjmethodID id =
+    \rjxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",
+                             \r"onProperty",
+                             \r"(Ljava/lang/String;Ljava/lang/String;)V");
+  \r\r\rif (!id
+         || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))
+    \r\rreturn;
+  \r\r\rjid = (jstring) (*env)->NewStringUTF(env, A_surfxml_prop_id);
+  \r\rjvalue = (jstring) (*env)->NewStringUTF(env, A_surfxml_prop_value);
+  \r\r\r(*env)->CallStaticVoidMethod(env, cls, id, jid, jvalue);
+\r\r}
+
+\r\r\r\rvoid \rjapplication_handler_on_end_process(void) \r
+{
+  \r\rJNIEnv * env = get_current_thread_env();
+  \r\rjclass cls;
+  \r\rjmethodID id =
+    \rjxbt_get_static_smethod(env, "simgrid/msg/ApplicationHandler",
+                             \r"onEndProcess", "()V");
+  \r\r\rif (!id
+         || !(cls = jxbt_get_class(env, "simgrid/msg/ApplicationHandler")))
+    \r\rreturn;
+  \r\r\r(*env)->CallStaticVoidMethod(env, cls, id);
+\r\r}
+
+\r\r\r
index 502a5c8..11cbc29 100644 (file)
@@ -37,7 +37,7 @@ void MSG_config(const char *name, ...)
     abort();
   }
   va_start(pa, name);
-  xbt_cfg_set_vargs(_surf_cfg_set,name,pa);
+  xbt_cfg_set_vargs(_surf_cfg_set, name, pa);
   va_end(pa);
   return;
 }
index 939f438..8bd6c18 100644 (file)
@@ -180,11 +180,12 @@ MSG_mailbox_get_task_ext(msg_mailbox_t mailbox, m_task_t * task,
   h = MSG_host_self();
   h_simdata = h->simdata;
 
-  SIMIX_mutex_lock(h_simdata->mutex);//FIXME: lock the mailbox instead
+  SIMIX_mutex_lock(h_simdata->mutex);   //FIXME: lock the mailbox instead
 
   if (MSG_mailbox_get_cond(mailbox)) {
-    CRITICAL1("A process is already blocked on the channel %s (meaning that someone is already doing a get on this)",
-              MSG_mailbox_get_alias(mailbox));
+    CRITICAL1
+      ("A process is already blocked on the channel %s (meaning that someone is already doing a get on this)",
+       MSG_mailbox_get_alias(mailbox));
     SIMIX_cond_display_info(MSG_mailbox_get_cond(mailbox));
     xbt_die("Go fix your code!");
   }
@@ -335,7 +336,7 @@ MSG_mailbox_put_with_timeout(msg_mailbox_t mailbox, m_task_t task,
          t_simdata->message_size / 1000, local_host->name,
          remote_host->name, MSG_mailbox_get_alias(mailbox));
 
-  SIMIX_mutex_lock(remote_host->simdata->mutex); /* FIXME: lock the mailbox instead */
+  SIMIX_mutex_lock(remote_host->simdata->mutex);        /* FIXME: lock the mailbox instead */
 
   /* put the task in the mailbox */
   xbt_fifo_push(mailbox->tasks, task);
@@ -349,7 +350,7 @@ MSG_mailbox_put_with_timeout(msg_mailbox_t mailbox, m_task_t task,
 
   SIMIX_mutex_lock(t_simdata->mutex);
 
-  process->simdata->waiting_task = task; // for debugging and status displaying purpose
+  process->simdata->waiting_task = task;        // for debugging and status displaying purpose
 
   if (timeout > 0) {
     xbt_ex_t e;
@@ -398,7 +399,7 @@ MSG_mailbox_put_with_timeout(msg_mailbox_t mailbox, m_task_t task,
       }
     }
   } else {
-    while (1) {//FIXME: factorize with the code right above
+    while (1) {                 //FIXME: factorize with the code right above
       SIMIX_cond_wait(t_simdata->cond, t_simdata->mutex);
 
       if (t_simdata->comm)
index 28a4d23..bfcb633 100644 (file)
@@ -162,7 +162,8 @@ void SD_create_environment(const char *platform_file)
   parse_platform_file(platform_file);
 
   /* now let's create the SD wrappers for workstations and links */
-  xbt_dict_foreach(surf_model_resource_set(surf_workstation_model), cursor, name, surf_workstation) {
+  xbt_dict_foreach(surf_model_resource_set(surf_workstation_model), cursor,
+                   name, surf_workstation) {
     __SD_workstation_create(surf_workstation, NULL);
   }
 
@@ -208,8 +209,8 @@ SD_task_t *SD_simulate(double how_long)
   }
 
   if (how_long > 0) {
-    surf_timer_model->extension_public->set(surf_get_clock() + how_long,
-                                            NULL, NULL);
+    surf_timer_model->extension.timer.set(surf_get_clock() + how_long,
+                                          NULL, NULL);
   }
   sd_global->watch_point_reached = 0;
 
@@ -285,7 +286,7 @@ SD_task_t *SD_simulate(double how_long)
       }
     }
 
-    while (surf_timer_model->extension_public->get(&fun, (void *) &arg)) {
+    while (surf_timer_model->extension.timer.get(&fun, (void *) &arg)) {
     }
   }
 
index fe7087d..d671908 100644 (file)
@@ -18,7 +18,7 @@ SD_link_t __SD_link_create(void *surf_link, void *data)
   link = xbt_new(s_SD_link_t, 1);
   link->surf_link = surf_link;
   link->data = data;            /* user data */
-  if (surf_workstation_model->extension_public->link_shared(surf_link))
+  if (surf_workstation_model->extension.workstation.link_shared(surf_link))
     link->sharing_policy = SD_LINK_SHARED;
   else
     link->sharing_policy = SD_LINK_FATPIPE;
@@ -113,8 +113,8 @@ const char *SD_link_get_name(SD_link_t link)
 {
   SD_CHECK_INIT_DONE();
   xbt_assert0(link != NULL, "Invalid parameter");
-  return surf_workstation_model->extension_public->get_link_name(link->
-                                                                 surf_link);
+  return surf_workstation_model->extension.workstation.get_link_name(link->
+                                                                     surf_link);
 }
 
 /**
@@ -127,8 +127,8 @@ double SD_link_get_current_bandwidth(SD_link_t link)
 {
   SD_CHECK_INIT_DONE();
   xbt_assert0(link != NULL, "Invalid parameter");
-  return surf_workstation_model->extension_public->get_link_bandwidth(link->
-                                                                      surf_link);
+  return surf_workstation_model->extension.
+    workstation.get_link_bandwidth(link->surf_link);
 }
 
 /**
@@ -169,8 +169,8 @@ double SD_link_get_current_latency(SD_link_t link)
 {
   SD_CHECK_INIT_DONE();
   xbt_assert0(link != NULL, "Invalid parameter");
-  return surf_workstation_model->extension_public->get_link_latency(link->
-                                                                    surf_link);
+  return surf_workstation_model->extension.workstation.get_link_latency(link->
+                                                                        surf_link);
 }
 
 /**
index ba5c414..9dad947 100644 (file)
@@ -130,13 +130,13 @@ void __SD_task_set_state(SD_task_t task, e_SD_task_state_t new_state)
     task->state_set = sd_global->running_task_set;
     task->start_time =
       surf_workstation_model->common_public.action_get_start_time(task->
-                                                                   surf_action);
+                                                                  surf_action);
     break;
   case SD_DONE:
     task->state_set = sd_global->done_task_set;
     task->finish_time =
       surf_workstation_model->common_public.action_get_finish_time(task->
-                                                                    surf_action);
+                                                                   surf_action);
     task->remains = 0;
     break;
   case SD_FAILED:
@@ -713,18 +713,14 @@ void __SD_task_really_run(SD_task_t task)
   task->surf_action = NULL;
   if ((task->workstation_nb == 1) && (task->communication_amount[0] == 0.0)) {
     task->surf_action =
-      surf_workstation_model->extension_public->execute(surf_workstations[0],
-                                                        task->
-                                                        computation_amount
-                                                        [0]);
+      surf_workstation_model->extension.
+      workstation.execute(surf_workstations[0], task->computation_amount[0]);
   } else if ((task->workstation_nb == 1)
              && (task->computation_amount[0] == 0.0)) {
     task->surf_action =
-      surf_workstation_model->
-      extension_public->communicate(surf_workstations[0],
-                                    surf_workstations[0],
-                                    task->communication_amount[0],
-                                    task->rate);
+      surf_workstation_model->extension.
+      workstation.communicate(surf_workstations[0], surf_workstations[0],
+                              task->communication_amount[0], task->rate);
   } else if ((task->workstation_nb == 2)
              && (task->computation_amount[0] == 0.0)
              && (task->computation_amount[1] == 0.0)) {
@@ -739,10 +735,9 @@ void __SD_task_really_run(SD_task_t task)
     }
     if (nb == 1) {
       task->surf_action =
-        surf_workstation_model->
-        extension_public->communicate(surf_workstations[0],
-                                      surf_workstations[1], value,
-                                      task->rate);
+        surf_workstation_model->extension.
+        workstation.communicate(surf_workstations[0], surf_workstations[1],
+                                value, task->rate);
     }
   }
   if (!task->surf_action) {
@@ -756,21 +751,17 @@ void __SD_task_really_run(SD_task_t task)
            sizeof(double) * task->workstation_nb * task->workstation_nb);
 
     task->surf_action =
-      surf_workstation_model->extension_public->execute_parallel_task(task->
-                                                                      workstation_nb,
-                                                                      surf_workstations,
-                                                                      computation_amount,
-                                                                      communication_amount,
-                                                                      task->
-                                                                      amount,
-                                                                      task->
-                                                                      rate);
+      surf_workstation_model->extension.
+      workstation.execute_parallel_task(task->workstation_nb,
+                                        surf_workstations, computation_amount,
+                                        communication_amount, task->amount,
+                                        task->rate);
   } else {
     xbt_free(surf_workstations);
   }
 
   surf_workstation_model->common_public.action_set_data(task->surf_action,
-                                                         task);
+                                                        task);
 
   DEBUG1("surf_action = %p", task->surf_action);
 
@@ -1009,7 +1000,7 @@ double SD_task_get_start_time(SD_task_t task)
   xbt_assert0(task != NULL, "Invalid parameter");
   if (task->surf_action)
     return surf_workstation_model->common_public.action_get_start_time(task->
-                                                                        surf_action);
+                                                                       surf_action);
   else
     return task->start_time;
 }
index 686bc0a..608fbc6 100644 (file)
@@ -199,15 +199,17 @@ const SD_link_t *SD_route_get_list(SD_workstation_t src, SD_workstation_t dst)
   surf_dst = dst->surf_workstation;
 
   surf_route =
-    surf_workstation_model->extension_public->get_route(surf_src, surf_dst);
+    surf_workstation_model->extension.workstation.get_route(surf_src,
+                                                            surf_dst);
   route_size =
-    surf_workstation_model->extension_public->get_route_size(surf_src,
-                                                             surf_dst);
+    surf_workstation_model->extension.workstation.get_route_size(surf_src,
+                                                                 surf_dst);
 
 
   for (i = 0; i < route_size; i++) {
     link_name =
-      surf_workstation_model->extension_public->get_link_name(surf_route[i]);
+      surf_workstation_model->extension.
+      workstation.get_link_name(surf_route[i]);
     sd_global->recyclable_route[i] =
       xbt_dict_get(sd_global->links, link_name);
   }
@@ -226,10 +228,10 @@ const SD_link_t *SD_route_get_list(SD_workstation_t src, SD_workstation_t dst)
 int SD_route_get_size(SD_workstation_t src, SD_workstation_t dst)
 {
   SD_CHECK_INIT_DONE();
-  return surf_workstation_model->extension_public->get_route_size(src->
-                                                                  surf_workstation,
-                                                                  dst->
-                                                                  surf_workstation);
+  return surf_workstation_model->extension.workstation.get_route_size(src->
+                                                                      surf_workstation,
+                                                                      dst->
+                                                                      surf_workstation);
 }
 
 /**
@@ -243,9 +245,9 @@ double SD_workstation_get_power(SD_workstation_t workstation)
 {
   SD_CHECK_INIT_DONE();
   xbt_assert0(workstation != NULL, "Invalid parameter");
-  return surf_workstation_model->extension_public->get_speed(workstation->
-                                                             surf_workstation,
-                                                             1.0);
+  return surf_workstation_model->extension.workstation.get_speed(workstation->
+                                                                 surf_workstation,
+                                                                 1.0);
 }
 
 /**
@@ -259,7 +261,7 @@ double SD_workstation_get_available_power(SD_workstation_t workstation)
 {
   SD_CHECK_INIT_DONE();
   xbt_assert0(workstation != NULL, "Invalid parameter");
-  return surf_workstation_model->extension_public->
+  return surf_workstation_model->extension.workstation.
     get_available_speed(workstation->surf_workstation);
 }
 
@@ -451,15 +453,15 @@ void SD_workstation_set_access_mode(SD_workstation_t workstation,
 }
 
 /* Returns whether a task can start now on a workstation.
-                      *//*
-               int __SD_workstation_can_start(SD_workstation_t workstation, SD_task_t task) {
-               SD_CHECK_INIT_DONE();
-               xbt_assert0(workstation != NULL && task != NULL, "Invalid parameter");
-
-               return !__SD_workstation_is_busy(workstation) &&
-               (xbt_fifo_size(workstation->task_fifo) == 0) || xbt_fifo_get_first_item(workstation->task_fifo) == task);
-               }
-             */
+                                                                                              *//*
+                                                   int __SD_workstation_can_start(SD_workstation_t workstation, SD_task_t task) {
+                                                   SD_CHECK_INIT_DONE();
+                                                   xbt_assert0(workstation != NULL && task != NULL, "Invalid parameter");
+
+                                                   return !__SD_workstation_is_busy(workstation) &&
+                                                   (xbt_fifo_size(workstation->task_fifo) == 0) || xbt_fifo_get_first_item(workstation->task_fifo) == task);
+                                                   }
+                                                 */
 
 /* Returns whether a workstation is busy. A workstation is busy is it is
  * in sequential mode and a task is running on it or the fifo is not empty.
index 88655fe..9570768 100644 (file)
@@ -104,7 +104,7 @@ typedef struct s_smx_simdata_action {
 /******************************* Other **********************************/
 
 
-#define SIMIX_CHECK_HOST()  xbt_assert0(surf_workstation_model->extension_public-> \
+#define SIMIX_CHECK_HOST()  xbt_assert0(surf_workstation_model->extension.workstation. \
                                  get_state(SIMIX_host_self()->simdata->host)==SURF_CPU_ON,\
                                   "Host failed, you cannot call this function.")
 
index 0848d34..a6a7054 100644 (file)
@@ -32,13 +32,13 @@ smx_action_t SIMIX_action_communicate(smx_host_t sender,
   smx_simdata_action_t simdata;
 
   /* check if the host is active */
-  if (surf_workstation_model->
-      extension_public->get_state(sender->simdata->host) != SURF_CPU_ON) {
+  if (surf_workstation_model->extension.
+      workstation.get_state(sender->simdata->host) != SURF_CPU_ON) {
     THROW1(network_error, 0, "Host %s failed, you cannot call this function",
            sender->name);
   }
-  if (surf_workstation_model->
-      extension_public->get_state(receiver->simdata->host) != SURF_CPU_ON) {
+  if (surf_workstation_model->extension.
+      workstation.get_state(receiver->simdata->host) != SURF_CPU_ON) {
     THROW1(network_error, 0, "Host %s failed, you cannot call this function",
            receiver->name);
   }
@@ -55,12 +55,10 @@ smx_action_t SIMIX_action_communicate(smx_host_t sender,
 
 
   simdata->surf_action =
-    surf_workstation_model->extension_public->communicate(sender->simdata->
-                                                          host,
-                                                          receiver->simdata->
-                                                          host, size, rate);
+    surf_workstation_model->extension.workstation.
+    communicate(sender->simdata->host, receiver->simdata->host, size, rate);
   surf_workstation_model->common_public.action_set_data(simdata->surf_action,
-                                                         act);
+                                                        act);
 
   DEBUG1("Create communicate action %p", act);
   return act;
@@ -81,8 +79,8 @@ smx_action_t SIMIX_action_execute(smx_host_t host, const char *name,
   smx_simdata_action_t simdata;
 
   /* check if the host is active */
-  if (surf_workstation_model->
-      extension_public->get_state(host->simdata->host) != SURF_CPU_ON) {
+  if (surf_workstation_model->extension.
+      workstation.get_state(host->simdata->host) != SURF_CPU_ON) {
     THROW1(host_error, 0, "Host %s failed, you cannot call this function",
            host->name);
   }
@@ -99,11 +97,11 @@ smx_action_t SIMIX_action_execute(smx_host_t host, const char *name,
 
   /* set communication */
   simdata->surf_action =
-    surf_workstation_model->extension_public->execute(host->simdata->host,
-                                                      amount);
+    surf_workstation_model->extension.workstation.execute(host->simdata->host,
+                                                          amount);
 
   surf_workstation_model->common_public.action_set_data(simdata->surf_action,
-                                                         act);
+                                                        act);
 
   DEBUG1("Create execute action %p", act);
   return act;
@@ -123,8 +121,8 @@ smx_action_t SIMIX_action_sleep(smx_host_t host, double duration)
   smx_action_t act;
 
   /* check if the host is active */
-  if (surf_workstation_model->
-      extension_public->get_state(host->simdata->host) != SURF_CPU_ON) {
+  if (surf_workstation_model->extension.
+      workstation.get_state(host->simdata->host) != SURF_CPU_ON) {
     THROW1(host_error, 0, "Host %s failed, you cannot call this function",
            host->name);
   }
@@ -140,11 +138,11 @@ smx_action_t SIMIX_action_sleep(smx_host_t host, double duration)
   act->name = xbt_strdup(name);
 
   simdata->surf_action =
-    surf_workstation_model->extension_public->sleep(host->simdata->host,
-                                                    duration);
+    surf_workstation_model->extension.workstation.sleep(host->simdata->host,
+                                                        duration);
 
   surf_workstation_model->common_public.action_set_data(simdata->surf_action,
-                                                         act);
+                                                        act);
 
   DEBUG1("Create sleep action %p", act);
   return act;
@@ -162,9 +160,8 @@ void SIMIX_action_cancel(smx_action_t action)
 
   DEBUG1("Cancel action %p", action);
   if (action->simdata->surf_action) {
-    surf_workstation_model->common_public.action_cancel(action->
-                                                         simdata->
-                                                         surf_action);
+    surf_workstation_model->common_public.action_cancel(action->simdata->
+                                                        surf_action);
   }
   return;
 }
@@ -182,7 +179,7 @@ void SIMIX_action_set_priority(smx_action_t action, double priority)
               && (action->simdata != NULL), "Invalid parameter");
 
   surf_workstation_model->common_public.set_priority(action->simdata->
-                                                      surf_action, priority);
+                                                     surf_action, priority);
   return;
 }
 
@@ -329,15 +326,13 @@ smx_action_t SIMIX_action_parallel_execute(char *name, int host_nb,
     workstation_list[i] = host_list[i]->simdata->host;
 
   simdata->surf_action =
-    surf_workstation_model->extension_public->execute_parallel_task(host_nb,
-                                                                    workstation_list,
-                                                                    computation_amount,
-                                                                    communication_amount,
-                                                                    amount,
-                                                                    rate);
+    surf_workstation_model->extension.
+    workstation.execute_parallel_task(host_nb, workstation_list,
+                                      computation_amount,
+                                      communication_amount, amount, rate);
 
   surf_workstation_model->common_public.action_set_data(simdata->surf_action,
-                                                         act);
+                                                        act);
 
   return act;
 }
@@ -346,8 +341,8 @@ e_surf_action_state_t SIMIX_action_get_state(smx_action_t action)
 {
   xbt_assert0((action != NULL), "Invalid parameter");
   return surf_workstation_model->common_public.action_get_state(action->
-                                                                 simdata->
-                                                                 surf_action);
+                                                                simdata->
+                                                                surf_action);
 
 }
 
index d1cae12..622aeb8 100644 (file)
@@ -66,12 +66,12 @@ static void parse_process_finalize(void)
     DEBUG3("Process %s(%s) will be started at time %f", arg->name,
            arg->hostname, start_time);
     if (simix_global->create_process_function)
-      surf_timer_model->extension_public->set(start_time, (void *)
-                                              simix_global->create_process_function,
-                                              arg);
+      surf_timer_model->extension.timer.set(start_time, (void *)
+                                            simix_global->create_process_function,
+                                            arg);
     else
-      surf_timer_model->extension_public->set(start_time, (void *)
-                                              &SIMIX_process_create, arg);
+      surf_timer_model->extension.timer.set(start_time, (void *)
+                                            &SIMIX_process_create, arg);
 
   }
   if ((start_time < 0) || (start_time == SIMIX_get_clock())) {
@@ -90,28 +90,28 @@ static void parse_process_finalize(void)
 
     if (process && kill_time > SIMIX_get_clock()) {
       if (simix_global->kill_process_function)
-       surf_timer_model->extension_public->set(start_time, (void *) 
-                                               simix_global->kill_process_function,
-                                               process);
+        surf_timer_model->extension.timer.set(start_time, (void *)
+                                              simix_global->kill_process_function,
+                                              process);
       else
-        surf_timer_model->extension_public->set(kill_time, (void *)
-                                                &SIMIX_process_kill,
-                                                (void *) process);
+        surf_timer_model->extension.timer.set(kill_time, (void *)
+                                              &SIMIX_process_kill,
+                                              (void *) process);
     }
     xbt_free(parse_host);
   }
 }
 
-/** 
+/**
  * \brief An application deployer.
  *
  * Creates the process described in \a file.
- * \param file a filename of a xml description of the application. This file 
+ * \param file a filename of a xml description of the application. This file
  * follows this DTD :
  *
  *     \include surfxml.dtd
  *
- * Here is a small example of such a platform 
+ * Here is a small example of such a platform
  *
  *     \include small_deployment.xml
  *
@@ -134,8 +134,8 @@ void SIMIX_launch_application(const char *file)
 /**
  * \brief Registers a #smx_process_code_t code in a global table.
  *
- * Registers a code function in a global table. 
- * This table is then used by #SIMIX_launch_application. 
+ * Registers a code function in a global table.
+ * This table is then used by #SIMIX_launch_application.
  * \param name the reference name of the function.
  * \param code the function
  */
@@ -166,7 +166,7 @@ void SIMIX_function_register_default(xbt_main_func_t code)
  * \brief Gets a #smx_process_t code from the global table.
  *
  * Gets a code function from the global table. Returns NULL if there are no function registered with the name.
- * This table is then used by #SIMIX_launch_application. 
+ * This table is then used by #SIMIX_launch_application.
  * \param name the reference name of the function.
  * \return The #smx_process_t or NULL.
  */
index 4b1bde0..a0b803b 100644 (file)
@@ -34,7 +34,7 @@ XBT_LOG_NEW_DEFAULT_SUBCATEGORY(simix_environment, simix,
  */
 void SIMIX_create_environment(const char *file)
 {
-       xbt_dict_cursor_t cursor = NULL;
+  xbt_dict_cursor_t cursor = NULL;
   char *name = NULL;
   void *workstation = NULL;
 
@@ -49,8 +49,9 @@ void SIMIX_create_environment(const char *file)
   end = xbt_os_time();
   DEBUG1("PARSE TIME: %lg", (end - start));
 
-  xbt_dict_foreach(surf_model_resource_set(surf_workstation_model), cursor, name, workstation) {
-         __SIMIX_host_create(name, workstation, NULL);
+  xbt_dict_foreach(surf_model_resource_set(surf_workstation_model), cursor,
+                   name, workstation) {
+    __SIMIX_host_create(name, workstation, NULL);
   }
 
   return;
index a94fc2f..fc1094e 100644 (file)
@@ -312,7 +312,7 @@ double SIMIX_solve(xbt_fifo_t actions_done, xbt_fifo_t actions_failed)
       DEBUG1("Elapsed_time %f", elapsed_time);
     }
 
-    while (surf_timer_model->extension_public->get(&fun, (void *) &arg)) {
+    while (surf_timer_model->extension.timer.get(&fun, (void *) &arg)) {
       DEBUG2("got %p %p", fun, arg);
       if (fun == SIMIX_process_create) {
         smx_process_arg_t args = arg;
@@ -322,9 +322,9 @@ double SIMIX_solve(xbt_fifo_t actions_done, xbt_fifo_t actions_failed)
                                        args->argc, args->argv,
                                        args->properties);
         if (process && args->kill_time > SIMIX_get_clock()) {
-          surf_timer_model->extension_public->set(args->kill_time, (void *)
-                                                  &SIMIX_process_kill,
-                                                  (void *) process);
+          surf_timer_model->extension.timer.set(args->kill_time, (void *)
+                                                &SIMIX_process_kill,
+                                                (void *) process);
         }
         xbt_free(args);
       }
@@ -386,12 +386,12 @@ double SIMIX_solve(xbt_fifo_t actions_done, xbt_fifo_t actions_failed)
  */
 void SIMIX_timer_set(double date, void *function, void *arg)
 {
-  surf_timer_model->extension_public->set(date, function, arg);
+  surf_timer_model->extension.timer.set(date, function, arg);
 }
 
 int SIMIX_timer_get(void **function, void **arg)
 {
-  return surf_timer_model->extension_public->get(function, arg);
+  return surf_timer_model->extension.timer.get(function, arg);
 }
 
 /**
index a9760f4..4b61c50 100644 (file)
@@ -190,7 +190,7 @@ double SIMIX_host_get_speed(smx_host_t host)
 {
   xbt_assert0((host != NULL), "Invalid parameters");
 
-  return (surf_workstation_model->extension_public->
+  return (surf_workstation_model->extension.workstation.
           get_speed(host->simdata->host, 1.0));
 }
 
@@ -204,7 +204,7 @@ double SIMIX_host_get_available_speed(smx_host_t host)
 {
   xbt_assert0((host != NULL), "Invalid parameters");
 
-  return (surf_workstation_model->extension_public->
+  return (surf_workstation_model->extension.workstation.
           get_available_speed(host->simdata->host));
 }
 
@@ -250,7 +250,7 @@ int SIMIX_host_get_state(smx_host_t host)
 {
   xbt_assert0((host != NULL), "Invalid parameters");
 
-  return (surf_workstation_model->extension_public->
+  return (surf_workstation_model->extension.workstation.
           get_state(host->simdata->host));
 
 }
index a970cdf..f9d9bf2 100644 (file)
@@ -63,7 +63,7 @@ smx_process_t SIMIX_process_create(const char *name,
   smx_process_t self = NULL;
   smx_host_t host = SIMIX_host_get_by_name(hostname);
 
-  DEBUG2("Start process %s on host %s",name,hostname);
+  DEBUG2("Start process %s on host %s", name, hostname);
 
   if (!SIMIX_host_get_state(host)) {
     WARN2("Cannot launch process '%s' on failed host '%s'", name, hostname);
@@ -339,7 +339,7 @@ void SIMIX_process_suspend(smx_process_t process)
       c = simdata->cond;
       xbt_fifo_foreach(c->actions, i, act, smx_action_t) {
         surf_workstation_model->common_public.suspend(act->
-                                                       simdata->surf_action);
+                                                      simdata->surf_action);
       }
     } else {
       simdata->suspended = 1;
@@ -354,7 +354,7 @@ void SIMIX_process_suspend(smx_process_t process)
     cond = SIMIX_cond_init();
     dummy = SIMIX_action_execute(SIMIX_process_get_host(process), name, 0);
     surf_workstation_model->common_public.suspend(dummy->simdata->
-                                                   surf_action);
+                                                  surf_action);
     SIMIX_register_action_to_condition(dummy, cond);
     __SIMIX_cond_wait(cond);
     SIMIX_unregister_action_to_condition(dummy, cond);
@@ -396,8 +396,7 @@ void SIMIX_process_resume(smx_process_t process)
     simdata->suspended = 0;
     c = simdata->cond;
     xbt_fifo_foreach(c->actions, i, act, smx_action_t) {
-      surf_workstation_model->common_public.resume(act->simdata->
-                                                    surf_action);
+      surf_workstation_model->common_public.resume(act->simdata->surf_action);
     }
     SIMIX_cond_signal(c);
     return;
@@ -444,7 +443,7 @@ int SIMIX_process_is_suspended(smx_process_t process)
  *
  * Maestro internal process is not counted, only user code processes are
  */
-int SIMIX_process_count() {
-       return xbt_swag_size(simix_global->process_list);
+int SIMIX_process_count()
+{
+  return xbt_swag_size(simix_global->process_list);
 }
-
index 68e04dd..e3ffb89 100644 (file)
@@ -41,7 +41,7 @@ typedef struct smpi_mpi_request_t {
   smpi_mpi_datatype_t datatype;
 
   short int completed:1;
-  short int consumed:1; /* for waitany */
+  short int consumed:1;         /* for waitany */
 
   smx_mutex_t mutex;
   smx_cond_t cond;
@@ -112,7 +112,7 @@ typedef struct smpi_host_data_t {
   smx_process_t sender;
   smx_process_t receiver;
 
-  int finalize; /* so that main process stops its sender&receiver */
+  int finalize;                 /* so that main process stops its sender&receiver */
 
   xbt_fifo_t pending_recv_request_queue;
   xbt_fifo_t pending_send_request_queue;
@@ -121,7 +121,7 @@ typedef struct smpi_host_data_t {
 typedef struct smpi_host_data_t *smpi_process_data_t;
 
 // function prototypes
-void smpi_process_init(int *argc,char ***argv);
+void smpi_process_init(int *argc, char ***argv);
 void smpi_process_finalize(void);
 int smpi_mpi_comm_rank(smpi_mpi_communicator_t comm);
 
@@ -129,8 +129,10 @@ int smpi_mpi_barrier(smpi_mpi_communicator_t comm);
 int smpi_mpi_isend(smpi_mpi_request_t request);
 int smpi_mpi_irecv(smpi_mpi_request_t request);
 int smpi_mpi_wait(smpi_mpi_request_t request, smpi_mpi_status_t * status);
-int smpi_mpi_waitall(int count, smpi_mpi_request_t requests[], smpi_mpi_status_t status[]);
-int smpi_mpi_waitany(int count, smpi_mpi_request_t requests[], int *index, smpi_mpi_status_t status[]);
+int smpi_mpi_waitall(int count, smpi_mpi_request_t requests[],
+                     smpi_mpi_status_t status[]);
+int smpi_mpi_waitany(int count, smpi_mpi_request_t requests[], int *index,
+                     smpi_mpi_status_t status[]);
 
 void smpi_execute(double duration);
 void smpi_start_timer(void);
@@ -150,7 +152,7 @@ int smpi_create_request(void *buf, int count, smpi_mpi_datatype_t datatype,
                         smpi_mpi_communicator_t comm,
                         smpi_mpi_request_t * request);
 
-int smpi_sender(int argc,char*argv[]);
-int smpi_receiver(int argc, char*argv[]);
+int smpi_sender(int argc, char *argv[]);
+int smpi_receiver(int argc, char *argv[]);
 
 #endif
index 478ec0f..2a79614 100644 (file)
@@ -43,93 +43,100 @@ void smpi_mpi_sum_func(void *a, void *b, int *length,
 
 void smpi_mpi_sum_func(void *a, void *b, int *length, MPI_Datatype * datatype)
 {
-         int i;
-         if (*datatype == smpi_mpi_global->mpi_byte) {
-                               char *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] + y[i];
-                               }
-         } else if (*datatype == smpi_mpi_global->mpi_int) {
-                               int *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] + y[i];
-                               }
-         } else if (*datatype == smpi_mpi_global->mpi_float) {
-                               float *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] + y[i];
-                               }
-         } else if (*datatype == smpi_mpi_global->mpi_double) {
-                               double *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] + y[i];
-                               }
-         }
+  int i;
+  if (*datatype == smpi_mpi_global->mpi_byte) {
+    char *x = a, *y = b;
+    for (i = 0; i < *length; i++) {
+      y[i] = x[i] + y[i];
+    }
+  } else if (*datatype == smpi_mpi_global->mpi_int) {
+    int *x = a, *y = b;
+    for (i = 0; i < *length; i++) {
+      y[i] = x[i] + y[i];
+    }
+  } else if (*datatype == smpi_mpi_global->mpi_float) {
+    float *x = a, *y = b;
+    for (i = 0; i < *length; i++) {
+      y[i] = x[i] + y[i];
+    }
+  } else if (*datatype == smpi_mpi_global->mpi_double) {
+    double *x = a, *y = b;
+    for (i = 0; i < *length; i++) {
+      y[i] = x[i] + y[i];
+    }
+  }
 }
+
 /**
  * compute the min of two vectors element-wise
  **/
-void smpi_mpi_min_func(void *a, void *b, int *length, MPI_Datatype * datatype);
+void smpi_mpi_min_func(void *a, void *b, int *length,
+                       MPI_Datatype * datatype);
 
 void smpi_mpi_min_func(void *a, void *b, int *length, MPI_Datatype * datatype)
 {
-         int i;
-         if (*datatype == smpi_mpi_global->mpi_byte) {
-                               char *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] < y[i] ? x[i] : y[i];
-                               }
-         } else {
-         if (*datatype == smpi_mpi_global->mpi_int) {
-                               int *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] < y[i] ? x[i] : y[i];
-                               }
-         } else {
-         if (*datatype == smpi_mpi_global->mpi_float) {
-                               float *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] < y[i] ? x[i] : y[i];
-                               }
-         } else {
-         if (*datatype == smpi_mpi_global->mpi_double) {
-                               double *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] < y[i] ? x[i] : y[i];
-                               }
-
-         }}}}
+  int i;
+  if (*datatype == smpi_mpi_global->mpi_byte) {
+    char *x = a, *y = b;
+    for (i = 0; i < *length; i++) {
+      y[i] = x[i] < y[i] ? x[i] : y[i];
+    }
+  } else {
+    if (*datatype == smpi_mpi_global->mpi_int) {
+      int *x = a, *y = b;
+      for (i = 0; i < *length; i++) {
+        y[i] = x[i] < y[i] ? x[i] : y[i];
+      }
+    } else {
+      if (*datatype == smpi_mpi_global->mpi_float) {
+        float *x = a, *y = b;
+        for (i = 0; i < *length; i++) {
+          y[i] = x[i] < y[i] ? x[i] : y[i];
+        }
+      } else {
+        if (*datatype == smpi_mpi_global->mpi_double) {
+          double *x = a, *y = b;
+          for (i = 0; i < *length; i++) {
+            y[i] = x[i] < y[i] ? x[i] : y[i];
+          }
+
+        }
+      }
+    }
+  }
 }
+
 /**
  * compute the max of two vectors element-wise
  **/
-void smpi_mpi_max_func(void *a, void *b, int *length, MPI_Datatype * datatype);
+void smpi_mpi_max_func(void *a, void *b, int *length,
+                       MPI_Datatype * datatype);
 
 void smpi_mpi_max_func(void *a, void *b, int *length, MPI_Datatype * datatype)
 {
-         int i;
-         if (*datatype == smpi_mpi_global->mpi_byte) {
-                               char *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] > y[i] ? x[i] : y[i];
-                               }
-         } else if (*datatype == smpi_mpi_global->mpi_int) {
-                               int *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] > y[i] ? x[i] : y[i];
-                               }
-         } else if (*datatype == smpi_mpi_global->mpi_float) {
-                               float *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] > y[i] ? x[i] : y[i];
-                               }
-         } else if (*datatype == smpi_mpi_global->mpi_double) {
-                               double *x = a, *y = b;
-                               for (i = 0; i < *length; i++) {
-                                         y[i] = x[i] > y[i] ? x[i] : y[i];
-                               }
-
-         }
+  int i;
+  if (*datatype == smpi_mpi_global->mpi_byte) {
+    char *x = a, *y = b;
+    for (i = 0; i < *length; i++) {
+      y[i] = x[i] > y[i] ? x[i] : y[i];
+    }
+  } else if (*datatype == smpi_mpi_global->mpi_int) {
+    int *x = a, *y = b;
+    for (i = 0; i < *length; i++) {
+      y[i] = x[i] > y[i] ? x[i] : y[i];
+    }
+  } else if (*datatype == smpi_mpi_global->mpi_float) {
+    float *x = a, *y = b;
+    for (i = 0; i < *length; i++) {
+      y[i] = x[i] > y[i] ? x[i] : y[i];
+    }
+  } else if (*datatype == smpi_mpi_global->mpi_double) {
+    double *x = a, *y = b;
+    for (i = 0; i < *length; i++) {
+      y[i] = x[i] > y[i] ? x[i] : y[i];
+    }
+
+  }
 }
 
 
@@ -143,21 +150,21 @@ int smpi_mpi_comm_rank(smpi_mpi_communicator_t comm)
   return comm->index_to_rank_map[smpi_process_index()];
 }
 
-void smpi_process_init(int *argc, char***argv)
+void smpi_process_init(int *argc, char ***argv)
 {
   smpi_process_data_t pdata;
 
   // initialize some local variables
 
   pdata = xbt_new(s_smpi_process_data_t, 1);
-  SIMIX_process_set_data(SIMIX_process_self(),pdata);
+  SIMIX_process_set_data(SIMIX_process_self(), pdata);
 
   /* get rank from command line, and remove it from argv */
-  pdata->index = atoi( (*argv)[1] );
-  DEBUG1("I'm rank %d",pdata->index);
-  if (*argc>2) {
-         memmove((*argv)[1],(*argv)[2], sizeof(char*)* (*argc-2));
-         (*argv)[ (*argc)-1] = NULL;
+  pdata->index = atoi((*argv)[1]);
+  DEBUG1("I'm rank %d", pdata->index);
+  if (*argc > 2) {
+    memmove((*argv)[1], (*argv)[2], sizeof(char *) * (*argc - 2));
+    (*argv)[(*argc) - 1] = NULL;
   }
   (*argc)--;
 
@@ -171,13 +178,15 @@ void smpi_process_init(int *argc, char***argv)
 
   pdata->main = SIMIX_process_self();
   pdata->sender = SIMIX_process_create("smpi_sender",
-          smpi_sender, pdata,
-          SIMIX_host_get_name(SIMIX_host_self()), 0, NULL,
-          /*props */ NULL);
+                                       smpi_sender, pdata,
+                                       SIMIX_host_get_name(SIMIX_host_self()),
+                                       0, NULL,
+                                       /*props */ NULL);
   pdata->receiver = SIMIX_process_create("smpi_receiver",
-          smpi_receiver, pdata,
-          SIMIX_host_get_name(SIMIX_host_self()), 0, NULL,
-          /*props */ NULL);
+                                         smpi_receiver, pdata,
+                                         SIMIX_host_get_name(SIMIX_host_self
+                                                             ()), 0, NULL,
+                                         /*props */ NULL);
 
   smpi_global->main_processes[pdata->index] = SIMIX_process_self();
   return;
@@ -185,13 +194,13 @@ void smpi_process_init(int *argc, char***argv)
 
 void smpi_process_finalize()
 {
-  smpi_process_data_t pdata =  SIMIX_process_get_data(SIMIX_process_self());
+  smpi_process_data_t pdata = SIMIX_process_get_data(SIMIX_process_self());
 
-  pdata->finalize = 2; /* Tell sender and receiver to quit */
+  pdata->finalize = 2;          /* Tell sender and receiver to quit */
   SIMIX_process_resume(pdata->sender);
   SIMIX_process_resume(pdata->receiver);
-  while (pdata->finalize>0) { /* wait until it's done */
-         SIMIX_cond_wait(pdata->cond,pdata->mutex);
+  while (pdata->finalize > 0) { /* wait until it's done */
+    SIMIX_cond_wait(pdata->cond, pdata->mutex);
   }
 
   SIMIX_mutex_destroy(pdata->mutex);
@@ -222,7 +231,7 @@ int smpi_mpi_barrier(smpi_mpi_communicator_t comm)
 
 int smpi_mpi_isend(smpi_mpi_request_t request)
 {
-       smpi_process_data_t pdata =  SIMIX_process_get_data(SIMIX_process_self());
+  smpi_process_data_t pdata = SIMIX_process_get_data(SIMIX_process_self());
   int retval = MPI_SUCCESS;
 
   if (NULL == request) {
@@ -238,7 +247,7 @@ int smpi_mpi_isend(smpi_mpi_request_t request)
 int smpi_mpi_irecv(smpi_mpi_request_t request)
 {
   int retval = MPI_SUCCESS;
-  smpi_process_data_t pdata =  SIMIX_process_get_data(SIMIX_process_self());
+  smpi_process_data_t pdata = SIMIX_process_get_data(SIMIX_process_self());
 
   if (NULL == request) {
     retval = MPI_ERR_INTERN;
@@ -275,59 +284,63 @@ int smpi_mpi_wait(smpi_mpi_request_t request, smpi_mpi_status_t * status)
   return retval;
 }
 
-int smpi_mpi_waitall(int count, smpi_mpi_request_t requests[], smpi_mpi_status_t status[]) {
-       int cpt;
-       int index;
-       int retval;
-       smpi_mpi_status_t stat;
-
-       for (cpt=0; cpt<count;cpt++) {
-               retval = smpi_mpi_waitany(count,requests, &index,&stat);
-               if (retval != MPI_SUCCESS)
-                       return retval;
-               memcpy(&(status[index]),&stat,sizeof(stat));
-       }
-       return MPI_SUCCESS;
+int smpi_mpi_waitall(int count, smpi_mpi_request_t requests[],
+                     smpi_mpi_status_t status[])
+{
+  int cpt;
+  int index;
+  int retval;
+  smpi_mpi_status_t stat;
+
+  for (cpt = 0; cpt < count; cpt++) {
+    retval = smpi_mpi_waitany(count, requests, &index, &stat);
+    if (retval != MPI_SUCCESS)
+      return retval;
+    memcpy(&(status[index]), &stat, sizeof(stat));
+  }
+  return MPI_SUCCESS;
 }
 
-int smpi_mpi_waitany(int count, smpi_mpi_request_t *requests, int *index, smpi_mpi_status_t *status) {
-         int cpt;
-
-         *index = MPI_UNDEFINED;
-         if (NULL == requests) {
-           return MPI_ERR_INTERN;
-         }
-         /* First check if one of them is already done */
-         for (cpt=0;cpt<count;cpt++) {
-                 if (requests[cpt]->completed && !requests[cpt]->consumed) { /* got ya */
-                         *index=cpt;
-                         goto found_request;
-                 }
-         }
-         /* If none found, block */
-         /* FIXME: should use a SIMIX_cond_waitany, when implemented. For now, block on the first one */
-         while (1) {
-                 for (cpt=0;cpt<count;cpt++) {
-                         if (!requests[cpt]->completed) { /* this one is not done, wait on it */
-                                 while (!requests[cpt]->completed)
-                                     SIMIX_cond_wait(requests[cpt]->cond, requests[cpt]->mutex);
-
-                                 *index=cpt;
-                                 goto found_request;
-                         }
-                 }
-                 if (cpt == count) /* they are all done. Damn user */
-                         return MPI_ERR_REQUEST;
-         }
-
-         found_request:
-         requests[*index]->consumed = 1;
-
-          if (NULL != status) {
-             status->MPI_SOURCE = requests[*index]->src;
-             status->MPI_TAG = requests[*index]->tag;
-             status->MPI_ERROR = MPI_SUCCESS;
-           }
-         return MPI_SUCCESS;
+int smpi_mpi_waitany(int count, smpi_mpi_request_t * requests, int *index,
+                     smpi_mpi_status_t * status)
+{
+  int cpt;
+
+  *index = MPI_UNDEFINED;
+  if (NULL == requests) {
+    return MPI_ERR_INTERN;
+  }
+  /* First check if one of them is already done */
+  for (cpt = 0; cpt < count; cpt++) {
+    if (requests[cpt]->completed && !requests[cpt]->consumed) { /* got ya */
+      *index = cpt;
+      goto found_request;
+    }
+  }
+  /* If none found, block */
+  /* FIXME: should use a SIMIX_cond_waitany, when implemented. For now, block on the first one */
+  while (1) {
+    for (cpt = 0; cpt < count; cpt++) {
+      if (!requests[cpt]->completed) {  /* this one is not done, wait on it */
+        while (!requests[cpt]->completed)
+          SIMIX_cond_wait(requests[cpt]->cond, requests[cpt]->mutex);
+
+        *index = cpt;
+        goto found_request;
+      }
+    }
+    if (cpt == count)           /* they are all done. Damn user */
+      return MPI_ERR_REQUEST;
+  }
+
+found_request:
+  requests[*index]->consumed = 1;
+
+  if (NULL != status) {
+    status->MPI_SOURCE = requests[*index]->src;
+    status->MPI_TAG = requests[*index]->tag;
+    status->MPI_ERROR = MPI_SUCCESS;
+  }
+  return MPI_SUCCESS;
 
 }
index 81ff890..51731ec 100644 (file)
@@ -15,7 +15,8 @@ void smpi_execute(double duration)
   SIMIX_mutex_lock(mutex);
 
   action =
-    SIMIX_action_execute(host, "execute", duration * smpi_global->reference_speed);
+    SIMIX_action_execute(host, "execute",
+                         duration * smpi_global->reference_speed);
 
   SIMIX_register_action_to_condition(action, cond);
   for (state = SIMIX_action_get_state(action);
index bd66ffb..cbe17a2 100644 (file)
@@ -121,11 +121,16 @@ int smpi_create_request(void *buf, int count, smpi_mpi_datatype_t datatype,
   }
   return retval;
 }
+
 /* FIXME: understand what they do and put the prototypes in a header file (live in smpi_base.c) */
-void smpi_mpi_land_func(void *a, void *b, int *length, MPI_Datatype * datatype);
-void smpi_mpi_sum_func(void *a, void *b, int *length, MPI_Datatype * datatype);
-void smpi_mpi_min_func(void *a, void *b, int *length, MPI_Datatype * datatype);
-void smpi_mpi_max_func(void *a, void *b, int *length, MPI_Datatype * datatype);
+void smpi_mpi_land_func(void *a, void *b, int *length,
+                        MPI_Datatype * datatype);
+void smpi_mpi_sum_func(void *a, void *b, int *length,
+                       MPI_Datatype * datatype);
+void smpi_mpi_min_func(void *a, void *b, int *length,
+                       MPI_Datatype * datatype);
+void smpi_mpi_max_func(void *a, void *b, int *length,
+                       MPI_Datatype * datatype);
 
 void smpi_global_init()
 {
@@ -153,10 +158,11 @@ void smpi_global_init()
                        smpi_message_free, smpi_message_reset);
 
   smpi_global->process_count = SIMIX_process_count();
-  DEBUG1("There is %d processes",smpi_global->process_count);
+  DEBUG1("There is %d processes", smpi_global->process_count);
 
   // sender/receiver processes
-  smpi_global->main_processes = xbt_new(smx_process_t, smpi_global->process_count);
+  smpi_global->main_processes =
+    xbt_new(smx_process_t, smpi_global->process_count);
 
   // timers
   smpi_global->timer = xbt_os_timer_new();
@@ -255,24 +261,29 @@ void smpi_global_destroy()
 
 int smpi_process_index()
 {
-  smpi_process_data_t pdata = (smpi_process_data_t) SIMIX_process_get_data(SIMIX_process_self());
+  smpi_process_data_t pdata =
+    (smpi_process_data_t) SIMIX_process_get_data(SIMIX_process_self());
   return pdata->index;
 }
 
 smx_mutex_t smpi_process_mutex()
 {
-  smpi_process_data_t pdata = (smpi_process_data_t) SIMIX_process_get_data(SIMIX_process_self());
+  smpi_process_data_t pdata =
+    (smpi_process_data_t) SIMIX_process_get_data(SIMIX_process_self());
   return pdata->mutex;
 }
 
 smx_cond_t smpi_process_cond()
 {
-  smpi_process_data_t pdata = (smpi_process_data_t) SIMIX_process_get_data(SIMIX_process_self());
+  smpi_process_data_t pdata =
+    (smpi_process_data_t) SIMIX_process_get_data(SIMIX_process_self());
   return pdata->cond;
 }
 
-static void smpi_cfg_cb_host_speed(const char *name, int pos) {
-       smpi_global->reference_speed = xbt_cfg_get_double_at(_surf_cfg_set,name,pos);
+static void smpi_cfg_cb_host_speed(const char *name, int pos)
+{
+  smpi_global->reference_speed =
+    xbt_cfg_get_double_at(_surf_cfg_set, name, pos);
 }
 
 int smpi_run_simulation(int *argc, char **argv)
@@ -286,12 +297,15 @@ int smpi_run_simulation(int *argc, char **argv)
   srand(SMPI_RAND_SEED);
 
   double default_reference_speed = 20000.0;
-  xbt_cfg_register(&_surf_cfg_set,"reference_speed","Power of the host running the simulation (in flop/s). Used to bench the operations.",
-                 xbt_cfgelm_double,&default_reference_speed,1,1,smpi_cfg_cb_host_speed,NULL);
+  xbt_cfg_register(&_surf_cfg_set, "reference_speed",
+                   "Power of the host running the simulation (in flop/s). Used to bench the operations.",
+                   xbt_cfgelm_double, &default_reference_speed, 1, 1,
+                   smpi_cfg_cb_host_speed, NULL);
 
   int default_display_timing = 0;
-  xbt_cfg_register(&_surf_cfg_set,"display_timing","Boolean indicating whether we should display the timing after simulation.",
-                 xbt_cfgelm_int,&default_display_timing,1,1,NULL,NULL);
+  xbt_cfg_register(&_surf_cfg_set, "display_timing",
+                   "Boolean indicating whether we should display the timing after simulation.",
+                   xbt_cfgelm_int, &default_display_timing, 1, 1, NULL, NULL);
 
   SIMIX_global_init(argc, argv);
 
@@ -330,8 +344,8 @@ int smpi_run_simulation(int *argc, char **argv)
   xbt_fifo_free(actions_done);
 
 
-  if (xbt_cfg_get_int(_surf_cfg_set,"display_timing"))
-         INFO1("simulation time %g", SIMIX_get_clock());
+  if (xbt_cfg_get_int(_surf_cfg_set, "display_timing"))
+    INFO1("simulation time %g", SIMIX_get_clock());
 
   smpi_global_destroy();
   SIMIX_clean();
index ca94c57..730e3c8 100644 (file)
@@ -5,7 +5,7 @@ XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_mpi, smpi,
 
 int SMPI_MPI_Init(int *argc, char ***argv)
 {
-  smpi_process_init(argc,argv);
+  smpi_process_init(argc, argv);
   smpi_bench_begin();
   return MPI_SUCCESS;
 }
@@ -189,12 +189,17 @@ int SMPI_MPI_Wait(MPI_Request * request, MPI_Status * status)
   return smpi_mpi_wait(*request, status);
 }
 
-int SMPI_MPI_Waitall(int count, MPI_Request requests[], MPI_Status status[]) {
-       return smpi_mpi_waitall(count, requests,status);
+int SMPI_MPI_Waitall(int count, MPI_Request requests[], MPI_Status status[])
+{
+  return smpi_mpi_waitall(count, requests, status);
 }
-int SMPI_MPI_Waitany(int count, MPI_Request requests[], int *index, MPI_Status status[]) {
-       return smpi_mpi_waitany(count, requests, index,status);
+
+int SMPI_MPI_Waitany(int count, MPI_Request requests[], int *index,
+                     MPI_Status status[])
+{
+  return smpi_mpi_waitany(count, requests, index, status);
 }
+
 /**
  * MPI_Bcast
  **/
@@ -235,29 +240,30 @@ int SMPI_MPI_Bcast(void *buf, int count, MPI_Datatype datatype, int root,
 /**
  * debugging helper function
  **/
-static void print_buffer_int( void *buf, int len, const char *msg, int rank) {
-         int tmp, *v;
-         printf("**[%d] %s: ",rank,msg);
-         for (tmp=0;tmp<len;tmp++) {
-                   v = buf;
-                   printf("[%d]", v[tmp] );
-         }
-         printf("\n");
-         free(msg);
+static void print_buffer_int(void *buf, int len, const char *msg, int rank)
+{
+  int tmp, *v;
+  printf("**[%d] %s: ", rank, msg);
+  for (tmp = 0; tmp < len; tmp++) {
+    v = buf;
+    printf("[%d]", v[tmp]);
+  }
+  printf("\n");
+  free(msg);
 }
 #endif
 
 /**
  * MPI_Reduce
  **/
-int SMPI_MPI_Reduce( void *sendbuf, void *recvbuf, int count, MPI_Datatype datatype,
-                        MPI_Op op, int root, MPI_Comm comm )
+int SMPI_MPI_Reduce(void *sendbuf, void *recvbuf, int count,
+                    MPI_Datatype datatype, MPI_Op op, int root, MPI_Comm comm)
 {
   int retval = MPI_SUCCESS;
   int rank;
   int size;
   int i;
-  int tag=0;
+  int tag = 0;
   smpi_mpi_request_t *tabrequest;
   smpi_mpi_request_t request;
 
@@ -266,63 +272,68 @@ int SMPI_MPI_Reduce( void *sendbuf, void *recvbuf, int count, MPI_Datatype datat
   rank = smpi_mpi_comm_rank(comm);
   size = comm->size;
 
-  if (rank != root) { // if i am not ROOT, simply send my buffer to root
+  if (rank != root) {           // if i am not ROOT, simply send my buffer to root
 
 #ifdef DEBUG_REDUCE
-           print_buffer_int( sendbuf, count, xbt_strdup("sndbuf"),rank);
+    print_buffer_int(sendbuf, count, xbt_strdup("sndbuf"), rank);
 #endif
-           retval = smpi_create_request(sendbuf, count, datatype, rank, root, tag , comm, &request);
-           smpi_mpi_isend(request);
-           smpi_mpi_wait(request, MPI_STATUS_IGNORE);
-           xbt_mallocator_release(smpi_global->request_mallocator, request);
+    retval =
+      smpi_create_request(sendbuf, count, datatype, rank, root, tag, comm,
+                          &request);
+    smpi_mpi_isend(request);
+    smpi_mpi_wait(request, MPI_STATUS_IGNORE);
+    xbt_mallocator_release(smpi_global->request_mallocator, request);
 
   } else {
-           // i am the ROOT: wait for all buffers by creating one request by sender
-           int src;
-           tabrequest = xbt_malloc((size-1)*sizeof(smpi_mpi_request_t));
-
-          void **tmpbufs = xbt_malloc((size-1)*sizeof(void *));
-           for (i=0; i<size-1; i++) {
-                 // we need 1 buffer per request to store intermediate receptions
-               tmpbufs[i] = xbt_malloc(count*datatype->size);
-           }
-           memcpy(recvbuf,sendbuf,count*datatype->size*sizeof(char)); // initiliaze recv buf with my own snd buf
-
-           // i can not use: 'request->forward = size-1;' (which would progagate size-1 receive reqs)
-           // since we should op values as soon as one receiving request matches.
-           for (i=0; i<size-1; i++) {
-                       // reminder: for smpi_create_request() the src is always the process sending.
-                       src = i < root ? i : i+1;
-                       retval = smpi_create_request(tmpbufs[i], count, datatype, 
-                                           src , root,
-                                           tag, comm, &(tabrequest[i]));
-                       if (NULL != tabrequest[i] && MPI_SUCCESS == retval) {
-                                 if (MPI_SUCCESS == retval) {
-                                           smpi_mpi_irecv(tabrequest[i]);
-                                 }
-                       }
-           }
-           // now, wait for completion of all irecv's.
-           for (i=0; i<size-1; i++) {
-                       int index = MPI_UNDEFINED;
-                       smpi_mpi_waitany(size-1, tabrequest, &index, MPI_STATUS_IGNORE);
+    // i am the ROOT: wait for all buffers by creating one request by sender
+    int src;
+    tabrequest = xbt_malloc((size - 1) * sizeof(smpi_mpi_request_t));
+
+    void **tmpbufs = xbt_malloc((size - 1) * sizeof(void *));
+    for (i = 0; i < size - 1; i++) {
+      // we need 1 buffer per request to store intermediate receptions
+      tmpbufs[i] = xbt_malloc(count * datatype->size);
+    }
+    memcpy(recvbuf, sendbuf, count * datatype->size * sizeof(char));    // initiliaze recv buf with my own snd buf
+
+    // i can not use: 'request->forward = size-1;' (which would progagate size-1 receive reqs)
+    // since we should op values as soon as one receiving request matches.
+    for (i = 0; i < size - 1; i++) {
+      // reminder: for smpi_create_request() the src is always the process sending.
+      src = i < root ? i : i + 1;
+      retval = smpi_create_request(tmpbufs[i], count, datatype,
+                                   src, root, tag, comm, &(tabrequest[i]));
+      if (NULL != tabrequest[i] && MPI_SUCCESS == retval) {
+        if (MPI_SUCCESS == retval) {
+          smpi_mpi_irecv(tabrequest[i]);
+        }
+      }
+    }
+    // now, wait for completion of all irecv's.
+    for (i = 0; i < size - 1; i++) {
+      int index = MPI_UNDEFINED;
+      smpi_mpi_waitany(size - 1, tabrequest, &index, MPI_STATUS_IGNORE);
 
 #ifdef DEBUG_REDUCE
-                       printf("MPI_Waitany() unblocked: root received (completes req[index=%d])\n",index);
-                       print_buffer_int( tmpbufs[index], count, bprintf("tmpbufs[index=%d] (value received)",index),rank);
+      printf
+        ("MPI_Waitany() unblocked: root received (completes req[index=%d])\n",
+         index);
+      print_buffer_int(tmpbufs[index], count,
+                       bprintf("tmpbufs[index=%d] (value received)", index),
+                       rank);
 #endif
 
-                       // arg 2 is modified
-                       op->func (tmpbufs[index],recvbuf,&count,&datatype);
+      // arg 2 is modified
+      op->func(tmpbufs[index], recvbuf, &count, &datatype);
 #ifdef DEBUG_REDUCE
-                       print_buffer_int( recvbuf, count, xbt_strdup("rcvbuf"),rank);
+      print_buffer_int(recvbuf, count, xbt_strdup("rcvbuf"), rank);
 
 #endif
-                       //xbt_mallocator_release(smpi_global->request_mallocator, tabrequest[i]);
-                       xbt_free( tmpbufs[index]);
-           }
-           xbt_free(tabrequest);
-           xbt_free(tmpbufs);
+      //xbt_mallocator_release(smpi_global->request_mallocator, tabrequest[i]);
+      xbt_free(tmpbufs[index]);
+    }
+    xbt_free(tabrequest);
+    xbt_free(tmpbufs);
   }
 
   smpi_bench_begin();
@@ -334,8 +345,8 @@ int SMPI_MPI_Reduce( void *sendbuf, void *recvbuf, int count, MPI_Datatype datat
 int smpi_compare_rankkeys(const void *a, const void *b);
 int smpi_compare_rankkeys(const void *a, const void *b)
 {
-         int *x = (int *) a;
-         int *y = (int *) b;
+  int *x = (int *) a;
+  int *y = (int *) b;
 
   if (x[1] < y[1])
     return -1;
@@ -462,7 +473,7 @@ int SMPI_MPI_Comm_split(MPI_Comm comm, int color, int key,
   return retval;
 }
 
-double SMPI_MPI_Wtime( void )
+double SMPI_MPI_Wtime(void)
 {
-         return ( SIMIX_get_clock() );
+  return (SIMIX_get_clock());
 }
index 11e4a40..cd4766a 100644 (file)
@@ -3,9 +3,9 @@
 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_receiver, smpi,
                                 "Logging specific to SMPI (receiver)");
 
-int smpi_receiver(int argc, char*argv[])
+int smpi_receiver(int argc, char *argv[])
 {
-       smpi_process_data_t mydata = SIMIX_process_get_data(SIMIX_process_self());
+  smpi_process_data_t mydata = SIMIX_process_get_data(SIMIX_process_self());
   smx_process_t self;
   int index = mydata->index;
 
@@ -26,8 +26,9 @@ int smpi_receiver(int argc, char*argv[])
   while (1) {
     // FIXME: better algorithm, maybe some kind of balanced tree? or a heap?
 
-       xbt_fifo_foreach(request_queue,request_item,request,smpi_mpi_request_t){
-         xbt_fifo_foreach(message_queue,message_item,message, smpi_received_message_t) {
+    xbt_fifo_foreach(request_queue, request_item, request, smpi_mpi_request_t) {
+      xbt_fifo_foreach(message_queue, message_item, message,
+                       smpi_received_message_t) {
 
         if (request->comm == message->comm &&
             (MPI_ANY_SOURCE == request->src || request->src == message->src)
@@ -45,38 +46,38 @@ int smpi_receiver(int argc, char*argv[])
     message = NULL;
 
   stopsearch:
-  if (NULL != request) {
-         if (NULL == message)
-                 DIE_IMPOSSIBLE;
-
-         SIMIX_mutex_lock(request->mutex);
-         memcpy(request->buf, message->buf,
-                         request->datatype->size * request->count);
-         request->src = message->src;
-         request->data = message->data;
-         request->forward = message->forward;
-
-         if (0 == request->forward) {
-                 request->completed = 1;
-                 SIMIX_cond_broadcast(request->cond);
-         } else {
-                 request->src = request->comm->index_to_rank_map[index];
-                 request->dst = (request->src + 1) % request->comm->size;
-                 smpi_mpi_isend(request);
-         }
-
-         SIMIX_mutex_unlock(request->mutex);
-
-         xbt_free(message->buf);
-         xbt_mallocator_release(smpi_global->message_mallocator, message);
-
-    } else if (mydata->finalize>0) { /* main wants me to die and nothing to do */
-       // FIXME: display the list of remaining requests and messages (user code synchronization faulty?)
-       mydata->finalize--;
-       SIMIX_cond_signal(mydata->cond);
-       return 0;
+    if (NULL != request) {
+      if (NULL == message)
+        DIE_IMPOSSIBLE;
+
+      SIMIX_mutex_lock(request->mutex);
+      memcpy(request->buf, message->buf,
+             request->datatype->size * request->count);
+      request->src = message->src;
+      request->data = message->data;
+      request->forward = message->forward;
+
+      if (0 == request->forward) {
+        request->completed = 1;
+        SIMIX_cond_broadcast(request->cond);
+      } else {
+        request->src = request->comm->index_to_rank_map[index];
+        request->dst = (request->src + 1) % request->comm->size;
+        smpi_mpi_isend(request);
+      }
+
+      SIMIX_mutex_unlock(request->mutex);
+
+      xbt_free(message->buf);
+      xbt_mallocator_release(smpi_global->message_mallocator, message);
+
+    } else if (mydata->finalize > 0) {  /* main wants me to die and nothing to do */
+      // FIXME: display the list of remaining requests and messages (user code synchronization faulty?)
+      mydata->finalize--;
+      SIMIX_cond_signal(mydata->cond);
+      return 0;
     } else {
-       SIMIX_process_suspend(self);
+      SIMIX_process_suspend(self);
     }
   }
 
index 3587863..7700a16 100644 (file)
@@ -3,8 +3,9 @@
 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_sender, smpi,
                                 "Logging specific to SMPI (sender)");
 
-int smpi_sender(int argc,char*argv[]) {
-       smpi_process_data_t mydata = SIMIX_process_get_data(SIMIX_process_self());
+int smpi_sender(int argc, char *argv[])
+{
+  smpi_process_data_t mydata = SIMIX_process_get_data(SIMIX_process_self());
   smx_process_t self;
   smx_host_t shost;
 
@@ -48,7 +49,8 @@ int smpi_sender(int argc,char*argv[]) {
              request->datatype->size * request->count);
 
       dindex = request->comm->rank_to_index_map[request->dst];
-      smpi_process_data_t remote_process = SIMIX_process_get_data(smpi_global->main_processes[dindex]);
+      smpi_process_data_t remote_process =
+        SIMIX_process_get_data(smpi_global->main_processes[dindex]);
       dhost = SIMIX_process_get_host(smpi_global->main_processes[dindex]);
 
       message->forward = (request->forward - 1) / 2;
@@ -87,12 +89,12 @@ int smpi_sender(int argc,char*argv[]) {
       // wake up receiver if necessary
       SIMIX_process_resume(remote_process->receiver);
 
-    } else if (mydata->finalize>0) { /* main wants me to die and nothing to do */
-       mydata->finalize--;
-       SIMIX_cond_signal(mydata->cond);
-       return 0;
+    } else if (mydata->finalize > 0) {  /* main wants me to die and nothing to do */
+      mydata->finalize--;
+      SIMIX_cond_signal(mydata->cond);
+      return 0;
     } else {
-       SIMIX_process_suspend(self);
+      SIMIX_process_suspend(self);
     }
   }
   return 0;
index 581700d..6c96896 100644 (file)
@@ -10,7 +10,7 @@
 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_cpu, surf,
                                 "Logging specific to the SURF CPU module");
 
-surf_cpu_model_t surf_cpu_model = NULL;
+surf_model_t surf_cpu_model = NULL;
 lmm_system_t cpu_maxmin_system = NULL;
 
 
@@ -33,7 +33,7 @@ static cpu_Cas01_t cpu_new(char *name, double power_scale,
   cpu_Cas01_t cpu = xbt_new0(s_cpu_Cas01_t, 1);
   xbt_assert1(!surf_model_resource_by_name(surf_cpu_model, name),
               "Host '%s' declared several times in the platform file", name);
-  cpu->model = (surf_model_t) surf_cpu_model;
+  cpu->model = surf_cpu_model;
   cpu->name = name;
   cpu->power_scale = power_scale;
   xbt_assert0(cpu->power_scale > 0, "Power has to be >0");
@@ -104,7 +104,7 @@ static void add_traces_cpu(void)
   /* connect all traces relative to hosts */
   xbt_dict_foreach(trace_connect_list_host_avail, cursor, trace_name, elm) {
     tmgr_trace_t trace = xbt_dict_get_or_null(traces_set_list, trace_name);
-    cpu_Cas01_t host = surf_model_resource_by_name((surf_model_t)surf_cpu_model, elm);
+    cpu_Cas01_t host = surf_model_resource_by_name(surf_cpu_model, elm);
 
     xbt_assert1(host, "Host %s undefined", elm);
     xbt_assert1(trace, "Trace %s undefined", trace_name);
@@ -114,7 +114,7 @@ static void add_traces_cpu(void)
 
   xbt_dict_foreach(trace_connect_list_power, cursor, trace_name, elm) {
     tmgr_trace_t trace = xbt_dict_get_or_null(traces_set_list, trace_name);
-    cpu_Cas01_t host = surf_model_resource_by_name((surf_model_t)surf_cpu_model, elm);
+    cpu_Cas01_t host = surf_model_resource_by_name(surf_cpu_model, elm);
 
     xbt_assert1(host, "Host %s undefined", elm);
     xbt_assert1(trace, "Trace %s undefined", trace_name);
@@ -271,7 +271,7 @@ static surf_action_t execute(void *cpu, double size)
   action->generic_action.max_duration = NO_MAX_DURATION;
   action->generic_action.start = surf_get_clock();
   action->generic_action.finish = -1.0;
-  action->generic_action.model_type = (surf_model_t) surf_cpu_model;
+  action->generic_action.model_type = surf_cpu_model;
   action->suspended = 0;        /* Should be useless because of the
                                    calloc but it seems to help valgrind... */
 
@@ -390,11 +390,10 @@ static void finalize(void)
   lmm_system_free(cpu_maxmin_system);
   cpu_maxmin_system = NULL;
 
-  surf_model_exit((surf_model_t) surf_cpu_model);
+  surf_model_exit(surf_cpu_model);
 
   xbt_swag_free(running_action_set_that_does_not_need_being_checked);
   running_action_set_that_does_not_need_being_checked = NULL;
-  free(surf_cpu_model->extension_public);
 
   free(surf_cpu_model);
   surf_cpu_model = NULL;
@@ -404,12 +403,9 @@ static void surf_cpu_model_init_internal(void)
 {
   s_surf_action_t action;
 
-  surf_cpu_model = xbt_new0(s_surf_cpu_model_t, 1);
+  surf_cpu_model = xbt_new0(s_surf_model_t, 1);
 
-  surf_model_init((surf_model_t) surf_cpu_model);
-
-  surf_cpu_model->extension_public =
-    xbt_new0(s_surf_cpu_model_extension_public_t, 1);
+  surf_model_init(surf_cpu_model);
 
   running_action_set_that_does_not_need_being_checked =
     xbt_swag_new(xbt_swag_offset(action, state_hookup));
@@ -439,12 +435,12 @@ static void surf_cpu_model_init_internal(void)
   surf_cpu_model->common_public.is_suspended = action_is_suspended;
   surf_cpu_model->common_public.set_max_duration = action_set_max_duration;
   surf_cpu_model->common_public.set_priority = action_set_priority;
-  surf_cpu_model->extension_public->execute = execute;
-  surf_cpu_model->extension_public->sleep = action_sleep;
+  surf_cpu_model->extension.cpu.execute = execute;
+  surf_cpu_model->extension.cpu.sleep = action_sleep;
 
-  surf_cpu_model->extension_public->get_state = get_state;
-  surf_cpu_model->extension_public->get_speed = get_speed;
-  surf_cpu_model->extension_public->get_available_speed = get_available_speed;
+  surf_cpu_model->extension.cpu.get_state = get_state;
+  surf_cpu_model->extension.cpu.get_speed = get_speed;
+  surf_cpu_model->extension.cpu.get_available_speed = get_available_speed;
   /*manage the properties of the cpu */
   surf_cpu_model->common_public.get_properties = get_properties;
 
index c59f42c..24f308e 100644 (file)
@@ -530,6 +530,8 @@ static double partial_diff_lambda(double lambda, void *param_cnst)
  *
  */
 void lmm_set_default_protocol_function(double (*func_f)
+
+
                                         
                                        (lmm_variable_t var, double x),
                                        double (*func_fp) (lmm_variable_t var,
index 94b30f5..7979ca2 100644 (file)
@@ -7,47 +7,53 @@
 #include "surf_private.h"
 #include "xbt/dict.h"
 
-static void void_die_impossible_paction(surf_action_t action) {
-       DIE_IMPOSSIBLE;
+static void void_die_impossible_paction(surf_action_t action)
+{
+  DIE_IMPOSSIBLE;
 }
-static int int_die_impossible_paction(surf_action_t action) {
-       DIE_IMPOSSIBLE;
+
+static int int_die_impossible_paction(surf_action_t action)
+{
+  DIE_IMPOSSIBLE;
 }
 
 /** @brief initialize common datastructures to all models */
-void surf_model_init(surf_model_t model) {
-         s_surf_action_t action;
+void surf_model_init(surf_model_t model)
+{
+  s_surf_action_t action;
 
 
-         model->common_private = xbt_new0(s_surf_model_private_t, 1);
+  model->common_private = xbt_new0(s_surf_model_private_t, 1);
 
-         model->common_public.states.ready_action_set =
-           xbt_swag_new(xbt_swag_offset(action, state_hookup));
-         model->common_public.states.running_action_set =
-           xbt_swag_new(xbt_swag_offset(action, state_hookup));
-         model->common_public.states.failed_action_set =
-           xbt_swag_new(xbt_swag_offset(action, state_hookup));
-         model->common_public.states.done_action_set =
-           xbt_swag_new(xbt_swag_offset(action, state_hookup));
-         model->common_public.resource_set = xbt_dict_new();
+  model->common_public.states.ready_action_set =
+    xbt_swag_new(xbt_swag_offset(action, state_hookup));
+  model->common_public.states.running_action_set =
+    xbt_swag_new(xbt_swag_offset(action, state_hookup));
+  model->common_public.states.failed_action_set =
+    xbt_swag_new(xbt_swag_offset(action, state_hookup));
+  model->common_public.states.done_action_set =
+    xbt_swag_new(xbt_swag_offset(action, state_hookup));
+  model->common_public.resource_set = xbt_dict_new();
 
-         model->common_public.action_free = int_die_impossible_paction;
-         model->common_public.action_cancel = void_die_impossible_paction;
-         model->common_public.action_recycle = void_die_impossible_paction;
+  model->common_public.action_free = int_die_impossible_paction;
+  model->common_public.action_cancel = void_die_impossible_paction;
+  model->common_public.action_recycle = void_die_impossible_paction;
 
 }
 
-void* surf_model_resource_by_name(void* model, const char *name) {
-       return xbt_dict_get_or_null(((surf_model_t)model)->common_public.resource_set,name);
+void *surf_model_resource_by_name(surf_model_t model, const char *name)
+{
+  return xbt_dict_get_or_null(model->common_public.resource_set, name);
 }
 
 
 /** @brief finalize common datastructures to all models */
-void surf_model_exit(surf_model_t model) {
-         xbt_swag_free(model->common_public.states.ready_action_set);
-         xbt_swag_free(model->common_public.states.running_action_set);
-         xbt_swag_free(model->common_public.states.failed_action_set);
-         xbt_swag_free(model->common_public.states.done_action_set);
-         xbt_dict_free(&model->common_public.resource_set);
-         free(model->common_private);
+void surf_model_exit(surf_model_t model)
+{
+  xbt_swag_free(model->common_public.states.ready_action_set);
+  xbt_swag_free(model->common_public.states.running_action_set);
+  xbt_swag_free(model->common_public.states.failed_action_set);
+  xbt_swag_free(model->common_public.states.done_action_set);
+  xbt_dict_free(&model->common_public.resource_set);
+  free(model->common_private);
 }
index 87e462e..bcb3b7a 100644 (file)
@@ -12,7 +12,7 @@
 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(surf_network, surf,
                                 "Logging specific to the SURF network module");
 
-surf_network_model_t surf_network_model = NULL;
+surf_model_t surf_network_model = NULL;
 static lmm_system_t network_maxmin_system = NULL;
 static void (*network_solve) (lmm_system_t) = NULL;
 xbt_dict_t link_set = NULL;
@@ -59,7 +59,7 @@ static link_CM02_t link_new(char *name,
   xbt_assert1(!xbt_dict_get_or_null(link_set, name),
               "Link '%s' declared several times in the platform file.", name);
 
-  nw_link->model = (surf_model_t) surf_network_model;
+  nw_link->model = surf_network_model;
   nw_link->name = name;
   nw_link->bw_current = bw_initial;
   if (bw_trace)
@@ -99,13 +99,14 @@ static void network_card_free(void *nw_card)
 static int network_card_new(const char *card_name)
 {
   network_card_CM02_t card =
-         surf_model_resource_by_name(surf_network_model,card_name);
+    surf_model_resource_by_name(surf_network_model, card_name);
 
   if (!card) {
     card = xbt_new0(s_network_card_CM02_t, 1);
     card->name = xbt_strdup(card_name);
     card->id = host_number++;
-    xbt_dict_set(surf_model_resource_set(surf_network_model), card_name, card, network_card_free);
+    xbt_dict_set(surf_model_resource_set(surf_network_model), card_name, card,
+                 network_card_free);
   }
   return card->id;
 }
@@ -472,7 +473,8 @@ static void update_resource_state(void *id,
       else
         lmm_update_variable_bound(network_maxmin_system, action->variable,
                                   min(action->rate,
-                                      sg_tcp_gamma / (2.0 * action->lat_current)));
+                                      sg_tcp_gamma / (2.0 *
+                                                      action->lat_current)));
       if (!(action->suspended))
         lmm_update_variable_weight(network_maxmin_system, action->variable,
                                    action->weight);
@@ -536,7 +538,7 @@ static surf_action_t communicate(void *src, void *dst, double size,
   action->generic_action.max_duration = NO_MAX_DURATION;
   action->generic_action.start = surf_get_clock();
   action->generic_action.finish = -1.0;
-  action->generic_action.model_type = (surf_model_t) surf_network_model;
+  action->generic_action.model_type = surf_network_model;
   action->suspended = 0;        /* Should be useless because of the
                                    calloc but it seems to help valgrind... */
   action->generic_action.state_set =
@@ -583,7 +585,8 @@ static surf_action_t communicate(void *src, void *dst, double size,
     if (action->lat_current > 0)
       lmm_update_variable_bound(network_maxmin_system, action->variable,
                                 min(action->rate,
-                                    sg_tcp_gamma / (2.0 * action->lat_current)));
+                                    sg_tcp_gamma / (2.0 *
+                                                    action->lat_current)));
     else
       lmm_update_variable_bound(network_maxmin_system, action->variable,
                                 action->rate);
@@ -675,9 +678,8 @@ static void finalize(void)
 
   xbt_dict_free(&link_set);
 
-  surf_model_exit((surf_model_t)surf_network_model);
+  surf_model_exit(surf_network_model);
 
-  free(surf_network_model->extension_public);
   free(surf_network_model);
   surf_network_model = NULL;
 
@@ -696,12 +698,9 @@ static void finalize(void)
 
 static void surf_network_model_init_internal(void)
 {
-  surf_network_model = xbt_new0(s_surf_network_model_t, 1);
+  surf_network_model = xbt_new0(s_surf_model_t, 1);
 
-  surf_model_init((surf_model_t)surf_network_model);
-
-  surf_network_model->extension_public =
-    xbt_new0(s_surf_network_model_extension_public_t, 1);
+  surf_model_init(surf_network_model);
 
   surf_network_model->common_public.get_resource_name = get_resource_name;
   surf_network_model->common_public.action_get_state = surf_action_get_state;
@@ -713,8 +712,7 @@ static void surf_network_model_init_internal(void)
   surf_network_model->common_public.action_use = action_use;
   surf_network_model->common_public.action_cancel = action_cancel;
   surf_network_model->common_public.action_recycle = action_recycle;
-  surf_network_model->common_public.action_change_state =
-    action_change_state;
+  surf_network_model->common_public.action_change_state = action_change_state;
   surf_network_model->common_public.action_set_data = surf_action_set_data;
   surf_network_model->common_public.name = "network";
 
@@ -731,14 +729,14 @@ static void surf_network_model_init_internal(void)
   surf_network_model->common_public.is_suspended = action_is_suspended;
   surf_cpu_model->common_public.set_max_duration = action_set_max_duration;
 
-  surf_network_model->extension_public->communicate = communicate;
-  surf_network_model->extension_public->get_route = get_route;
-  surf_network_model->extension_public->get_route_size = get_route_size;
-  surf_network_model->extension_public->get_link_name = get_link_name;
-  surf_network_model->extension_public->get_link_bandwidth =
+  surf_network_model->extension.network.communicate = communicate;
+  surf_network_model->extension.network.get_route = get_route;
+  surf_network_model->extension.network.get_route_size = get_route_size;
+  surf_network_model->extension.network.get_link_name = get_link_name;
+  surf_network_model->extension.network.get_link_bandwidth =
     get_link_bandwidth;
-  surf_network_model->extension_public->get_link_latency = get_link_latency;
-  surf_network_model->extension_public->link_shared = link_shared;
+  surf_network_model->extension.network.get_link_latency = get_link_latency;
+  surf_network_model->extension.network.link_shared = link_shared;
 
   surf_network_model->common_public.get_properties = get_properties;
 
@@ -766,7 +764,7 @@ void surf_network_model_init_LegrandVelho(const char *filename)
   weight_S_parameter = 8775;
 
   update_model_description(surf_network_model_description,
-                           "LegrandVelho", (surf_model_t) surf_network_model);
+                           "LegrandVelho", surf_network_model);
 }
 
 /***************************************************************************/
@@ -791,7 +789,7 @@ void surf_network_model_init_CM02(const char *filename)
   network_solve = lmm_solve;
 
   update_model_description(surf_network_model_description,
-                           "CM02", (surf_model_t) surf_network_model);
+                           "CM02", surf_network_model);
 }
 
 void surf_network_model_init_Reno(const char *filename)
@@ -810,7 +808,7 @@ void surf_network_model_init_Reno(const char *filename)
   weight_S_parameter = 8775;
 
   update_model_description(surf_network_model_description,
-                           "Reno", (surf_model_t) surf_network_model);
+                           "Reno", surf_network_model);
 }
 
 
@@ -831,7 +829,7 @@ void surf_network_model_init_Reno2(const char *filename)
   weight_S_parameter = 8775;
 
   update_model_description(surf_network_model_description,
-                           "Reno2", (surf_model_t) surf_network_model);
+                           "Reno2", surf_network_model);
 }
 
 void surf_network_model_init_Vegas(const char *filename)
@@ -851,7 +849,7 @@ void surf_network_model_init_Vegas(const char *filename)
   weight_S_parameter = 8775;
 
   update_model_description(surf_network_model_description,
-                           "Vegas", (surf_model_t) surf_network_model);
+                           "Vegas", surf_network_model);
 }
 
 #ifdef HAVE_SDP
@@ -866,6 +864,6 @@ void surf_network_model_init_SDP(const char *filename)
   network_solve = sdp_solve;
 
   update_model_description(surf_network_model_description,
-                           "SDP", (surf_model_t) surf_network_model);
+                           "SDP", surf_network_model);
 }
 #endif
index 8ac0021..0689106 100644 (file)
@@ -40,13 +40,14 @@ static void network_card_free(void *nw_card)
 static int network_card_new(const char *card_name)
 {
   network_card_Constant_t card =
-         surf_model_resource_by_name(surf_network_model,card_name);
+    surf_model_resource_by_name(surf_network_model, card_name);
 
   if (!card) {
     card = xbt_new0(s_network_card_Constant_t, 1);
     card->name = xbt_strdup(card_name);
     card->id = card_number++;
-    xbt_dict_set(surf_model_resource_set(surf_network_model), card_name, card, network_card_free);
+    xbt_dict_set(surf_model_resource_set(surf_network_model), card_name, card,
+                 network_card_free);
   }
   return card->id;
 }
@@ -204,7 +205,7 @@ static surf_action_t communicate(void *src, void *dst, double size,
   action->generic_action.max_duration = NO_MAX_DURATION;
   action->generic_action.start = surf_get_clock();
   action->generic_action.finish = -1.0;
-  action->generic_action.model_type = (surf_model_t) surf_network_model;
+  action->generic_action.model_type = surf_network_model;
   action->suspended = 0;
 
   action->latency = random_generate(random_latency);
@@ -286,9 +287,7 @@ static void action_set_max_duration(surf_action_t action, double duration)
 
 static void finalize(void)
 {
-  surf_model_exit((surf_model_t)surf_network_model);
-
-  free(surf_network_model->extension_public);
+  surf_model_exit(surf_network_model);
 
   free(surf_network_model);
   surf_network_model = NULL;
@@ -298,12 +297,9 @@ static void finalize(void)
 
 static void surf_network_model_init_internal(void)
 {
-  surf_network_model = xbt_new0(s_surf_network_model_t, 1);
-
-  surf_model_init((surf_model_t)surf_network_model);
+  surf_network_model = xbt_new0(s_surf_model_t, 1);
 
-  surf_network_model->extension_public =
-    xbt_new0(s_surf_network_model_extension_public_t, 1);
+  surf_model_init(surf_network_model);
 
   surf_network_model->common_public.get_resource_name = get_resource_name;
   surf_network_model->common_public.action_get_state = surf_action_get_state;
@@ -315,8 +311,7 @@ static void surf_network_model_init_internal(void)
   surf_network_model->common_public.action_use = action_use;
   surf_network_model->common_public.action_cancel = action_cancel;
   surf_network_model->common_public.action_recycle = action_recycle;
-  surf_network_model->common_public.action_change_state =
-    action_change_state;
+  surf_network_model->common_public.action_change_state = action_change_state;
   surf_network_model->common_public.action_set_data = surf_action_set_data;
   surf_network_model->common_public.name = "network";
 
@@ -333,14 +328,14 @@ static void surf_network_model_init_internal(void)
   surf_network_model->common_public.is_suspended = action_is_suspended;
   surf_cpu_model->common_public.set_max_duration = action_set_max_duration;
 
-  surf_network_model->extension_public->communicate = communicate;
-  surf_network_model->extension_public->get_route = get_route;
-  surf_network_model->extension_public->get_route_size = get_route_size;
-  surf_network_model->extension_public->get_link_name = get_link_name;
-  surf_network_model->extension_public->get_link_bandwidth =
+  surf_network_model->extension.network.communicate = communicate;
+  surf_network_model->extension.network.get_route = get_route;
+  surf_network_model->extension.network.get_route_size = get_route_size;
+  surf_network_model->extension.network.get_link_name = get_link_name;
+  surf_network_model->extension.network.get_link_bandwidth =
     get_link_bandwidth;
-  surf_network_model->extension_public->get_link_latency = get_link_latency;
-  surf_network_model->extension_public->link_shared = link_shared;
+  surf_network_model->extension.network.get_link_latency = get_link_latency;
+  surf_network_model->extension.network.link_shared = link_shared;
 
   surf_network_model->common_public.get_properties = get_properties;
 
@@ -358,5 +353,5 @@ void surf_network_model_init_Constant(const char *filename)
   xbt_dynar_push(model_list, &surf_network_model);
 
   update_model_description(surf_network_model_description,
-                           "Constant", (surf_model_t) surf_network_model);
+                           "Constant", surf_network_model);
 }
index 32a30ba..351337a 100644 (file)
@@ -54,7 +54,7 @@ static void link_new(char *name, double bw, double lat, xbt_dict_t props)
   link_count++;
 
 /*
-  nw_link->model = (surf_model_t) surf_network_model;
+  nw_link->model =  surf_network_model;
   nw_link->name = name;
   nw_link->bw_current = bw_initial;
   if (bw_trace)
@@ -103,7 +103,8 @@ static int network_card_new(const char *name)
 
   XBT_IN1("(%s)", name);
   /* KF: Check that we haven't seen the network card before */
-  network_card_GTNETS_t card = surf_model_resource_by_name(surf_network_model, name);
+  network_card_GTNETS_t card =
+    surf_model_resource_by_name(surf_network_model, name);
 
   if (!card) {
     /* KF: Increment the card counter for GTNetS */
@@ -113,7 +114,8 @@ static int network_card_new(const char *name)
     card = xbt_new0(s_network_card_GTNETS_t, 1);
     card->name = xbt_strdup(name);
     card->id = card_count;
-    xbt_dict_set(surf_model_resource_set(surf_network_model), name, card, network_card_free);
+    xbt_dict_set(surf_model_resource_set(surf_network_model), name, card,
+                 network_card_free);
   }
 
   LOG1(xbt_log_priority_trace, "   return %d", card->id);
@@ -487,7 +489,7 @@ static surf_action_t communicate(void *src, void *dst, double size,
   action->generic_action.max_duration = NO_MAX_DURATION;
   action->generic_action.start = surf_get_clock();
   action->generic_action.finish = -1.0;
-  action->generic_action.model_type = (surf_model_t) surf_network_model;
+  action->generic_action.model_type = surf_network_model;
 
   action->generic_action.state_set =
     surf_network_model->common_public.states.running_action_set;
@@ -528,7 +530,7 @@ static void finalize(void)
 {
   xbt_dict_free(&link_set);
 
-  surf_model_exit((surf_model_t)surf_network_model);
+  surf_model_exit(surf_network_model);
 
   free(surf_network_model->extension_public);
 
@@ -544,7 +546,7 @@ static void surf_network_model_init_internal(void)
 
   surf_network_model = xbt_new0(s_surf_network_model_t, 1);
 
-  surf_model_init((surf_model_t)surf_network_model);
+  surf_model_init(surf_network_model);
 
   surf_network_model->extension_public =
     xbt_new0(s_surf_network_model_extension_public_t, 1);
@@ -556,8 +558,7 @@ static void surf_network_model_init_internal(void)
   surf_network_model->common_public.action_free = action_free;
   surf_network_model->common_public.action_cancel = action_cancel;
   surf_network_model->common_public.action_recycle = action_recycle;
-  surf_network_model->common_public.action_change_state =
-    action_change_state;
+  surf_network_model->common_public.action_change_state = action_change_state;
   surf_network_model->common_public.action_set_data = surf_action_set_data;
   surf_network_model->common_public.name = "network";
 
@@ -596,6 +597,6 @@ void surf_network_model_init_GTNETS(const char *filename)
   xbt_dynar_push(model_list, &surf_network_model);
 
   update_model_description(surf_network_model_description,
-                           "GTNets", (surf_model_t) surf_network_model);
+                           "GTNets", surf_network_model);
 }
 #endif
index aaac6de..99364c1 100644 (file)
@@ -69,7 +69,7 @@ typedef uint32_t flex_uint32_t;
 typedef signed char flex_int8_t;
 typedef short int flex_int16_t;
 typedef int flex_int32_t;
-typedef unsigned char flex_uint8_t; 
+typedef unsigned char flex_uint8_t;
 typedef unsigned short int flex_uint16_t;
 typedef unsigned int flex_uint32_t;
 
@@ -111,15 +111,15 @@ typedef unsigned int flex_uint32_t;
 /* The "const" storage-class-modifier is valid. */
 #define YY_USE_CONST
 
-#else  /* ! __cplusplus */
+#else /* ! __cplusplus */
 
 /* C99 requires __STDC__ to be defined as 1. */
 #if defined (__STDC__)
 
 #define YY_USE_CONST
 
-#endif /* defined (__STDC__) */
-#endif /* ! __cplusplus */
+#endif /* defined (__STDC__) */
+#endif /* ! __cplusplus */
 
 #ifdef YY_USE_CONST
 #define yyconst const
@@ -195,14 +195,14 @@ extern FILE *surf_parse_in, *surf_parse_out;
      *       a 5% performance hit in a non-surf_parse_lineno scanner, because yy_act is
      *       normally declared as a register variable-- so it is not worth it.
      */
-    #define  YY_LESS_LINENO(n) \
+#define  YY_LESS_LINENO(n) \
             do { \
                 int yyl;\
                 for ( yyl = n; yyl < surf_parse_leng; ++yyl )\
                     if ( surf_parse_text[yyl] == '\n' )\
                         --surf_parse_lineno;\
             }while(0)
-    
+
 /* Return all but the first "n" matched characters back to the input stream. */
 #define yyless(n) \
        do \
@@ -226,73 +226,72 @@ typedef size_t yy_size_t;
 
 #ifndef YY_STRUCT_YY_BUFFER_STATE
 #define YY_STRUCT_YY_BUFFER_STATE
-struct yy_buffer_state
-       {
-       FILE *yy_input_file;
-
-       char *yy_ch_buf;                /* input buffer */
-       char *yy_buf_pos;               /* current position in input buffer */
-
-       /* Size of input buffer in bytes, not including room for EOB
-        * characters.
-        */
-       yy_size_t yy_buf_size;
-
-       /* Number of characters read into yy_ch_buf, not including EOB
-        * characters.
-        */
-       int yy_n_chars;
-
-       /* Whether we "own" the buffer - i.e., we know we created it,
-        * and can realloc() it to grow it, and should free() it to
-        * delete it.
-        */
-       int yy_is_our_buffer;
-
-       /* Whether this is an "interactive" input source; if so, and
-        * if we're using stdio for input, then we want to use getc()
-        * instead of fread(), to make sure we stop fetching input after
-        * each newline.
-        */
-       int yy_is_interactive;
-
-       /* Whether we're considered to be at the beginning of a line.
-        * If so, '^' rules will be active on the next match, otherwise
-        * not.
-        */
-       int yy_at_bol;
-
-    int yy_bs_lineno; /**< The line count. */
-    int yy_bs_column; /**< The column count. */
-    
-       /* Whether to try to fill the input buffer when we reach the
-        * end of it.
-        */
-       int yy_fill_buffer;
-
-       int yy_buffer_status;
+struct yy_buffer_state {
+  FILE *yy_input_file;
+
+  char *yy_ch_buf;              /* input buffer */
+  char *yy_buf_pos;             /* current position in input buffer */
+
+  /* Size of input buffer in bytes, not including room for EOB
+   * characters.
+   */
+  yy_size_t yy_buf_size;
+
+  /* Number of characters read into yy_ch_buf, not including EOB
+   * characters.
+   */
+  int yy_n_chars;
+
+  /* Whether we "own" the buffer - i.e., we know we created it,
+   * and can realloc() it to grow it, and should free() it to
+   * delete it.
+   */
+  int yy_is_our_buffer;
+
+  /* Whether this is an "interactive" input source; if so, and
+   * if we're using stdio for input, then we want to use getc()
+   * instead of fread(), to make sure we stop fetching input after
+   * each newline.
+   */
+  int yy_is_interactive;
+
+  /* Whether we're considered to be at the beginning of a line.
+   * If so, '^' rules will be active on the next match, otherwise
+   * not.
+   */
+  int yy_at_bol;
+
+  int yy_bs_lineno;   /**< The line count. */
+  int yy_bs_column;   /**< The column count. */
+
+  /* Whether to try to fill the input buffer when we reach the
+   * end of it.
+   */
+  int yy_fill_buffer;
+
+  int yy_buffer_status;
 
 #define YY_BUFFER_NEW 0
 #define YY_BUFFER_NORMAL 1
-       /* When an EOF's been seen but there's still some text to process
-        * then we mark the buffer as YY_EOF_PENDING, to indicate that we
-        * shouldn't try reading from the input source any more.  We might
-        * still have a bunch of tokens to match, though, because of
-        * possible backing-up.
-        *
-        * When we actually see the EOF, we change the status to "new"
-        * (via surf_parse_restart()), so that the user can continue scanning by
-        * just pointing surf_parse_in at a new input file.
-        */
+  /* When an EOF's been seen but there's still some text to process
+   * then we mark the buffer as YY_EOF_PENDING, to indicate that we
+   * shouldn't try reading from the input source any more.  We might
+   * still have a bunch of tokens to match, though, because of
+   * possible backing-up.
+   *
+   * When we actually see the EOF, we change the status to "new"
+   * (via surf_parse_restart()), so that the user can continue scanning by
+   * just pointing surf_parse_in at a new input file.
+   */
 #define YY_BUFFER_EOF_PENDING 2
 
-       };
+};
 #endif /* !YY_STRUCT_YY_BUFFER_STATE */
 
 /* Stack of input buffers. */
 static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
 static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
+static YY_BUFFER_STATE *yy_buffer_stack = 0;  /**< Stack as an array. */
 
 /* We provide macros for accessing buffer states in case in the
  * future we want to put the buffer states in a more general
@@ -311,40 +310,40 @@ static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
 
 /* yy_hold_char holds the character lost when surf_parse_text is formed. */
 static char yy_hold_char;
-static int yy_n_chars;         /* number of characters read into yy_ch_buf */
+static int yy_n_chars;          /* number of characters read into yy_ch_buf */
 int surf_parse_leng;
 
 /* Points to current character in buffer. */
 static char *yy_c_buf_p = (char *) 0;
-static int yy_init = 0;                /* whether we need to initialize */
-static int yy_start = 0;       /* start state number */
+static int yy_init = 0;         /* whether we need to initialize */
+static int yy_start = 0;        /* start state number */
 
 /* Flag which is used to allow surf_parse_wrap()'s to do buffer switches
  * instead of setting up a fresh surf_parse_in.  A bit of a hack ...
  */
 static int yy_did_buffer_switch_on_eof;
 
-void surf_parse_restart (FILE *input_file  );
-void surf_parse__switch_to_buffer (YY_BUFFER_STATE new_buffer  );
-YY_BUFFER_STATE surf_parse__create_buffer (FILE *file,int size  );
-void surf_parse__delete_buffer (YY_BUFFER_STATE b  );
-void surf_parse__flush_buffer (YY_BUFFER_STATE b  );
-void surf_parse_push_buffer_state (YY_BUFFER_STATE new_buffer  );
-void surf_parse_pop_buffer_state (void );
+void surf_parse_restart(FILE * input_file);
+void surf_parse__switch_to_buffer(YY_BUFFER_STATE new_buffer);
+YY_BUFFER_STATE surf_parse__create_buffer(FILE * file, int size);
+void surf_parse__delete_buffer(YY_BUFFER_STATE b);
+void surf_parse__flush_buffer(YY_BUFFER_STATE b);
+void surf_parse_push_buffer_state(YY_BUFFER_STATE new_buffer);
+void surf_parse_pop_buffer_state(void);
 
-static void surf_parse_ensure_buffer_stack (void );
-static void surf_parse__load_buffer_state (void );
-static void surf_parse__init_buffer (YY_BUFFER_STATE b,FILE *file  );
+static void surf_parse_ensure_buffer_stack(void);
+static void surf_parse__load_buffer_state(void);
+static void surf_parse__init_buffer(YY_BUFFER_STATE b, FILE * file);
 
 #define YY_FLUSH_BUFFER surf_parse__flush_buffer(YY_CURRENT_BUFFER )
 
-YY_BUFFER_STATE surf_parse__scan_buffer (char *base,yy_size_t size  );
-YY_BUFFER_STATE surf_parse__scan_string (yyconst char *yy_str  );
-YY_BUFFER_STATE surf_parse__scan_bytes (yyconst char *bytes,int len  );
+YY_BUFFER_STATE surf_parse__scan_buffer(char *base, yy_size_t size);
+YY_BUFFER_STATE surf_parse__scan_string(yyconst char *yy_str);
+YY_BUFFER_STATE surf_parse__scan_bytes(yyconst char *bytes, int len);
 
-void *surf_parse_alloc (yy_size_t  );
-void *surf_parse_realloc (void *,yy_size_t  );
-void surf_parse_free (void *  );
+void *surf_parse_alloc(yy_size_t);
+void *surf_parse_realloc(void *, yy_size_t);
+void surf_parse_free(void *);
 
 #define yy_new_buffer surf_parse__create_buffer
 
@@ -388,10 +387,10 @@ int surf_parse_lineno = 1;
 extern char *surf_parse_text;
 #define yytext_ptr surf_parse_text
 
-static yy_state_type yy_get_previous_state (void );
-static yy_state_type yy_try_NUL_trans (yy_state_type current_state  );
-static int yy_get_next_buffer (void );
-static void yy_fatal_error (yyconst char msg[]  );
+static yy_state_type yy_get_previous_state(void);
+static yy_state_type yy_try_NUL_trans(yy_state_type current_state);
+static int yy_get_next_buffer(void);
+static void yy_fatal_error(yyconst char msg[]);
 
 /* Done after the current pattern has been matched and before the
  * corresponding action - sets up surf_parse_text.
@@ -407,2390 +406,2382 @@ static void yy_fatal_error (yyconst char msg[]  );
 #define YY_END_OF_BUFFER 352
 /* This struct is not used in this scanner,
    but its presence is necessary. */
-struct yy_trans_info
-       {
-       flex_int32_t yy_verify;
-       flex_int32_t yy_nxt;
-       };
-static yyconst flex_int16_t yy_accept[2023] =
-    {   0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,  352,  350,   15,   10,   10,   15,   15,  330,
-       10,  330,    5,    6,    5,    8,    9,    8,  346,  338,
-      339,  347,  344,  347,  345,  349,  338,  339,  349,  350,
-       26,   10,   26,   26,   26,   24,   26,   26,   30,   10,
-       30,   30,  350,  350,   30,   37,   10,   37,   37,   37,
-       35,   37,   41,   10,   41,   52,   10,   52,   52,   52,
-
-       50,   52,   52,   52,  347,  346,   74,   10,   74,   74,
-       74,   72,   74,   74,   74,   74,   78,   10,   78,  350,
-       78,   97,   10,   97,   97,   97,   95,   97,   97,   97,
-      101,   10,  101,  114,   10,  114,  114,  114,  112,  114,
-      114,  114,  114,  118,   10,  118,  125,   10,  125,  125,
-      125,  123,  125,  350,  350,  129,   10,  129,  156,   10,
-      156,  156,  156,  154,  156,  156,  156,  156,  156,  160,
-       10,  160,  160,  169,   10,  169,  169,  169,  167,  169,
-      169,  173,   10,  173,  196,   10,  196,  196,  196,  194,
-      196,  196,  196,  196,  196,  196,  200,   10,  200,  207,
-
-       10,  207,  207,  207,  205,  207,  211,   10,  211,  236,
-       10,  236,  236,  236,  234,  236,  236,  236,  236,  240,
-       10,  240,  240,  259,   10,  259,  259,  259,  257,  259,
-      259,  259,  350,  263,   10,  263,  263,  286,   10,  286,
-      286,  286,  284,  286,  286,  286,  286,  290,   10,  290,
-      290,  297,   10,  297,  297,  297,  295,  297,  301,   10,
-      301,  314,   10,  314,  314,  314,  312,  314,  314,  314,
-      314,  318,   10,  318,  350,  318,  325,   10,  325,  325,
-      325,  323,  325,  329,   10,  329,   10,    0,    2,    2,
-        0,    4,    7,  341,  340,    0,    0,    0,    0,    0,
-
-        0,    0,   25,   27,   27,   27,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,   36,
-       38,   38,    0,   51,   53,   53,   53,   53,    0,    0,
-        0,   73,   75,   75,   75,   75,   75,   75,   75,    0,
-        0,   96,   98,   98,   98,   98,    0,  113,  115,  115,
-      115,  115,  115,    0,  124,  126,  126,    0,  155,  157,
-      157,  157,  157,  157,  157,  157,    0,  168,  170,  170,
-      170,    0,  195,  197,  197,  197,  197,  197,  197,  197,
-      197,  197,    0,  206,  208,  208,    0,  235,  237,  237,
-
-      237,  237,  237,  237,    0,  258,  260,  260,  260,  260,
-      260,    0,    0,  285,  287,  287,  287,  287,  287,    0,
-      296,  298,  298,    0,  313,  315,  315,  315,  315,  315,
-        0,    0,  324,  326,  326,    0,    0,    0,    0,    0,
-        3,    0,    0,    0,    0,    0,    0,    0,  348,    0,
-       27,   27,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,   38,
-        0,    0,   53,    0,    0,   53,    0,    0,    0,  343,
-       75,    0,    0,   75,   75,   75,   75,    0,    0,    0,
-
-       98,   98,   98,    0,    0,    0,    0,  115,  115,  115,
-        0,    0,  126,    0,    0,  157,    0,    0,  157,  157,
-      157,  157,    0,    0,    0,    0,  170,    0,    0,  197,
-        0,    0,    0,    0,  197,  197,  197,  197,  197,    0,
-        0,    0,    0,    0,    0,  237,    0,    0,  237,  237,
-      237,    0,    0,  260,  260,  260,  260,    0,    0,    0,
-      287,  287,  287,  287,    0,    0,    0,    0,    0,    0,
-      315,  315,  315,  315,    0,    0,    0,  326,    0,    0,
-        0,   14,    1,    0,    0,  336,    0,    0,    0,  333,
-      332,    0,    0,   27,   27,    0,    0,   29,    0,    0,
-
-        0,    0,    0,    0,    0,    0,    0,    0,    0,  103,
-        0,    0,    0,    0,    0,    0,    0,  102,    0,    0,
-        0,    0,    0,    0,   38,    0,    0,   40,    0,   53,
-        0,   45,   44,   53,    0,    0,    0,   55,    0,   75,
-        0,   59,   58,    0,    0,   75,    0,    0,   75,    0,
-        0,   77,    0,    0,   98,   98,   98,    0,    0,  100,
-        0,    0,  105,  104,  115,  115,  115,    0,    0,  117,
-        0,  126,    0,    0,  128,    0,  157,    0,  133,  132,
-      157,  157,  157,  157,    0,    0,  159,    0,    0,  164,
-      163,  170,    0,    0,  172,    0,  197,  197,    0,  187,
-
-      186,    0,  177,  176,    0,    0,  197,  197,  197,  197,
-        0,    0,  199,    0,    0,  204,  203,    0,    0,  210,
-        0,  237,    0,  215,  214,  237,  237,  237,    0,    0,
-      239,    0,  260,    0,    0,    0,    0,  260,    0,    0,
-        0,  262,    0,  287,    0,    0,  287,    0,    0,    0,
-        0,  289,    0,    0,  294,  293,    0,    0,  300,    0,
-      315,  315,  315,  315,    0,    0,  317,    0,    0,  326,
-        0,    0,  328,    0,    0,    0,  337,  331,    0,    0,
-        0,   27,   27,    0,    0,    0,    0,  131,    0,  213,
-        0,    0,  161,    0,    0,  103,    0,    0,    0,  130,
-
-      212,    0,    0,  102,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,   53,    0,    0,   75,    0,
-       63,   62,    0,    0,    0,   61,   60,   75,    0,  162,
-       98,    0,    0,   98,    0,  115,  115,  115,    0,  126,
-        0,  157,  157,  157,  157,  157,    0,  170,    0,  197,
-      197,    0,  189,  188,  197,  197,  197,  197,    0,    0,
-      237,  237,  237,  237,    0,  260,    0,  246,  245,    0,
-      244,  243,  260,  212,    0,  287,    0,  269,  268,  287,
-        0,  267,  266,    0,    0,  315,    0,    0,  315,  315,
-        0,    0,  326,    0,    0,    0,    0,   12,    0,  334,
-
-      335,    0,   27,   27,    0,    0,    0,    0,  131,    0,
-      213,    0,    0,    0,  161,    0,  265,   43,    0,    0,
-      130,  212,    0,  265,   42,    0,  264,    0,  264,   42,
-        0,   34,   33,    0,    0,   47,   46,   53,    0,    0,
-       75,    0,   65,   64,   75,    0,  162,   98,    0,    0,
-        0,    0,    0,    0,  115,  115,  115,    0,  116,  126,
-        0,  157,  157,  157,    0,    0,    0,    0,  157,    0,
-        0,    0,    0,    0,    0,  197,    0,    0,  197,  197,
-      197,    0,    0,  237,  237,  237,    0,    0,  237,    0,
-      260,  260,    0,    0,  287,  287,    0,    0,  315,    0,
-
-      305,  304,  315,  315,    0,    0,    0,    0,    0,    0,
-        0,    0,   11,    0,   27,   27,   27,    0,    0,    0,
-        0,    0,    0,    0,    0,   57,  265,    0,  202,   43,
-        0,    0,    0,   56,  201,   42,    0,  264,    0,    0,
-        0,    0,   53,    0,    0,   75,   75,    0,   98,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,   92,   91,
-        0,    0,    0,  115,    0,    0,    0,    0,    0,  157,
-      157,  157,    0,  135,  134,    0,    0,    0,  157,    0,
-      158,    0,  166,  165,    0,  171,    0,  191,  190,    0,
-        0,    0,  185,  184,    0,    0,  197,    0,    0,    0,
-
-        0,  237,  237,  237,    0,    0,    0,  237,    0,  238,
-        0,    0,  260,    0,    0,    0,    0,  287,    0,    0,
-      315,  315,  315,    0,    0,    0,  322,  321,    0,    0,
-        0,    0,    0,    0,    0,   27,   27,    0,    0,  175,
-      120,   32,    0,    0,  303,   57,    0,  202,    0,  174,
-      119,   56,  201,  302,    0,   31,    0,    0,   53,    0,
-        0,   54,   75,   75,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,  107,
-      106,    0,    0,    0,  109,  108,    0,  122,  121,    0,
-      157,  157,  157,    0,    0,  157,    0,  193,  192,    0,
-
-      179,  178,    0,    0,    0,  181,  180,    0,    0,  237,
-        0,    0,  237,  237,    0,    0,  237,    0,    0,    0,
-      260,    0,    0,    0,    0,    0,  287,    0,  288,    0,
-      315,  315,  315,    0,    0,    0,    0,    0,    0,   17,
-        0,   19,   18,   27,   27,    0,  319,  175,  120,   32,
-      291,   16,  303,    0,    0,  174,  119,  302,    0,   31,
-        0,    0,   53,  342,   75,   75,    0,   76,    0,   94,
-       93,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,  111,  110,    0,  157,  157,  157,    0,
-        0,    0,    0,  157,    0,  183,  182,    0,    0,  209,
-
-      237,    0,  221,  220,  237,  237,    0,    0,    0,    0,
-      237,    0,    0,    0,    0,  260,  292,    0,    0,    0,
-        0,    0,  287,    0,    0,    0,  315,  315,    0,  320,
-        0,    0,    0,    0,   17,   27,   27,    0,  319,  291,
-       16,    0,    0,    0,    0,    0,   39,   53,    0,    0,
-       75,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,  127,  157,  157,  157,    0,  141,    0,
-      140,  157,    0,  198,    0,    0,  237,  237,  237,    0,
-      225,    0,  224,  237,    0,    0,    0,    0,    0,    0,
-        0,    0,  292,    0,    0,    0,    0,    0,    0,    0,
-
-      287,    0,    0,  307,  306,    0,    0,  315,    0,  316,
-      320,    0,    0,    0,    0,    0,    0,   27,    0,   28,
-        0,    0,    0,    0,   53,    0,    0,    0,   75,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-      157,  157,  157,  143,  142,    0,    0,    0,  217,  216,
-      237,  237,  237,  227,  226,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,  287,  287,    0,  299,    0,  311,  310,
-        0,    0,    0,  327,    0,    0,    0,    0,   21,   20,
-        0,    0,  242,    0,  241,    0,    0,    0,    0,    0,
-
-        0,    0,   75,    0,    0,    0,    0,   84,    0,    0,
-        0,    0,   83,    0,  157,  157,  157,    0,  145,  144,
-      237,  237,  237,    0,  229,  228,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,  287,  287,    0,  309,  308,    0,    0,
-        0,    0,   23,   22,  242,    0,  241,    0,    0,   49,
-       48,    0,    0,    0,    0,   75,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,  157,  157,  157,
-      237,    0,    0,  237,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-
-        0,  287,  287,    0,    0,    0,    0,   80,   79,    0,
-        0,    0,    0,    0,    0,    0,    0,   90,    0,    0,
-        0,   89,    0,    0,    0,  137,  136,  157,  157,  157,
-      157,  237,    0,  223,  222,  237,    0,    0,    0,    0,
-        0,    0,  256,    0,  255,    0,    0,  261,    0,    0,
-        0,    0,    0,    0,    0,    0,  287,    0,    0,  287,
-        0,    0,    0,    0,    0,    0,   80,   79,    0,    0,
-        0,    0,    0,   67,   66,    0,    0,    0,    0,    0,
-        0,    0,  157,  157,  157,  157,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,  254,  253,    0,    0,
-
-        0,    0,    0,    0,    0,  273,  272,  287,    0,  271,
-      270,  287,    0,    0,    0,    0,    0,    0,    0,   71,
-        0,   70,   88,    0,    0,   87,    0,    0,    0,   99,
-      157,  157,  157,  157,    0,  219,  218,    0,    0,    0,
-        0,    0,  250,    0,    0,  249,    0,    0,  281,    0,
-        0,  280,  287,  287,    0,    0,    0,   12,    0,   12,
-        0,    0,    0,   82,   86,   81,   85,  157,  157,  157,
-      157,    0,    0,    0,    0,  252,  248,  251,  247,  283,
-      279,  282,  278,  287,  287,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,  157,    0,
-
-        0,    0,    0,    0,    0,  287,  287,    0,    0,   69,
-       68,    0,  139,  138,    0,  149,  148,    0,  147,  146,
-      157,    0,  153,  152,    0,    0,    0,    0,  287,  287,
-        0,   11,  157,    0,    0,    0,    0,  287,  287,    0,
-      157,    0,    0,    0,    0,  287,  287,    0,  157,    0,
-        0,    0,    0,  287,  287,    0,    0,    0,    0,  231,
-        0,  230,  287,  287,    0,    0,  151,  150,  233,  232,
-      287,  287,    0,  287,  287,    0,  287,  287,    0,    0,
-      287,  287,    0,    0,  287,  287,    0,    0,  287,  287,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,  277,
-
-      276,    0,  275,  274,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-       13,    0
-    } ;
-
-static yyconst flex_int32_t yy_ec[256] =
-    {   0,
-        1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
-        1,    2,    4,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    2,    5,    6,    7,    1,    1,    8,    9,    1,
-        1,    1,    1,    1,   10,   11,   12,   13,   13,   13,
-       13,   14,   13,   13,   13,   15,   13,   16,   17,   18,
-       19,   20,   21,    1,   22,   23,   24,   25,   26,   27,
-       28,   29,   30,   28,   31,   32,   33,   34,   35,   36,
-       28,   37,   38,   39,   28,   40,   41,   28,   42,   28,
-       43,    1,   44,    1,   45,    1,   46,   47,   48,   49,
-
-       50,   51,   52,   53,   54,   28,   55,   56,   57,   58,
-       59,   60,   61,   62,   63,   64,   65,   66,   67,   68,
-       69,   28,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1
-    } ;
-
-static yyconst flex_int32_t yy_meta[70] =
-    {   0,
-        1,    2,    2,    2,    1,    1,    1,    1,    1,    3,
-        3,    1,    4,    4,    4,    5,    6,    1,    7,    8,
-        1,    9,    9,    9,    9,    9,    9,    5,    5,    5,
-        5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
-        5,    5,    1,    1,    5,    9,    9,    9,    9,    9,
-        9,    5,    5,    5,    5,    5,    5,    5,    5,    5,
-        5,    5,    5,    5,    5,    5,    5,    5,    5
-    } ;
-
-static yyconst flex_int16_t yy_base[2256] =
-    {   0,
-        0,    0,    0,    3,    6,    9,   12,   29,   16,   19,
-       14,   17,   33,   36,   49,   55,   45,   61,   66,   72,
-      105,  173,   75,   78,   83,  125,  128,  132,  135,  138,
-      193,  196,  200,  203,  206,  224,  242,  293,  262,  265,
-      344,  404,  271,  273,  464,  527,  269,  316,  320,  323,
-      364,  367,  371,  374,  590,  654,  424,  427,  718,  781,
-      431,  434,  844,  907,  484,  487,  491,  494,  497,  547,
-      970, 1033,  550,  554,  557,  560,  610,  613,  617,  620,
-     1096, 1162,  623,  674, 1228,    0,  677,  681, 1297, 1351,
-      684,  687, 1405, 1468,  738,  741,  745,  748,  751,  801,
-
-      804,  808, 1531, 1594,  811,  814,  864,  867,  871,  874,
-      877,  927, 1657, 1720,  930,  934,  937,  940,  990,  993,
-      997, 1000, 1783, 1837, 1003, 1053, 1891, 1954, 1056, 1060,
-     1063, 1066, 1116, 1119, 1123, 1126, 2017, 2083, 1129, 1182,
-        0,    0, 5066, 7094, 7094,   95,  100,   29,   41, 7094,
-      155,   51, 7094, 7094, 5055, 7094, 7094, 5043, 7094, 5058,
-     5042, 1141, 7094, 7094, 7094, 7094, 5036, 5032, 4990,  210,
-     7094,  158, 5012,    0,  142, 7094, 4977, 4969, 7094,  162,
-     2145, 2205,  160, 5007,  176, 7094,  165, 4998,    0,  149,
-     7094, 4961, 7094,  230,  378, 7094,  326, 4994,    0,  208,
-
-     7094, 4958, 4949, 4947,  379, 4950, 7094,  329, 4972,    0,
-      214, 7094, 4938, 4937,  238, 4915, 7094,  377,   11,   31,
-     4965, 7094,  399, 4948,    0,  435, 7094, 4907, 4905, 4888,
-     7094,  457,  441, 7094,  520, 4922,    0,  436, 7094, 4892,
-     4870, 4871, 4851, 7094,  583,  498, 7094,  640, 4894,    0,
-      499, 7094, 4862,  513, 4840, 7094,  644, 4879, 7094,  647,
-     4870,    0,  562, 7094, 4802,   34, 4821, 4797, 4788, 7094,
-      704,  177, 4838, 7094,  708, 4827,    0,  568, 7094, 4793,
-     4783, 7094,  711,  752, 7094,  772, 4808,    0,  631, 7094,
-      211, 4777, 4775,   93, 4773, 4753, 7094,  834,  818, 7094,
-
-      894, 4796,    0,  632, 7094, 4753, 7094,  897,  881, 7094,
-      901, 4781,    0,  695, 7094, 4739, 4735, 4736,   80, 7094,
-      957,  360, 4765, 7094,  960, 4755,    0,  696, 7094, 4726,
-     4709,   26,  304, 7094,  963,  330, 4746, 7094, 1149, 4726,
-        0,  885, 7094, 4694, 4675, 4679, 4673, 7094, 1152,  499,
-     4721, 7094, 1155, 4705,    0,  948, 7094, 4672, 7094, 1186,
-     1005, 7094, 1192, 4696,    0, 1004, 7094, 4650, 4654, 4655,
-     4643, 7094, 1205, 1100, 4694, 4691, 7094, 1208, 4678,    0,
-     1007, 7094, 4650, 7094, 1211, 1068, 1215,  429, 4627, 7094,
-     4683, 4665, 7094, 7094, 7094, 1306,  283, 4614, 4612, 4607,
-
-     4647, 4609, 7094,    0, 4598, 4601, 4586, 4583, 4584, 4580,
-     4574, 4570, 4573,    4,  166, 4567, 4554, 4558, 4546, 4545,
-     4541,  404, 4544, 4530,   38,  467, 4530,  712, 4523, 7094,
-        0, 4526, 4527, 7094,    0, 4523, 1320, 4516,  533, 4512,
-     4555, 7094,    0, 4514, 1323, 4486, 4507, 4493, 4497, 4477,
-       89, 7094,    0, 4488, 4462, 4473, 4453, 7094,    0, 1326,
-     4459, 4459, 4455, 4435, 7094,    0, 4429, 4441, 7094,    0,
-     4444, 1329, 4422, 4400, 4400, 4419, 4407, 7094,    0, 1373,
-     4398, 4393, 7094,    0, 4406, 1377, 1380, 4375, 4371, 4386,
-     4372, 4366, 4367, 7094,    0, 1383, 4348, 7094,    0, 4351,
-
-     1425, 4340, 4357, 4355, 4340, 7094,    0, 4327, 4326, 4340,
-     4326, 4323, 4308, 7094,    0, 4305, 4289, 4291, 4298, 4283,
-     7094,    0, 1428, 4287, 7094,    0, 4277, 4271, 4272, 4280,
-     4264, 4261, 7094,    0, 4265, 4267, 4286, 4295,  807, 4246,
-     7094, 1207,    0, 4229, 4229, 4269, 4268, 4224, 7094, 4231,
-     4213, 4213, 1431, 1434, 4218, 4203, 4205, 4201, 4215, 4194,
-     4202, 4187, 4187, 4178, 4170, 4186, 4165, 4167, 4164, 4155,
-     4154, 4145, 4145, 4157, 4143, 4135, 4141, 4122, 4139, 4128,
-     1437, 1489, 4127, 1494, 1497, 4108, 4137, 1551, 1556, 7094,
-     4106, 1559, 1514, 1562, 4097, 1565, 4108, 1619, 1627, 4090,
-
-     4091, 4097, 4083, 1622, 1630, 1677, 1583, 4079, 4065, 4067,
-     1682, 1695, 4068, 1685, 1740, 4058, 1691, 1642, 4059, 4062,
-     4056, 4037, 1745, 1748, 1751, 1710, 4035, 1755, 1808,  583,
-     1811, 1814, 1857, 1860, 1869, 4032, 4030, 4025, 4021, 1911,
-     1920, 1914, 1880, 1917, 1923, 4022, 1926, 1975, 4014, 3994,
-     3987, 1983, 1986, 3996, 1989, 1992, 3981, 3977, 2039, 2046,
-     3979, 1997, 3983, 2043, 2049, 2052, 2061, 2072, 2104, 2110,
-     3976, 3952, 3959, 3943, 2113, 2116, 3952, 3927, 2119, 2138,
-     3970, 7094, 7094,  315, 3922, 7094, 3934, 3933, 3878, 7094,
-     7094, 3872, 3870, 3879, 3868, 2141, 2149, 7094, 2168, 3865,
-
-     3859, 3871, 3849, 3854, 3849, 3830,  261, 3839, 3819, 1223,
-     3834, 3802, 3814, 3798, 3796, 3801, 3784, 1332, 3795,  384,
-     3777, 3784, 3774, 3788, 2144, 2172, 2177, 7094, 2182, 2209,
-     2216, 7094, 7094, 2229, 3810, 2232, 2235, 7094, 2240, 3756,
-     2268, 7094, 7094, 2243, 2276, 2287, 2290, 2293, 3767, 2301,
-     2308, 7094, 2311,  432, 3761, 2314, 3760, 2320, 2323, 7094,
-     2332, 2335, 7094, 7094, 3754, 3751, 3743, 2343, 2346, 7094,
-     2351, 3739, 2354, 2357, 7094, 2377, 3735, 2380, 7094, 7094,
-     3728, 3721, 3717, 3727, 2388, 2391, 7094, 2396, 2400, 7094,
-     7094, 3722, 2410, 2415, 7094, 2418, 3702, 3717, 2422, 7094,
-
-     7094, 2438, 7094, 7094, 2430, 2448, 3700, 3698, 3703, 3695,
-     2458, 2461, 7094, 2464, 2467, 7094, 7094, 2483, 2486, 7094,
-     2489, 3673, 2492, 7094, 7094, 3679, 3672, 3662, 2508, 2511,
-     7094, 2514, 3611, 2517, 2521, 2536, 2539, 3618, 3612, 2547,
-     2554, 7094, 2557, 3602, 2560, 2567, 3607, 2578, 2581, 2589,
-     2592, 7094, 2596, 2599, 7094, 7094, 2611, 2615, 7094, 2621,
-     3590, 2624, 3607, 3576, 2630, 2634, 7094, 2642, 3573, 3586,
-     2645, 2649, 7094, 2653,  726, 2656, 7094, 7094, 3618, 3616,
-     3569, 3560, 3587, 2664, 3545, 3528, 3544, 1386, 3520, 2152,
-     3533, 3532, 1460, 3512, 3519, 1463, 3518, 3502, 3518, 1523,
-
-     2678, 3504, 3511, 1526, 3497, 3496, 3494, 3478, 3491, 3490,
-     2668, 2686, 2694, 2700, 2704, 3489, 3504, 2713, 3479, 2718,
-     7094, 7094, 2727, 2732, 2745, 7094, 7094, 3473, 2740, 1650,
-     3457, 2753, 2760, 2771, 2774, 3446, 3466, 3439, 2777, 3457,
-     2780, 3458, 3452, 3436, 2783, 2789, 2801, 2807, 2811, 2814,
-     2821, 2833, 7094, 7094, 2825, 2843, 2847, 2850, 2853, 2856,
-     3442, 3447, 3431, 2876, 2879, 3430, 2885, 7094, 7094, 2894,
-     7094, 7094, 3418, 2903, 2906, 3419, 2921, 7094, 7094, 3412,
-     2929, 7094, 7094, 2937, 2940, 3420, 2910, 2943, 3401, 3418,
-     2951, 3402, 2959, 2962,  181, 3437, 2965, 7094, 3436, 7094,
-
-     7094, 3395, 3388,  518, 2970, 3395, 3393, 3394, 1705, 3391,
-     1769, 3387, 3375, 3365, 1774, 3370, 2973, 2977, 3375, 3365,
-     1777, 1829, 3354, 2984, 2994, 3347, 3000, 3358, 3003, 3009,
-     3020, 7094, 7094, 3030, 3034, 7094, 7094, 3351, 3362, 3049,
-     3328, 3052, 7094, 7094, 3325, 3064, 1832, 3325, 3068, 1059,
-     1113, 3045, 3076, 3084, 3087, 3090, 3094, 3098, 7094, 3108,
-     3112, 3337, 3333, 3317, 3117, 3122, 3135, 3138, 3328, 3146,
-     3149, 3153, 3161, 3167, 3170, 3180, 3185, 3188, 3198, 3203,
-     3206, 3209, 3212, 3328, 3307, 3321, 3216, 3224, 3321, 3234,
-     3237, 3241, 3322, 3244, 3247, 3265, 3268, 3273, 3310, 3276,
-
-     7094, 7094, 3313, 3302, 3288, 3306, 3293, 3296, 3311, 1422,
-      612,  568, 7094, 3279, 3317, 3320, 3323, 3326, 3282, 3275,
-     3282, 3267, 3252, 3249, 3246, 1875, 1945, 3250, 1948, 2010,
-     3258, 3242, 3248, 3330, 3341, 3345, 3224, 3348, 3229, 3233,
-     3233, 3351, 3226, 3243, 3355, 3204, 3207, 3358, 3361, 3236,
-     3222,  260, 3220, 3231, 3217,  421, 3207, 3384, 7094, 7094,
-     3392, 3395, 3400, 3414, 3417, 3420, 3428, 3435, 3446, 3180,
-     3169, 3172, 3449, 7094, 7094, 3458, 3188, 3186, 3149, 3466,
-     7094, 3469, 7094, 7094, 3477, 7094, 3481, 7094, 7094, 3489,
-     3496, 3507, 7094, 7094, 3515, 3518, 3526, 3529, 3533, 3547,
-
-     3550, 3134, 3553, 3151, 3556, 3160, 3158, 3131, 3571, 7094,
-     3574, 3577, 3585, 3116, 3597, 3592, 3612, 3603, 3606, 3621,
-     3120, 3120, 3121, 3625, 3109, 3628, 7094, 7094, 3640,  808,
-     1330,  747, 3104, 3644, 3647, 3655, 3662, 3669, 3096, 3673,
-     3676, 3680, 3087, 3086, 3683, 3689, 3070, 3692, 3074, 3695,
-     3698, 3701, 3704, 3707, 3065, 3712, 3070, 3715, 3068, 3074,
-     3718, 7094, 3046, 3061, 3721, 3726, 3730, 3071, 3065, 3044,
-     3047, 3035, 3041, 3035, 3024, 3026, 3018, 3740, 3744, 7094,
-     7094, 3752, 3755, 3764, 7094, 7094, 3772, 7094, 7094, 3780,
-     3001, 2995, 2985,  669,  743, 2986, 3783, 7094, 7094, 3792,
-
-     7094, 7094, 3800, 3803, 3811, 7094, 7094, 3819, 3822, 2988,
-     3825, 3828, 2988, 2970,  806,  857, 2972, 3843,  358,  361,
-     3851, 2962, 3854, 3857,  658,  785, 3865, 3869, 7094, 3873,
-     3876, 2968, 2960, 3883, 2950, 3894, 3888,  927, 1009, 3898,
-     3903, 7094, 7094, 3913, 3916, 3922, 3925, 3936, 3941, 3945,
-     3951, 3954, 3957, 2953, 2950, 3960, 3963, 3967, 2938, 3970,
-     2934, 3973, 2927, 7094, 3979, 2920, 3982, 7094, 3985, 7094,
-     7094, 2958, 2920, 2932, 2925, 2925, 2925, 2909, 2911, 2905,
-     2902, 3993, 3997, 7094, 7094, 4005, 2868, 2859, 2848, 2865,
-     2878, 2850, 2865, 2818, 4008, 7094, 7094, 4016, 4019, 7094,
-
-     4024, 4028, 7094, 7094, 2810, 2784, 2761, 2746, 2713, 2723,
-     2624,   81,  919,  466,  985, 4038, 4042, 4045,  474, 1048,
-      477, 1057, 4051, 4056, 4059, 4071, 4064,  527, 4082, 4085,
-     4088, 4091,  748,  840, 4095, 4101, 4113, 4119, 4122, 4125,
-     4131,  518,  548,  565,  624, 4134, 7094,  665, 4138, 4141,
-      706,  738,  786,  838,  838,  886,  894,  901,  915,  912,
-      931, 4156, 4162, 7094,  934,  971,  965, 1025, 7094, 1023,
-     7094, 4165, 4168, 7094, 4171, 4177,  998, 1005, 1019, 1080,
-     7094, 1115, 7094, 4189, 1109, 1100, 1117, 1135, 1140, 1165,
-     4192, 4195, 4203, 4213, 1166, 1160, 1173, 1175, 1165, 1178,
-
-     4216, 4219, 4222, 7094, 7094, 4234, 4238, 4247, 4252, 7094,
-     4255, 4258, 1293, 1347, 1384, 4271, 4278, 4289, 4292, 7094,
-     1169, 1287, 1284, 1293, 4295, 4298, 1366, 1470, 1285, 1316,
-     1325, 1349, 1371, 1391, 1368, 1378, 1397, 1423, 1437, 4307,
-     1381, 1403, 1403, 7094, 7094, 4313, 4316, 4327, 7094, 7094,
-     1402, 1410, 1430, 7094, 7094, 4335, 4338, 1457, 1463, 1468,
-     1468, 1469, 1474, 4346, 1548, 1549, 4354, 1477, 1480, 1485,
-     1519, 1518, 1534, 4357, 4360, 4364, 7094, 4369, 7094, 7094,
-     4378, 4383, 4391, 7094, 1573, 1552, 1559, 4396, 7094, 7094,
-     4404, 4410, 4422, 1525, 4425, 1540, 4428, 4431, 1579, 1598,
-
-     1590, 1606, 1577, 1611, 1601, 1607, 1615, 7094, 1631, 1642,
-     1641, 1650, 7094, 4439, 4442, 1646, 1659, 4446, 7094, 7094,
-     1661, 4454, 1670, 4460, 7094, 7094, 1699, 1710, 1730, 1724,
-     1726, 1741, 1747, 1779, 1771, 1782, 4468, 1772, 1783, 1795,
-     1785, 1788, 1799, 4472, 4475, 4493, 7094, 7094, 1916, 1833,
-     4481, 4501, 7094, 7094, 4478, 1765, 4509, 1801, 4512, 7094,
-     7094, 1845, 1834, 1852, 1841, 4522, 1848, 1868, 1901, 1910,
-     1899, 1917, 1932, 1931, 4525, 4528, 4531, 1919, 1995, 1921,
-     1952, 4540, 4546, 1935, 1980, 1989, 1999, 2009, 2018, 2033,
-     2062, 2032, 2062, 2035, 4554, 2047, 2053, 2048, 2069, 2083,
-
-     2076, 4558, 4561, 2108, 4564, 4567, 4587, 4595, 4598, 2091,
-     2104, 2097, 2107, 4606, 4609, 2105, 2105, 7094, 2107, 2109,
-     2130, 7094, 2132, 4617, 4620, 7094, 7094, 2111, 2117, 2123,
-     2131, 4628, 4632, 7094, 7094, 4640, 2157, 2149, 2162, 2164,
-     2156, 2169, 7094, 2189, 7094, 2194, 4646, 7094, 2179, 2172,
-     2190, 2191, 2187, 2198, 4649, 4652, 4660, 4667, 4671, 4680,
-     2204, 4685, 4688, 4708, 4747, 4791, 4698, 4716, 2202, 2223,
-     2215, 2232, 4720, 7094, 7094, 2243, 2218, 2222, 2248, 2232,
-     2234, 4737, 2217, 2227, 2218, 2217, 4741, 4728, 4759, 4767,
-     2257, 2259, 2281, 2272, 2275, 2292, 7094, 7094, 2281, 2283,
-
-     2313, 2294, 2304, 2321, 4777, 7094, 7094, 4785, 4811, 7094,
-     7094, 4803, 2345, 4821, 2356, 2355, 4857, 4901, 2318, 7094,
-     2328, 7094, 7094, 2345, 2361, 7094, 2359, 2361, 4829, 7094,
-     2322, 2307, 2336, 2337, 4834, 7094, 7094, 4842, 2410, 2418,
-     2382, 2390, 7094, 2392, 2396, 7094, 2404, 2417, 7094, 2418,
-     2420, 7094, 4851, 4869, 2423, 2452, 2454, 2430, 2488, 2437,
-     4877, 2438, 2440, 7094, 7094, 7094, 7094, 4880, 4892, 4921,
-     4924, 2457, 2453, 2461, 2470, 7094, 7094, 7094, 7094, 7094,
-     7094, 7094, 7094, 4927, 4932, 4935, 2494, 2481, 2495, 4945,
-     2499, 2498, 4950, 4883, 4954, 4958, 4968, 4972, 2460, 4980,
-
-     4987, 2487, 2510, 2494, 2513, 4998, 5001, 5004, 2517, 7094,
-     7094, 5007, 7094, 7094, 5019, 7094, 7094, 5027, 7094, 7094,
-     2494, 5035, 7094, 7094, 2510, 2510, 2516, 2516, 5045, 5048,
-     2546, 7094, 2517, 2538, 2549, 2548, 2560, 5051, 5054, 2569,
-     2538, 2570, 2585, 2575, 2595, 5057, 5075, 2601, 5078, 2603,
-     2624, 2613, 2633, 5081, 5084, 2665, 5087, 5110, 2657, 7094,
-     2655, 7094, 5118, 5121, 2666, 5139, 7094, 7094, 7094, 7094,
-     5147, 5150, 5153, 5156, 5159, 5168, 5182, 5187, 2655, 2663,
-     5194, 5201, 2658, 2691, 5205, 5208, 2680, 2738, 5212, 5226,
-     2673, 2719, 5231, 5237, 5253, 5256, 2703, 2739, 5264, 7094,
-
-     7094, 5273, 7094, 7094, 2778, 2787, 2747, 2750, 2850, 2852,
-     2799, 2818, 2689, 2748, 2855, 2866, 2800, 2881, 5281, 5284,
-     7094, 7094, 5304, 5313, 5322, 5331, 5340, 5349, 5358, 5367,
-     5376, 5385, 5394, 5403, 5412, 5421, 5430, 5439, 5448, 5457,
-     5466, 5475, 5484, 5493, 5502, 5511, 5520, 5529, 5538, 5547,
-     5556, 5565, 5574, 5583, 5592, 5601, 5610, 5619, 5628, 5637,
-     5646, 5653, 5660, 5667, 5674, 5681, 5688, 5695, 5702, 5709,
-     5716, 5723, 5730, 5737, 5744, 5751, 5758, 5765, 5774, 5779,
-     5784, 5789, 5794, 5799, 5804, 5809, 5814, 5819, 5826, 5831,
-     5838, 5843, 5850, 5855, 5862, 5867, 5874, 5879, 5886, 5891,
-
-     5898, 5903, 5910, 5915, 5924, 5930, 5937, 5945, 5952, 5960,
-     5967, 5975, 5982, 5990, 5997, 6005, 6012, 6020, 6027, 6035,
-     6042, 6050, 6057, 6065, 6072, 6080, 6088, 6095, 6103, 6110,
-     6118, 6125, 6133, 6141, 6148, 6156, 6163, 6171, 6180, 6186,
-     6193, 6201, 6209, 6217, 6225, 6233, 6240, 6248, 6255, 6263,
-     6270, 6278, 6285, 6293, 6300, 6308, 6315, 6323, 6330, 6338,
-     6346, 6353, 6361, 6368, 6376, 6383, 6391, 6399, 6406, 6414,
-     6421, 6429, 6438, 6447, 6454, 6462, 6470, 6477, 6485, 6492,
-     6500, 6507, 6515, 6522, 6530, 6537, 6545, 6552, 6560, 6568,
-     6576, 6584, 6592, 6600, 6607, 6615, 6622, 6630, 6637, 6645,
-
-     6653, 6660, 6668, 6676, 6684, 6693, 6702, 6709, 6717, 6725,
-     6732, 6740, 6747, 6755, 6762, 6770, 6778, 6786, 6794, 6801,
-     6809, 6817, 6825, 6833, 6841, 6848, 6856, 6864, 6872, 6880,
-     6888, 6896, 6903, 6911, 6919, 6928, 6937, 6945, 6953, 6961,
-     6968, 6976, 6983, 6991, 6999, 7007, 7015, 7023, 7030, 7039,
-     7048, 7057, 7066, 7075, 7084
-    } ;
-
-static yyconst flex_int16_t yy_def[2256] =
-    {   0,
-     2023, 2023, 2024, 2024, 2024, 2024, 2025, 2025, 2026, 2026,
-     2027, 2027, 2028, 2028, 2028, 2028, 2029, 2029, 2023, 2023,
-     2030, 2030, 2031, 2031, 2031, 2031, 2023, 2023, 2031, 2031,
-     2023, 2023, 2031, 2031, 2031, 2031, 2032, 2032, 2033, 2033,
-     2034, 2034, 2028, 2028, 2035, 2035, 2036, 2036, 2023, 2023,
-     2036, 2036, 2036, 2036, 2037, 2037, 2038, 2038, 2039, 2039,
-     2040, 2040, 2041, 2041, 2023, 2023, 2023, 2023, 2042, 2042,
-     2043, 2043, 2044, 2044, 2023, 2023, 2044, 2044, 2044, 2044,
-     2045, 2045, 2046, 2046, 2022,   85, 2047, 2047, 2048, 2048,
-     2049, 2049, 2050, 2050, 2051, 2051, 2023, 2023, 2051, 2051,
-
-     2051, 2051, 2052, 2052, 2023, 2023, 2023, 2023, 2053, 2053,
-     2053, 2053, 2054, 2054, 2055, 2055, 2023, 2023, 2055, 2055,
-     2055, 2055, 2056, 2056, 2057, 2057, 2058, 2058, 2059, 2059,
-     2023, 2023, 2059, 2059, 2059, 2059, 2060, 2060, 2061, 2061,
-     2023, 2023, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2062, 2022, 2022, 2062, 2062, 2022, 2022,
-     2022, 2022,  181,  182,  182, 2022, 2022, 2022, 2063, 2022,
-     2022, 2063, 2022, 2022, 2022, 2022, 2022, 2022, 2064, 2022,
-
-     2022, 2064, 2064, 2064, 2022, 2022, 2022, 2022, 2022, 2065,
-     2022, 2022, 2065, 2065, 2065, 2065, 2022, 2022,  185,  185,
-      185, 2022, 2022, 2022, 2066, 2022, 2022, 2066, 2066, 2066,
-     2022, 2022, 2022, 2022, 2022, 2022, 2067, 2022, 2022, 2067,
-     2067, 2067, 2067, 2022, 2022, 2022, 2022, 2022, 2022, 2068,
-     2022, 2022, 2068,  185,  254, 2022, 2022,  185, 2022, 2022,
-     2022, 2069, 2022, 2022, 2069, 2069, 2069, 2069, 2069, 2022,
-     2022,  185,  185, 2022, 2022, 2022, 2070, 2022, 2022, 2070,
-     2070, 2022, 2022, 2022, 2022, 2022, 2022, 2071, 2022, 2022,
-     2071, 2071, 2071, 2071, 2071, 2071, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2072, 2022, 2022, 2072, 2022, 2022, 2022, 2022,
-     2022, 2022, 2073, 2022, 2022, 2073, 2073, 2073, 2073, 2022,
-     2022,  185,  185, 2022, 2022, 2022, 2074, 2022, 2022, 2074,
-     2074, 2074,  185, 2022, 2022,  185,  185, 2022, 2022, 2022,
-     2075, 2022, 2022, 2075, 2075, 2075, 2075, 2022, 2022,  185,
-      185, 2022, 2022, 2022, 2076, 2022, 2022, 2076, 2022, 2022,
-     2022, 2022, 2022, 2022, 2077, 2022, 2022, 2077, 2077, 2077,
-     2077, 2022, 2022,  185,  374,  185, 2022, 2022, 2022, 2078,
-     2022, 2022, 2078, 2022, 2022, 2022, 2022, 2079, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2022, 2062, 2062, 2062, 2080, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2063, 2063, 2081, 2022, 2064, 2064, 2064, 2064, 2022, 2082,
-     2022, 2022, 2065, 2065, 2065, 2065, 2065, 2065, 2065, 2083,
-     2022, 2022, 2066, 2066, 2066, 2066, 2084, 2022, 2067, 2067,
-     2067, 2067, 2067, 2085, 2022, 2068, 2068, 2086, 2022, 2069,
-     2069, 2069, 2069, 2069, 2069, 2069, 2087, 2022, 2070, 2070,
-     2070, 2088, 2022, 2089, 2089, 2089, 2089, 2089, 2089, 2089,
-     2089, 2089, 2090, 2022, 2091, 2091, 2092, 2022, 2093, 2093,
-
-     2093, 2093, 2093, 2093, 2094, 2022, 2095, 2095, 2095, 2095,
-     2095, 2022, 2096, 2022, 2097, 2097, 2097, 2097, 2097, 2098,
-     2022, 2099, 2099, 2100, 2022, 2101, 2101, 2101, 2101, 2101,
-     2102, 2022, 2022, 2103, 2103, 2104, 2105, 2022, 2105, 2022,
-     2022, 2022, 2106, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2107, 2107, 2108, 2108, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2109,
-     2110, 2110, 2111, 2022, 2022, 2111, 2022, 2112, 2112, 2022,
-     2113, 2022, 2022, 2113, 2113, 2113, 2113, 2114, 2114, 2022,
-
-     2115, 2115, 2115, 2116, 2116, 2022, 2022, 2117, 2117, 2117,
-     2118, 2118, 2119, 2120, 2120, 2121, 2022, 2022, 2121, 2121,
-     2121, 2121, 2122, 2122, 2022, 2022, 2123, 2124, 2124, 2125,
-     2022, 2022, 2022, 2022, 2125, 2125, 2125, 2125, 2125, 2126,
-     2126, 2022, 2022, 2127, 2127, 2128, 2022, 2022, 2128, 2128,
-     2128, 2129, 2129, 2130, 2130, 2130, 2130, 2022, 2131, 2131,
-     2132, 2132, 2132, 2132, 2133, 2133, 2022, 2022, 2134, 2134,
-     2135, 2135, 2135, 2135, 2136, 2136, 2022, 2137, 2138, 2138,
-     2139, 2022, 2022, 2139, 2022, 2022, 2140, 2022, 2022, 2022,
-     2022, 2022, 2022, 2141, 2141, 2022, 2142, 2022, 2142, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2143, 2022, 2144, 2022, 2144, 2145,
-     2022, 2022, 2022, 2145, 2022, 2022, 2146, 2022, 2146, 2147,
-     2022, 2022, 2022, 2022, 2022, 2147, 2022, 2022, 2147, 2022,
-     2148, 2022, 2148, 2022, 2149, 2149, 2149, 2022, 2150, 2022,
-     2150, 2022, 2022, 2022, 2151, 2151, 2151, 2022, 2152, 2022,
-     2152, 2153, 2022, 2154, 2022, 2154, 2155, 2022, 2022, 2022,
-     2155, 2155, 2155, 2155, 2022, 2156, 2022, 2156, 2022, 2022,
-     2022, 2157, 2022, 2158, 2022, 2158, 2159, 2159, 2022, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2022, 2159, 2159, 2159, 2159,
-     2022, 2160, 2022, 2160, 2022, 2022, 2022, 2022, 2161, 2022,
-     2161, 2162, 2022, 2022, 2022, 2162, 2162, 2162, 2022, 2163,
-     2022, 2163, 2164, 2022, 2022, 2022, 2022, 2164, 2022, 2022,
-     2165, 2022, 2165, 2166, 2022, 2022, 2166, 2022, 2022, 2022,
-     2167, 2022, 2167, 2022, 2022, 2022, 2022, 2168, 2022, 2168,
-     2169, 2169, 2169, 2169, 2022, 2170, 2022, 2170, 2022, 2171,
-     2022, 2172, 2022, 2172, 2173, 2174, 2022, 2022, 2022, 2022,
-     2022, 2175, 2175, 2176, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2177, 2022, 2022, 2178, 2022, 2179, 2180, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2180, 2181, 2022,
-     2182, 2022, 2022, 2182, 2183, 2184, 2184, 2184, 2185, 2186,
-     2187, 2188, 2188, 2188, 2188, 2188, 2189, 2190, 2191, 2192,
-     2192, 2022, 2022, 2022, 2192, 2192, 2192, 2192, 2193, 2194,
-     2195, 2195, 2195, 2195, 2196, 2197, 2022, 2022, 2022, 2022,
-     2022, 2022, 2197, 2022, 2198, 2199, 2022, 2022, 2022, 2199,
-     2022, 2022, 2022, 2200, 2201, 2202, 2022, 2022, 2202, 2202,
-     2203, 2022, 2204, 2205, 2206, 2207, 2207, 2022, 2207, 2022,
-
-     2022, 2022, 2208, 2208, 2209, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2210, 2022, 2022, 2022, 2211, 2022, 2212,
-     2213, 2022, 2022, 2022, 2213, 2214, 2022, 2215, 2022, 2022,
-     2022, 2022, 2022, 2216, 2217, 2217, 2217, 2022, 2022, 2218,
-     2219, 2220, 2220, 2220, 2022, 2022, 2022, 2022, 2220, 2221,
-     2022, 2022, 2222, 2022, 2022, 2223, 2022, 2022, 2223, 2223,
-     2223, 2224, 2225, 2226, 2226, 2226, 2022, 2022, 2226, 2227,
-     2228, 2228, 2022, 2229, 2230, 2230, 2231, 2232, 2233, 2022,
-
-     2022, 2022, 2233, 2233, 2234, 2022, 2022, 2022, 2235, 2236,
-     2237, 2237, 2022, 2022, 2238, 2238, 2238, 2239, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2240, 2241, 2022, 2242, 2243, 2243, 2244, 2245, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2246, 2022, 2022, 2247, 2022, 2022, 2022, 2022, 2248, 2249,
-     2249, 2249, 2022, 2022, 2022, 2022, 2022, 2022, 2249, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2223, 2022, 2022, 2224,
-
-     2225, 2226, 2226, 2226, 2022, 2022, 2022, 2226, 2022, 2022,
-     2022, 2022, 2228, 2022, 2229, 2022, 2022, 2230, 2231, 2232,
-     2233, 2233, 2233, 2234, 2022, 2022, 2022, 2022, 2235, 2236,
-     2237, 2237, 2022, 2022, 2022, 2238, 2238, 2239, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2240, 2241, 2022,
-     2022, 2022, 2243, 2243, 2244, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2246, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2248,
-     2249, 2249, 2249, 2022, 2022, 2249, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2224, 2225, 2226,
-     2022, 2022, 2226, 2226, 2022, 2022, 2226, 2022, 2022, 2022,
-     2228, 2022, 2229, 2022, 2022, 2022, 2230, 2022, 2022, 2232,
-     2233, 2233, 2233, 2234, 2022, 2235, 2236, 2237, 2237, 2022,
-     2022, 2022, 2022, 2238, 2238, 2239, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2240, 2241, 2022, 2243, 2243, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2246, 2022, 2022, 2022, 2248, 2249, 2249, 2249, 2022,
-     2022, 2022, 2022, 2249, 2022, 2022, 2022, 2224, 2022, 2022,
-
-     2226, 2022, 2022, 2022, 2226, 2226, 2022, 2022, 2022, 2022,
-     2226, 2022, 2022, 2022, 2022, 2228, 2022, 2229, 2022, 2022,
-     2022, 2022, 2230, 2232, 2022, 2022, 2233, 2233, 2234, 2022,
-     2235, 2236, 2237, 2237, 2022, 2238, 2238, 2239, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2241, 2022, 2022,
-     2243, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2246, 2022, 2022, 2249, 2249, 2249, 2022, 2022, 2022,
-     2022, 2249, 2022, 2022, 2022, 2022, 2226, 2226, 2226, 2022,
-     2022, 2022, 2022, 2226, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2229, 2022, 2022, 2022, 2022, 2022, 2022,
-
-     2230, 2232, 2022, 2022, 2022, 2022, 2022, 2233, 2022, 2022,
-     2022, 2235, 2236, 2237, 2237, 2022, 2022, 2238, 2022, 2022,
-     2022, 2022, 2022, 2022, 2241, 2022, 2022, 2022, 2243, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2246,
-     2249, 2249, 2249, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2226, 2226, 2226, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2229, 2022, 2022, 2022,
-     2022, 2022, 2022, 2230, 2230, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2236, 2237, 2237, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2243, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2246, 2249, 2249, 2249, 2022, 2022, 2022,
-     2226, 2226, 2226, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2229, 2022, 2022, 2022,
-     2022, 2022, 2022, 2230, 2230, 2022, 2022, 2022, 2236, 2237,
-     2237, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2243, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2246, 2022, 2022, 2249, 2249, 2249,
-     2226, 2022, 2022, 2226, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2229, 2022, 2022, 2022, 2022, 2022,
-
-     2022, 2230, 2230, 2236, 2237, 2237, 2237, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2246, 2022, 2022, 2022, 2249, 2249, 2249,
-     2249, 2226, 2022, 2022, 2022, 2226, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2230, 2022, 2022, 2230,
-     2236, 2237, 2237, 2237, 2250, 2251, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2246, 2249, 2249, 2249, 2249, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2230, 2022, 2022,
-     2022, 2230, 2236, 2237, 2252, 2253, 2250, 2251, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2249, 2249, 2249, 2249, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2230, 2230, 2236, 2252, 2237, 2254, 2253, 2255,
-     2237, 2022, 2022, 2022, 2022, 2022, 2022, 2249, 2249, 2249,
-     2249, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2230, 2230, 2236, 2254, 2022, 2255, 2237,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2249, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2230, 2230, 2236, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2249, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2230, 2230,
-     2236, 2022, 2249, 2022, 2022, 2022, 2022, 2230, 2230, 2236,
-     2249, 2022, 2022, 2022, 2022, 2230, 2230, 2236, 2249, 2022,
-     2022, 2022, 2022, 2230, 2230, 2236, 2022, 2022, 2022, 2022,
-     2022, 2022, 2230, 2230, 2236, 2022, 2022, 2022, 2022, 2022,
-     2230, 2230, 2236, 2230, 2230, 2236, 2230, 2230, 2236, 2236,
-     2230, 2230, 2236, 2236, 2230, 2230, 2236, 2236, 2230, 2230,
-     2236, 2236, 2022, 2022, 2022, 2022, 2236, 2236, 2022, 2022,
-
-     2022, 2022, 2022, 2022, 2236, 2236, 2236, 2236, 2236, 2236,
-     2236, 2236, 2236, 2236, 2236, 2236, 2236, 2236, 2236, 2236,
-     2022,    0, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022
-    } ;
-
-static yyconst flex_int16_t yy_nxt[7164] =
-    {   0,
-     2022,  146,  147,  146,  146,  147,  146,  146,  147,  146,
-      146,  147,  146,  151,  147,  151,  157,  148,  154,  157,
-      148,  154,  450,  149, 2022,  155,  149, 2022,  155,  152,
-      151,  147,  151,  388,  158,  160,  161,  158,  160,  161,
-      162,  163, 2022,  162,  163,  388,  152,  167,  168,  389,
-      164,  160,  161,  164,  165,  391,  162,  160,  161,  561,
-      165,  390,  162,  167,  168,  562,  164,  147,  147,  147,
-      451,  390,  164,  147,  147,  147,  180,  147,  180,  180,
-      147,  180,  472,  170,  180,  147,  180,  510,  169,  170,
-      451,  473,  181,  561,  511,  181,  387,  387,  387,  575,
-
-      182,  387,  387,  387,  169,  171,  172,  147,  172,  171,
-      171,  171,  171,  171,  171,  171,  173,  171,  171,  171,
-     1485,  171,  175,  171,  176,  171,  180,  147,  180,  147,
-      147,  147,  503,  147,  147,  147,  180,  147,  180,  180,
-      147,  180,  182,  504,  561,  183,  391,  171,  171,  183,
-      600,  489,  181,  391,  490,  181,  387,  387,  387,  387,
-      387,  387,  390,  387,  387,  387,  387,  387,  387,  390,
-      177, 2022,  178,  171,  172,  147,  172,  171,  171,  171,
-      171,  171,  171,  171,  173,  171,  171,  171,  477,  171,
-      175,  171,  176,  171,  147,  147,  147,  147,  147,  147,
-
-      682,  180,  147,  180,  180,  147,  180,  180,  147,  180,
-      184,  563,  391,  184,  391,  171,  171,  182,  391,  425,
-      182,  426, 1110,  185,  564,  180,  147,  180,  390,  427,
-      390,  387,  387,  387,  390,  425,  451,  428,  177,  429,
-      178,  185,  186,  187,  147,  187,  186,  186,  186,  186,
-      186,  186,  186,  188,  186,  186,  186,  485,  186,  190,
-      186,  191,  186,  194,  147,  194,  194,  147,  194,  402,
-      218,  147,  218,  160,  161,  160,  161,  486,  162,  195,
-      162, 1270,  195,  446,  186,  186,  219,  447,  205, 1271,
-      205,  448,  192,  186,  187,  147,  187,  186,  186,  186,
-
-      186,  186,  186,  186,  188,  186,  186,  186,  892,  186,
-      190,  186,  191,  186,  206, 2022,  206,  218,  147,  218,
-      893,  147,  147,  147,  147,  147,  147,  387,  387,  387,
-      387,  387,  387,  219,  682,  186,  186,  220,  875,  544,
-      220,  513,  545,  192,  196,  197,  147,  197,  196,  196,
-      196,  196,  196,  196,  196,  198,  196,  196,  196,  512,
-      196,  200,  196,  201,  196,  218,  147,  218,  218,  147,
-      218,  505,  218,  147,  218,  218,  147,  218,  387,  387,
-      387,  219,  391,  439,  219,  512,  196,  196,  221,  433,
-      440,  221, 1412, 1413,  202, 1414, 1415,  203,  390,  390,
-
-      387,  387,  387,  204,  196,  197,  147,  197,  196,  196,
-      196,  196,  196,  196,  196,  198,  196,  196,  196,  451,
-      196,  200,  196,  201,  196,  232,  147,  232,  232,  147,
-      232,  906,  245,  147,  245,  245,  147,  245,  538,  391,
-      391,  233, 1275,  893,  233,  391,  196,  196,  246,  571,
-     1276,  246,  457,  539,  202,  390,  390,  203,  387,  387,
-      387,  390,  572,  204,  207,  208,  147,  208,  207,  207,
-      207,  207,  207,  207,  207,  209,  207,  207,  207,  906,
-      207,  211,  207,  212,  207,  147,  147,  147,  147,  147,
-      147,  930,  147,  147,  147,  147,  147,  147,  257,  147,
-
-      257,  254,  391,  391,  254, 1488,  207,  207,  255,  464,
-      520,  255,  563, 1495,  258,  213, 1498,  214,  390,  390,
-      215,  387,  387,  387, 2022,  576,  216,  207,  208,  147,
-      208,  207,  207,  207,  207,  207,  207,  207,  209,  207,
-      207,  207,  538,  207,  211,  207,  212,  207,  257,  147,
-      257,  271,  147,  271,  512,  271,  147,  271,  147,  147,
-      147,  147,  147,  147,  258,  411,  391,  272,  413,  207,
-      207,  272,  391, 1116,  220,  587, 1508,  220,  213, 1117,
-      214, 1521,  390,  215,  387,  387,  387,  998,  390,  216,
-      222,  223,  147,  223,  222,  222,  222,  222,  222,  222,
-
-      222,  224,  222,  222,  222, 1522,  222,  226,  222,  227,
-      222,  271,  147,  271,  271,  147,  271, 1232,  271,  147,
-      271,  271,  147,  271,  283,  147,  283,  272, 1523,  797,
-      272,  998,  222,  222,  273,  391,  391,  273,  798,  228,
-      284,  387,  387,  387,  229,  387,  387,  387,  387,  387,
-      387,  390,  390,  230,  222,  223,  147,  223,  222,  222,
-      222,  222,  222,  222,  222,  224,  222,  222,  222, 1231,
-      222,  226,  222,  227,  222,  283,  147,  283,  298,  147,
-      298, 1524,  298,  147,  298,  308,  147,  308,  308,  147,
-      308,  284, 1419, 1420,  299, 1390,  222,  222,  299,  391,
-
-      391,  309, 1391,  228,  309,  387,  387,  387,  229,  387,
-      387,  387,  387,  387,  387,  390,  390,  230,  234,  235,
-      147,  235,  234,  234,  234,  234,  234,  234,  234,  236,
-      234,  234,  234, 1525,  234,  238,  234,  239,  234,  321,
-      147,  321,  321,  147,  321,  682,  147,  147,  147,  147,
-      147,  147,  321,  147,  321,  322,  391,  571,  322, 1529,
-      234,  234,  220,  482,  995,  220,  998,  998,  322, 1392,
-      578,  240,  390,  387,  387,  387, 1393,  241, 1530,  242,
-      243,  234,  235,  147,  235,  234,  234,  234,  234,  234,
-      234,  234,  236,  234,  234,  234, 1514,  234,  238,  234,
-
-      239,  234,  321,  147,  321,  321,  147,  321, 1339,  321,
-      147,  321,  147,  147,  147,  147,  147,  147,  322, 1421,
-     1422,  323,  391,  234,  234,  323,  682,  682,  333,  493,
-     1531,  333, 1407, 1337,  240,  387,  387,  387,  390, 1408,
-      241,  684,  242,  243,  247,  248,  147,  248,  247,  247,
-      247,  247,  247,  247,  247,  249,  247,  247,  247,  998,
-      247,  251,  247,  252,  247,  147,  147,  147,  147,  147,
-      147, 1532,  335,  147,  335,  335,  147,  335,  335,  147,
-      335,  333, 1533, 1409,  333,  391,  247,  247,  336,  391,
-     1410,  336,  497, 1515,  337,  387,  387,  387,  387,  387,
-
-      387,  390,  387,  387,  387,  390,  253,  247,  248,  147,
-      248,  247,  247,  247,  247,  247,  247,  247,  249,  247,
-      247,  247, 1534,  247,  251,  247,  252,  247,  335,  147,
-      335,  349,  147,  349, 1535,  349,  147,  349,  147,  147,
-      147,  147,  147,  147,  337, 1536,  998,  350, 1537,  247,
-      247,  350,  391, 1486,  333, 1487, 1538,  333,  387,  387,
-      387,  387,  387,  387,  387,  387,  387, 1539,  390,  253,
-      259,  260,  147,  260,  259,  259,  259,  259,  259,  259,
-      259,  261,  259,  259,  259, 1433,  259,  263,  259,  264,
-      259,  349,  147,  349,  349,  147,  349, 1541,  349,  147,
-
-      349,  349,  147,  349,  360,  147,  360,  350,  391,  391,
-      350,  391,  259,  259,  351,  265,  524,  351, 1542, 1489,
-      361, 1490, 1543,  266,  390,  390,  267,  390,  998,  268,
-     1544, 1545,  269,  259,  260,  147,  260,  259,  259,  259,
-      259,  259,  259,  259,  261,  259,  259,  259, 1551,  259,
-      263,  259,  264,  259,  360,  147,  360,  373,  147,  373,
-     1552,  373,  147,  373,  147,  147,  147,  147,  147,  147,
-      361, 1434,  391,  374, 1553,  259,  259,  374,  265,  536,
-      375, 1150, 1496,  375, 1497, 1554,  266, 1151,  390,  267,
-     1152, 1499,  268, 1500, 1153,  269,  274,  275,  147,  275,
-
-      274,  274,  274,  274,  274,  274,  274,  276,  274,  274,
-      274,  531,  274,  278,  274,  279,  274,  373,  147,  373,
-      373,  147,  373, 1555,  373,  147,  373,  373,  147,  373,
-      385,  147,  385,  374, 1558, 1154,  374, 1559,  274,  274,
-      376, 1155, 1560,  376, 1156,  532,  386,  396, 1157,  280,
-      387,  387,  387,  387,  387,  387,  387,  387,  387,  451,
-     1561,  281,  274,  275,  147,  275,  274,  274,  274,  274,
-      274,  274,  274,  276,  274,  274,  274, 1562,  274,  278,
-      274,  279,  274,  385,  147,  385,  397,  387,  387,  387,
-     1563, 1568,  398,  387,  387,  387,  399, 1569, 1570,  386,
-
-     1571,  400, 1572, 1573,  274,  274,  387,  387,  387,  387,
-      387,  387,  387,  387,  387,  280,  387,  387,  387,  542,
-      542,  542, 1593,  686,  896,  896,  896,  281,  285,  286,
-      147,  286,  285,  285,  285,  285,  285,  285,  285,  287,
-      285,  285,  285,  288,  285,  289,  285,  290,  285,  288,
-      288,  288,  288,  288,  288,  288,  288,  288,  288,  288,
-      288,  288,  288,  288,  288,  288,  288,  288,  288,  288,
-      285,  285,  288,  288,  291,  288,  288,  288,  288,  288,
-      288,  292,  288,  293,  288,  288,  288,  294,  288,  295,
-      296,  288,  288,  288,  288,  288,  288,  300,  301,  147,
-
-      301,  300,  300,  300,  300,  300,  300,  300,  302,  300,
-      300,  300,  682,  300,  304,  300,  305,  300,  542,  542,
-      542,  584,  584,  584,  592,  592,  592,  606,  606,  606,
-      617,  617,  617,  904,  904,  904, 1594, 1595,  585,  300,
-      300,  593, 1596, 1603,  607, 1604, 1605,  618, 1585,  998,
-      306,  300,  301,  147,  301,  300,  300,  300,  300,  300,
-      300,  300,  302,  300,  300,  300,  998,  300,  304,  300,
-      305,  300, 1606,  543,  625,  625,  625, 1338,  631,  631,
-      631,  633,  633,  633,  642,  642,  642, 1009, 1009, 1009,
-     1599,  626, 1607,  300,  300,  632, 1608, 1609,  634, 1610,
-
-     1586,  643, 1600,  998,  306,  310,  311,  147,  311,  310,
-      310,  310,  310,  310,  310,  310,  312,  310,  310,  310,
-     1611,  310,  314,  310,  315,  310,  647,  647,  647,  667,
-      667,  667,  696,  696,  696,  696,  696,  696,  726,  726,
-      726,  682, 1587,  648, 1612, 1613,  668,  310,  310, 1615,
-      698,  316, 1616,  698, 1617, 1621,  728, 1230,  317, 1622,
-      318, 1015, 1015, 1015,  896,  896,  896,  319,  310,  311,
-      147,  311,  310,  310,  310,  310,  310,  310,  310,  312,
-      310,  310,  310, 1623,  310,  314,  310,  315,  310,  699,
-      726,  726,  726, 1627, 1601,  584,  584,  584,  731,  731,
-
-      731, 1628,  732, 1629, 1630,  733, 1602, 1631,  728, 1632,
-      310,  310,  585, 1638,  316,  741,  741,  741, 1639,  742,
-     1640,  317,  743,  318, 1021, 1021, 1021,  904,  904,  904,
-      319,  324,  325,  147,  325,  324,  324,  324,  324,  324,
-      324,  324,  326,  324,  324,  324,  729,  324,  328,  324,
-      329,  324,  736,  736,  736, 1641, 1642,  736,  736,  736,
-      592,  592,  592,  744,  744,  744,  747,  747,  747, 1643,
-      738,  998, 1656,  324,  324,  738,  330,  593,  998,  331,
-      745, 1633, 1635,  748,  762,  762,  762, 1658,  763, 1634,
-     1636,  764,  682,  332,  324,  325,  147,  325,  324,  324,
-
-      324,  324,  324,  324,  324,  326,  324,  324,  324, 1650,
-      324,  328,  324,  329,  324, 1662, 1651,  739, 1649, 1663,
-      750,  750,  750,  758,  758,  758, 1664, 1665,  750,  750,
-      750,  758,  758,  758, 1666, 1667,  324,  324,  752,  330,
-     1668,  760,  331,  778,  778,  778,  752,  779, 1669,  760,
-      780, 1047, 1047, 1047, 1670, 1671,  332,  338,  339,  147,
-      339,  338,  338,  338,  338,  338,  338,  338,  340,  338,
-      338,  338,  753,  338,  342,  338,  343,  338,  606,  606,
-      606, 1672, 1673,  768,  768,  768,  773,  773,  773, 1674,
-     1679,  761,  617,  617,  617,  607,  768,  768,  768,  338,
-
-      338,  770,  344, 1680,  775,  345, 1009, 1009, 1009,  618,
-      346,  789,  789,  789,  770,  790, 1681, 1684,  791,  347,
-      338,  339,  147,  339,  338,  338,  338,  338,  338,  338,
-      338,  340,  338,  338,  338, 1685,  338,  342,  338,  343,
-      338,  773,  773,  773,  771, 1686,  785,  785,  785,  785,
-      785,  785,  625,  625,  625, 1687,  793,  793,  793,  775,
-     1688, 1689,  338,  338,  787,  344, 1690,  787,  345,  626,
-     1011, 1011, 1011,  346,  795, 1015, 1015, 1015, 1021, 1021,
-     1021, 1691,  347,  352,  353,  147,  353,  352,  352,  352,
-      352,  352,  352,  352,  354,  352,  352,  352,  776,  352,
-
-      356,  352,  357,  352, 1692, 1693,  788, 1694, 1696,  793,
-      793,  793,  631,  631,  631,  799,  799,  799, 1697,  800,
-     1698, 1699,  801, 1700, 1701,  352,  352,  795, 1708,  632,
-     1022, 1022, 1022, 1047, 1047, 1047,  358,  352,  353,  147,
-      353,  352,  352,  352,  352,  352,  352,  352,  354,  352,
-      352,  352,  998,  352,  356,  352,  357,  352,  633,  633,
-      633,  802,  802,  802, 1709,  803, 1710, 1711,  804,  796,
-      805,  805,  805, 1712, 1713,  634, 1246, 1246, 1246,  352,
-      352,  815,  815,  815, 1705,  816, 1716,  806,  817, 1717,
-      358,  362,  363,  147,  363,  362,  362,  362,  362,  362,
-
-      362,  362,  364,  362,  362,  362, 1718,  362,  366,  362,
-      367,  362,  811,  811,  811,  642,  642,  642,  818,  818,
-      818,  811,  811,  811,  818,  818,  818,  647,  647,  647,
-      813, 1719,  643,  362,  362,  682,  820, 1720, 1721,  813,
-     1722,  368,  820,  369,  648,  370, 1127, 1127, 1127, 1248,
-     1248, 1248, 1723,  371,  362,  363,  147,  363,  362,  362,
-      362,  362,  362,  362,  362,  364,  362,  362,  362, 1728,
-      362,  366,  362,  367,  362,  814,  823,  823,  823, 1704,
-      824,  821, 1731,  825,  829,  829,  829,  829,  829,  829,
-      834,  834,  834,  836,  836,  836,  362,  362,  845,  845,
-
-      845, 1732,  831, 1736,  368,  831,  369,  835,  370, 1737,
-      837, 1130, 1130, 1130, 1738,  846,  371,  377,  378,  147,
-      378,  377,  377,  377,  377,  377,  377,  377,  379,  377,
-      377,  377, 1739,  377,  381,  377,  382,  377, 1740,  832,
-      840,  840,  840, 1741,  848,  848,  848,  840,  840,  840,
-      850,  850,  850,  850,  850,  850, 1729, 1730,  842,  377,
-      377,  849,  667,  667,  667,  842, 1742, 1743,  852, 1744,
-     1745,  852, 1746,  854,  854,  854, 1749,  855, 1750,  668,
-      856, 1751,  383,  377,  378,  147,  378,  377,  377,  377,
-      377,  377,  377,  377,  379,  377,  377,  377, 1752,  377,
-
-      381,  377,  382,  377,  843,  857,  857,  857, 1753, 1754,
-      853,  857,  857,  857,  865,  865,  865,  865,  865,  865,
-      871,  871,  871,  859, 1769,  377,  377,  682, 1770,  859,
-     1771, 1772,  867, 1776, 1777,  867, 1778, 1779,  873,  871,
-      871,  871,  696,  696,  696,  911,  911,  911,  383,  391,
-      696,  696,  696, 1011, 1011, 1011,  407,  873, 1761, 1780,
-      698, 1781,  912,  860, 1783,  390, 1784, 1012,  698,  696,
-      696,  696, 1785,  726,  726,  726, 1786,  868,  726,  726,
-      726, 1791, 1792,  726,  726,  726, 1793,  698, 1794, 1795,
-      408,  728,  409, 1796, 1797,  410,  728,  411,  412,  874,
-
-      413,  728, 1798, 1799,  414, 1800,  415,  416,  417,  391,
-      914,  914,  914,  884, 1801, 1802,  407,  731,  731,  731,
-     1803,  732, 1804,  682,  733,  390, 1819,  915, 1820,  913,
-     2022, 2022, 2022,  736,  736,  736,  736,  736,  736, 1821,
-     1822,  736,  736,  736,  744,  744,  744, 2022, 1823, 1824,
-      408,  738,  418, 1825,  738,  419, 1826,  420,  412,  738,
-      421,  745, 1813, 1827,  414, 1828,  422,  423,  424,  741,
-      741,  741, 1831,  742, 1832, 1833,  743,  920,  920,  920,
-     1834,  921, 1841, 1842,  922,  918, 1843,  916,  923,  923,
-      923,  747,  747,  747,  925,  925,  925, 1844,  926, 1845,
-
-     1846,  927,  750,  750,  750,  924, 1847, 1848,  748,  750,
-      750,  750,  750,  750,  750,  932,  932,  932, 1849, 1850,
-      752,  758,  758,  758,  758,  758,  758,  752, 1851, 1852,
-      752, 1862,  933,  758,  758,  758,  762,  762,  762,  760,
-      763, 1863,  760,  764,  768,  768,  768,  768,  768,  768,
-     1864,  760,  768,  768,  768,  773,  773,  773,  773,  773,
-      773, 1857,  770, 1857,  682,  770, 1865, 1866,  929, 1867,
-      770, 1868, 1869,  775, 1860, 1858,  775,  935,  773,  773,
-      773,  778,  778,  778, 1870,  779, 1871, 1876,  780,  785,
-      785,  785,  785,  785,  785, 1877,  775,  785,  785,  785,
-
-     1878,  789,  789,  789, 1879,  790, 1855,  787,  791, 1880,
-      787,  793,  793,  793,  939,  787,  793,  793,  793,  793,
-      793,  793, 1881,  799,  799,  799, 1882,  800, 1883,  795,
-      801,  805,  805,  805,  795, 1888, 1872,  795,  941,  802,
-      802,  802,  682,  803, 1874, 1888,  804, 1873,  806,  952,
-      952,  952, 1891,  953, 1892, 1875,  954, 1857,  947,  811,
-      811,  811,  811,  811,  811,  811,  811,  811,  815,  815,
-      815, 1858,  816,  998,  999,  817,  949,  813, 1902, 1886,
-      813, 1903, 1904,  813,  818,  818,  818,  818,  818,  818,
-      818,  818,  818,  823,  823,  823, 1857,  824, 1905, 1888,
-
-      825, 1909,  820, 1888, 1910,  820, 1911, 1860,  820,  829,
-      829,  829,  829,  829,  829,  829,  829,  829,  834,  834,
-      834, 1921,  967,  967,  967, 1925,  968,  831,  959,  969,
-      831, 1926, 1927,  831, 1928,  835, 1932,  836,  836,  836,
-      970,  970,  970, 1933,  971, 1934, 1935,  972,  840,  840,
-      840, 1936, 1937,  960,  837,  840,  840,  840,  840,  840,
-      840,  845,  845,  845, 1941,  682,  842, 1942,  977,  977,
-      977,  965,  978,  842, 1943,  979,  842, 1944,  846,  848,
-      848,  848,  981,  981,  981, 1945,  982, 1940,  682,  983,
-      850,  850,  850,  850,  850,  850,  849,  850,  850,  850,
-
-      854,  854,  854, 1949,  855, 1950, 1948,  856,  852, 1951,
-     1952,  852,  857,  857,  857,  852,  857,  857,  857, 1953,
-      682,  975,  857,  857,  857,  987,  987,  987, 1959, 1960,
-      859,  865,  865,  865,  859,  865,  865,  865, 1961, 1956,
-      859, 1962,  988,  865,  865,  865,  871,  871,  871,  867,
-      871,  871,  871,  867,  871,  871,  871,  997,  997,  997,
-      984,  867, 1969, 1970,  873,  696,  696,  696,  873,  911,
-      911,  911,  873, 1484,  682,  998,  999,  682,  985, 1022,
-     1022, 1022,  682,  698,  682,  682,  912, 1031, 1031, 1031,
-     1965, 1032,  682, 1012, 1033,  726,  726,  726, 1973,  682,
-
-      991,  914,  914,  914,  994, 1035, 1035, 1035,  682, 1036,
-      682, 1987, 1037,  728,  736,  736,  736, 1983,  915,  920,
-      920,  920,  682,  921, 1997, 1984,  922, 1005,  923,  923,
-      923, 1483,  738, 1042, 1042, 1042, 1991, 1043,  682, 1482,
-     1044,  750,  750,  750, 1988,  924,  925,  925,  925, 1034,
-      926, 1481, 2015,  927,  932,  932,  932,  682,  682,  752,
-     1040, 1049, 1049, 1049, 2005, 1050,  682,  682, 1051,  682,
-     1998,  933, 1052, 1052, 1052,  758,  758,  758, 1058, 1058,
-     1058,  773,  773,  773, 1065, 1065, 1065, 1480, 1046, 1053,
-     1067, 1067, 1067,  760, 1992, 2009, 1059,  682, 2010,  775,
-
-     2006, 1066,  785,  785,  785, 2019,  682, 1068, 1071, 1071,
-     1071, 2016,  793,  793,  793, 1074, 1074, 1074,  682,  682,
-      787, 1054, 2022, 2022, 2022, 1072, 1077, 1077, 1077, 1061,
-      795, 2007, 1075, 1069,  952,  952,  952,  682,  953, 2022,
-     2008,  954, 1479, 1078, 2022, 2022, 2022, 2013, 2022, 2022,
-     2022, 2022, 2022, 2022,  811,  811,  811,  818,  818,  818,
-     2011, 2022, 2012, 1478, 1070, 2022, 2014, 1472, 2022,  682,
-     1073,  682,  813, 1471,  682,  820, 1470, 1087, 1087, 1087,
-      829,  829,  829, 1469, 1076,  682,  967,  967,  967, 2019,
-      968, 1468, 1080,  969, 1088,  970,  970,  970,  831,  971,
-
-      682, 1467,  972, 2017, 1022, 1022, 1022,  840,  840,  840,
-     1079,  987,  987,  987, 2018, 1082, 1466, 1081, 1093, 1083,
-     1089, 1465,  977,  977,  977,  842,  978, 1461,  988,  979,
-      981,  981,  981, 1090,  982, 1460, 1459,  983,  850,  850,
-      850,  857,  857,  857, 1100, 1100, 1100, 1458, 1101, 1457,
-     1456, 1102,  865,  865,  865, 1455,  852, 1454, 1453,  859,
-     1107, 1107, 1107,  871,  871,  871,  997,  997,  997, 1094,
-      867,  696,  696,  696, 1127, 1127, 1127, 1108, 1130, 1130,
-     1130,  873, 1452, 1451,  998, 1127, 1127, 1127, 1128,  698,
-     1448, 1445, 1131, 1444, 1098, 1136, 1136, 1136, 1105, 1128,
-
-     1097, 1138, 1138, 1138, 1138, 1138, 1138, 1443, 1442, 1131,
-     1136, 1136, 1136, 1430, 1111, 1139, 1428, 1427, 1139, 1417,
-     1118, 1031, 1031, 1031, 1141, 1032, 1109, 1411, 1033, 1406,
-     1112,  726,  726,  726, 1129, 1035, 1035, 1035, 1405, 1036,
-     1401, 1394, 1037, 1389, 1388, 1135, 1052, 1052, 1052,  728,
-      736,  736,  736, 1042, 1042, 1042, 1387, 1043, 1381, 1380,
-     1044, 1129, 1379, 1053, 1135,  750,  750,  750,  738, 1049,
-     1049, 1049, 1378, 1050, 1377, 1376, 1051, 1158, 1158, 1158,
-     1375, 1159, 1374,  752, 1160,  758,  758,  758, 1162, 1162,
-     1162, 2022, 2022, 2022, 1142, 1165, 1165, 1165, 1145, 1058,
-
-     1058, 1058, 1373,  760, 1372, 1163, 1366, 1365, 2022, 1167,
-     1167, 1167, 1166,  773,  773,  773, 1364, 1059, 1065, 1065,
-     1065, 1363, 1148, 1173, 1173, 1173, 1168, 1174, 1361, 1359,
-     1175,  775, 1355, 1161, 1354, 1066, 1067, 1067, 1067, 1176,
-     1176, 1176, 1352, 1177, 1351, 1164, 1178, 1180, 1180, 1180,
-     1071, 1071, 1071, 1068, 1182, 1182, 1182, 1169, 1183, 1347,
-     1340, 1184, 1185, 1185, 1185, 1181, 1335, 1072, 1074, 1074,
-     1074, 1187, 1187, 1187, 1333, 1188, 1332, 1331, 1189, 1322,
-     1186, 1190, 1190, 1190, 1317, 1075, 1077, 1077, 1077, 1192,
-     1192, 1192, 1316, 1193, 1315, 1314, 1194, 1310, 1191, 1195,
-
-     1195, 1195, 1296, 1078, 2022, 2022, 2022, 1198, 1198, 1198,
-      811,  811,  811,  818,  818,  818, 1196, 1087, 1087, 1087,
-     1295, 2022, 1294, 1293, 1199, 1205, 1205, 1205,  813, 1206,
-     1292,  820, 1207, 1291, 1088, 1209, 1209, 1209, 1211, 1211,
-     1211, 1277, 2022, 2022, 2022,  840,  840,  840, 1216, 1216,
-     1216, 1274, 1273, 1210, 1272, 1212, 1269, 1268, 1197, 2022,
-     1264, 1201, 1263,  842, 1260, 1217, 2022, 2022, 2022,  850,
-      850,  850, 1200, 1259,  857,  857,  857, 1100, 1100, 1100,
-     1257, 1101, 1256, 2022, 1102, 1255, 1254,  852, 1220,  865,
-      865,  865,  859, 1215, 1107, 1107, 1107, 1226, 1226, 1226,
-
-     1251, 1227, 1213, 1250, 1228, 1249, 1247,  867, 1245, 1218,
-     1244, 1108,  871,  871,  871, 1243, 1242, 1219, 1234, 1234,
-     1234, 2022, 2022, 2022, 2022, 2022, 2022,  696,  696,  696,
-      873, 1252, 1252, 1252, 1241, 1235, 1240, 1224, 2022, 1239,
-     1233, 2022, 1253, 1253, 1253,  698, 1136, 1136, 1136, 1138,
-     1138, 1138,  726,  726,  726, 1225, 1261, 1261, 1261,  750,
-      750,  750, 1266, 1266, 1266, 1223, 1222, 1229, 1221, 1214,
-      728, 1208, 1204, 1236, 1262, 1203, 1202,  752, 1179, 1267,
-     1172, 1237, 1171, 1170, 1238, 1158, 1158, 1158, 1149, 1159,
-     1147, 1146, 1160,  758,  758,  758, 1162, 1162, 1162, 1258,
-
-     1144, 1279, 1279, 1279, 1143, 1280, 1140, 1278, 1281, 1137,
-     1134,  760, 1133, 1163, 1265, 1282, 1282, 1282, 1165, 1165,
-     1165, 1284, 1284, 1284, 1132, 1285, 1126, 1125, 1286, 1167,
-     1167, 1167, 1283, 1124, 1123, 1166, 1287, 1287, 1287, 1122,
-     1288, 1121, 1120, 1289, 1119, 1115, 1168,  773,  773,  773,
-     1173, 1173, 1173, 1114, 1174, 1113,  998, 1175, 1106, 1176,
-     1176, 1176, 1104, 1177, 1103,  775, 1178, 1180, 1180, 1180,
-     1182, 1182, 1182, 1099, 1183, 1096, 1095, 1184, 1185, 1185,
-     1185, 1092, 1187, 1187, 1187, 1181, 1188, 1091, 1086, 1189,
-     1190, 1190, 1190, 1290, 1085, 1084, 1186, 1297, 1297, 1297,
-
-     1064, 1298, 1063, 1062, 1299, 1060, 1057, 1191, 1192, 1192,
-     1192, 1056, 1193, 1055, 1048, 1194, 1195, 1195, 1195, 1300,
-     1300, 1300, 1045, 1301, 1041, 1039, 1302, 1303, 1303, 1303,
-     1198, 1198, 1198, 1196, 1305, 1305, 1305, 1038, 1306, 1030,
-     1029, 1307, 1028, 1027, 1304, 1026, 1025, 1199,  811,  811,
-      811,  818,  818,  818, 1311, 1311, 1311, 1205, 1205, 1205,
-     1024, 1206, 1023, 1020, 1207, 1019,  813, 1018, 1017,  820,
-     1016, 1312, 1209, 1209, 1209, 1211, 1211, 1211, 1318, 1318,
-     1318, 1014, 1319, 1013, 1010, 1320, 2022, 2022, 2022, 1008,
-     1210, 1007, 1212, 1216, 1216, 1216, 1308, 1313,  840,  840,
-
-      840, 1006, 1004, 2022, 2022, 2022, 2022, 1328, 1328, 1328,
-     1217, 1309, 1323, 1324, 1324, 1324,  842, 1325, 1003, 1002,
-     1326, 2022,  857,  857,  857, 1329,  865,  865,  865, 1226,
-     1226, 1226, 1001, 1227, 1000,  993, 1228,  992, 1321,  990,
-      859,  871,  871,  871,  867, 1234, 1234, 1234, 1341, 1341,
-     1341,  989, 1342,  986,  980, 1343, 2022, 2022, 2022,  873,
-      976, 1327, 1235, 2022, 2022, 2022,  974,  973, 1330,  966,
-      696,  696,  696, 2022, 1348, 1348, 1348, 1349, 1349, 1349,
-     2022, 1350, 1350, 1350, 1353, 1353, 1353, 1334,  698, 1336,
-     1246, 1246, 1246, 1248, 1248, 1248, 1356, 1356, 1356, 1357,
-
-     1357, 1357, 1252, 1252, 1252, 1253, 1253, 1253, 1358, 1358,
-     1358,  964, 1344, 1360, 1360, 1360,  726,  726,  726, 1261,
-     1261, 1261, 1367, 1367, 1367,  963, 1345, 1266, 1266, 1266,
-     1346, 1369, 1369, 1369,  728, 1370,  962, 1262, 1371,  961,
-     1368,  758,  758,  758, 1267, 1279, 1279, 1279,  958, 1280,
-      957,  956, 1281, 1282, 1282, 1282, 1383, 1383, 1383,  760,
-     1384,  955,  951, 1385, 1362, 1284, 1284, 1284,  950, 1285,
-     1283,  948, 1286, 1287, 1287, 1287,  946, 1288,  945,  944,
-     1289,  773,  773,  773, 1297, 1297, 1297, 1382, 1298,  943,
-      942, 1299,  940, 1300, 1300, 1300,  938, 1301,  937,  775,
-
-     1302, 1303, 1303, 1303, 1395, 1395, 1395,  936, 1396,  934,
-      931, 1397, 1305, 1305, 1305,  928, 1306,  919, 1304, 1307,
-      811,  811,  811, 1399, 1399, 1399, 1311, 1311, 1311, 1402,
-     1402, 1402, 1386, 1403,  917,  910, 1404,  909,  813,  908,
-      907, 1400,  905, 1312, 1318, 1318, 1318,  903, 1319,  902,
-      901, 1320, 2022, 2022, 2022,  840,  840,  840, 1324, 1324,
-     1324,  900, 1325,  899,  898, 1326, 2022, 2022, 2022, 2022,
-     1328, 1328, 1328,  842,  857,  857,  857, 1425, 1425, 1425,
-     1398,  897,  895, 2022,  865,  865,  865,  894, 1329, 1432,
-     1432, 1432,  859,  891, 1426,  871,  871,  871, 1416, 1435,
-
-     1435, 1435,  867,  890, 1341, 1341, 1341,  682, 1342,  889,
-     1418, 1343,  888,  873, 2022, 2022, 2022, 2022, 2022, 2022,
-      887,  886, 1423,  696,  696,  696, 1439, 1439, 1439,  885,
-      883, 2022,  882,  881, 2022,  880, 1424, 1348, 1348, 1348,
-      879,  698, 1349, 1349, 1349, 1429, 1350, 1350, 1350,  878,
-      877, 1431, 1440, 1440, 1440, 1441, 1441, 1441, 1353, 1353,
-     1353, 1356, 1356, 1356, 1357, 1357, 1357, 1436, 1358, 1358,
-     1358, 1360, 1360, 1360, 1446, 1446, 1446,  876, 1438, 1437,
-     1449, 1449, 1449, 1367, 1367, 1367, 1369, 1369, 1369,  682,
-     1370,  870, 1447, 1371,  758,  758,  758, 1450, 1383, 1383,
-
-     1383, 1368, 1384,  869,  864, 1385, 1463, 1463, 1463, 1395,
-     1395, 1395,  760, 1396,  863,  862, 1397, 1473, 1473, 1473,
-     1399, 1399, 1399,  861, 1464, 1475, 1475, 1475,  847, 1402,
-     1402, 1402,  844, 1403,  839, 1474, 1404,  838, 1400, 1491,
-     1491, 1491, 1476, 1493, 1493, 1493,  840,  840,  840,  833,
-      828, 1462, 2022, 2022, 2022,  827, 1492,  857,  857,  857,
-     1425, 1425, 1425,  826,  842, 1506, 1506, 1506, 1477, 2022,
-      822,  810, 1503, 1503, 1503,  859, 1504, 1426,  809, 1505,
-      808,  807, 1507, 1509, 1509, 1509, 1511, 1511, 1511,  871,
-      871,  871, 1432, 1432, 1432, 1501, 1435, 1435, 1435,  792,
-
-      784, 1510, 1516, 1516, 1516,  783,  782,  873,  781, 1494,
-      682,  777,  772, 1502, 2022, 2022, 2022,  767,  766, 1517,
-     1519, 1519, 1519, 1439, 1439, 1439, 1440, 1440, 1440,  765,
-      757, 2022, 1441, 1441, 1441, 1446, 1446, 1446, 1520, 1449,
-     1449, 1449, 1526, 1526, 1526,  756, 1527,  755,  754, 1528,
-     1513, 1512,  749, 1447,  746,  740, 1450,  758,  758,  758,
-      735,  734, 1518, 1463, 1463, 1463, 1546, 1546, 1546, 1473,
-     1473, 1473, 1475, 1475, 1475,  760,  730,  725, 1548, 1548,
-     1548, 1464, 1549, 1547,  724, 1550,  723, 1474,  722, 1476,
-     1556, 1556, 1556, 1491, 1491, 1491, 1564, 1564, 1564,  721,
-
-     1565,  720,  719, 1566, 1493, 1493, 1493, 1557,  718,  717,
-     1492,  716,  715, 1540,  840,  840,  840, 2022, 2022, 2022,
-     1576, 1576, 1576, 1503, 1503, 1503,  714, 1504,  713,  712,
-     1505,  711,  842,  710, 2022, 1506, 1506, 1506, 1577, 1578,
-     1578, 1578,  709, 1579,  708,  707, 1580,  706, 1581, 1581,
-     1581,  705, 1507, 1509, 1509, 1509, 1511, 1511, 1511, 1583,
-     1583, 1583,  704,  703, 1574, 1582,  702,  701, 1567,  700,
-      695, 1510, 1516, 1516, 1516,  694,  693, 1584, 1575, 1588,
-     1588, 1588,  692, 1589,  691,  690, 1590,  689,  688, 1517,
-     1591, 1591, 1591, 1519, 1519, 1519, 1597, 1597, 1597, 1526,
-
-     1526, 1526,  685, 1527,  683,  682, 1528, 1592,  758,  758,
-      758, 1520,  680, 1598, 1546, 1546, 1546, 1618, 1618, 1618,
-      678, 1619,  677,  676, 1620,  674,  760,  673, 1548, 1548,
-     1548, 1547, 1549,  672,  671, 1550, 1556, 1556, 1556, 1624,
-     1624, 1624,  670, 1625,  666,  664, 1626, 1564, 1564, 1564,
-      663, 1565,  662, 1557, 1566,  840,  840,  840, 2022, 2022,
-     2022, 2022, 2022, 2022, 1614, 1576, 1576, 1576,  661,  660,
-     1578, 1578, 1578,  842, 1579, 2022,  658, 1580, 2022, 1581,
-     1581, 1581,  657, 1577, 1646, 1646, 1646,  656, 1647,  655,
-      654, 1648, 1583, 1583, 1583,  653, 1582, 1588, 1588, 1588,
-
-      651, 1589,  650,  649, 1590, 1591, 1591, 1591,  646,  645,
-     1584, 1652, 1652, 1652,  641, 1653,  639, 1637, 1654, 1644,
-      638, 1645, 1592, 1655, 1655, 1655, 1657, 1657, 1657, 1597,
-     1597, 1597, 1659, 1659, 1659,  637, 1660,  636,  635, 1661,
-      758,  758,  758, 1676, 1676, 1676, 1598, 1618, 1618, 1618,
-      630, 1619,  629,  627, 1620, 1682, 1682, 1682,  760,  624,
-     1677, 1624, 1624, 1624,  622, 1625,  621,  620, 1626,  840,
-      840,  840, 1683, 2022, 2022, 2022, 2022, 2022, 2022, 1655,
-     1655, 1655, 1706, 1706, 1706,  619, 1678,  842, 1675,  616,
-     2022,  615,  613, 2022, 1646, 1646, 1646,  612, 1647, 1707,
-
-      998, 1648, 1652, 1652, 1652,  610, 1653,  609,  608, 1654,
-     1657, 1657, 1657, 1659, 1659, 1659,  605, 1660,  603,  602,
-     1661, 1695, 1703, 1714, 1714, 1714,  758,  758,  758, 1676,
-     1676, 1676, 1725, 1725, 1725, 1702, 1726,  601,  599, 1727,
-     1715, 1682, 1682, 1682,  760,  597, 1677, 1733, 1733, 1733,
-      596, 1734,  595,  594, 1735, 1747, 1747, 1747, 1683, 1755,
-     1755, 1755, 1758, 1758, 1758, 1762, 1762, 1762, 1706, 1706,
-     1706,  591, 1724, 1748,  590,  589, 1756,  586,  583, 1759,
-      582,  580, 1763,  998,  579, 1707,  998,  577, 1764, 1764,
-     1764,  574, 1765,  573,  570, 1766, 1767, 1767, 1767, 1768,
-
-     1768, 1768, 1757,  569,  568, 1760,  998, 1714, 1714, 1714,
-     1773, 1773, 1773,  567, 1774,  566,  565, 1775,  758,  758,
-      758, 1725, 1725, 1725, 1715, 1726,  560,  559, 1727, 1787,
-     1787, 1787,  558, 1733, 1733, 1733,  760, 1734,  557,  556,
-     1735, 1789, 1789, 1789,  555,  554, 1788, 1747, 1747, 1747,
-     1755, 1755, 1755, 1805, 1805, 1805,  552, 1806, 1790,  551,
-     1807, 2022, 2022, 2022,  550, 1748,  549, 1756, 1758, 1758,
-     1758,  548, 1809, 1809, 1809,  547, 1810,  546, 2022, 1811,
-     1782, 2022, 2022, 2022,  541, 1759, 1762, 1762, 1762, 1814,
-     1814, 1814,  538, 1815,  540,  535, 1816,  533, 2022, 1767,
-
-     1767, 1767,  531, 1763,  998, 2022,  530,  998,  529, 1764,
-     1764, 1764,  528, 1765,  527,  525, 1766, 1768, 1768, 1768,
-      523, 1773, 1773, 1773,  521, 1774, 1808,  998, 1775, 1835,
-     1835, 1835,  520, 1836,  519,  518, 1837,  517, 1829, 1829,
-     1829,  516, 1787, 1787, 1787,  514, 1812,  996,  996,  996,
-      996,  996,  996,  996,  996,  996, 1830,  513,  996, 1788,
-     1789, 1789, 1789,  996,  996,  996,  998,  996, 1838, 1838,
-     1838,  509, 1839,  508,  506, 1840,  505, 1790, 1805, 1805,
-     1805,  502, 1806,  501,  500, 1807, 2022, 2022, 2022,  996,
-      996,  996,  996,  996,  996,  996,  996,  996,  996,  996,
-
-      498,  496,  996, 2022, 2022, 2022, 2022,  996,  996,  996,
-      998,  996, 1809, 1809, 1809,  494, 1810,  492,  491, 1811,
-      488, 2022, 1814, 1814, 1814,  487, 1815,  483,  481, 1816,
-     1829, 1829, 1829,  996,  996, 1835, 1835, 1835, 1853, 1836,
-      998,  480, 1837, 1838, 1838, 1838,  478, 1839, 1830,  477,
-     1840,  476, 2022, 2022, 2022,  475, 1854,  996,  996,  996,
-      996,  996, 1861,  996,  996,  996,  474,  471,  996, 2022,
-     2022, 2022, 2022,  996,  996,  996,  998,  996, 1890, 1890,
-     1890, 1893, 1893, 1893, 1912, 1912, 1912, 2022, 1913,  469,
-      468, 1914,  420, 1895, 1895, 1895,  998,  999, 1894,  996,
-
-      996,  996,  996,  996,  996,  996,  996,  996,  996, 1861,
-     1896,  467,  996,  465, 1884,  463,  462,  996,  996,  996,
-      998,  996, 1897, 1897, 1897, 1900, 1900, 1900, 2022, 2022,
-     2022,  461, 1885, 2022, 2022, 2022, 1908, 1908, 1908, 1898,
-      460,  458, 1901,  996,  996, 2022, 1890, 1890, 1890,  456,
-     2022, 1893, 1893, 1893,  682, 1895, 1895, 1895,  455, 1915,
-     1915, 1915,  454, 1916,  998, 1899, 1917,  452, 1894, 1897,
-     1897, 1897, 1896, 1918, 1918, 1918,  450, 1919,  449, 1906,
-     1920, 1900, 1900, 1900, 1907,  445, 1898,  444, 1922, 1922,
-     1922,  442, 1923,  441, 1111, 1924,  438,  437, 1901, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 1908, 1908, 1908, 1912, 1912,
-     1912,  436, 1913,  434,  432, 1914, 2022,  430, 2022, 2022,
-     1915, 1915, 1915,  682, 1916,  406,  405, 1917, 1918, 1918,
-     1918,  403, 1919,  401,  395, 1920, 1922, 1922, 1922,  394,
-     1923, 1931, 1929, 1924,  395, 1930, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022,  394,  393, 2022,  392, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 1957,
-     1957, 1957, 2022, 2022, 2022, 2022, 2022, 2022, 1957, 1957,
-     1957, 2022, 2022, 2022, 2022, 2022, 1958, 2022, 2022, 2022,
-
-     2022, 2022, 2022, 1938, 2022, 1958, 1939, 2022, 2022, 1954,
-     2022, 1966, 1966, 1966, 1946, 1967, 2022, 1947, 1968, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 1955, 2022, 2022,
-     1963, 2022, 2022, 1964, 2022, 2022, 2022, 2022, 2022, 2022,
-     1966, 1966, 1966, 2022, 1967, 2022, 2022, 1968, 2022, 2022,
-     2022, 2022, 2022, 2022, 1976, 1976, 1976, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 1976,
-     1976, 1976,  682, 1979, 2022, 2022, 1980, 2022, 2022, 1971,
-     2022, 2022, 1972, 2022, 2022, 2022, 2022,  682, 2022, 2022,
-     2022, 1974, 2022, 2022, 1975, 2022, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 1993, 1993, 1993, 2022, 2022, 1977, 2022,
-     1978, 2022, 2022, 2022, 2022, 2022, 2022, 1995, 1995, 1995,
-     1994, 1981, 1993, 1993, 1993, 2022, 1982, 2022, 1999, 1999,
-     1999, 2022, 2000, 2022, 1996, 2001, 2022, 2022, 1986, 1994,
-     2022, 1985, 2022, 1989, 1995, 1995, 1995, 2002, 2002, 2002,
-     2022, 2003, 2022, 2022, 2004, 1999, 1999, 1999, 2022, 2000,
-     2022, 1996, 2001, 1990, 2002, 2002, 2002, 2022, 2003, 2022,
-     2022, 2004, 2020, 2020, 2020, 2020, 2020, 2020, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-
-     2021, 2022, 2022, 2021,  144,  144,  144,  144,  144,  144,
-      144,  144,  144,  145,  145,  145,  145,  145,  145,  145,
-      145,  145,  150,  150,  150,  150,  150,  150,  150,  150,
-      150,  153,  153,  153,  153,  153,  153,  153,  153,  153,
-      156,  156,  156,  156,  156,  156,  156,  156,  156,  159,
-      159,  159,  159,  159,  159,  159,  159,  159,  166,  166,
-      166,  166,  166,  166,  166,  166,  166,  174,  174,  174,
-      174,  174,  174,  174,  174,  174,  179,  179,  179,  179,
-      179,  179,  179,  179,  179,  189,  189,  189,  189,  189,
-      189,  189,  189,  189,  193,  193,  193,  193,  193,  193,
-
-      193,  193,  193,  199,  199,  199,  199,  199,  199,  199,
-      199,  199,  210,  210,  210,  210,  210,  210,  210,  210,
-      210,  217,  217,  217,  217,  217,  217,  217,  217,  217,
-      225,  225,  225,  225,  225,  225,  225,  225,  225,  231,
-      231,  231,  231,  231,  231,  231,  231,  231,  237,  237,
-      237,  237,  237,  237,  237,  237,  237,  244,  244,  244,
-      244,  244,  244,  244,  244,  244,  250,  250,  250,  250,
-      250,  250,  250,  250,  250,  256,  256,  256,  256,  256,
-      256,  256,  256,  256,  262,  262,  262,  262,  262,  262,
-      262,  262,  262,  270,  270,  270,  270,  270,  270,  270,
-
-      270,  270,  277,  277,  277,  277,  277,  277,  277,  277,
-      277,  282,  282,  282,  282,  282,  282,  282,  282,  282,
-      297,  297,  297,  297,  297,  297,  297,  297,  297,  303,
-      303,  303,  303,  303,  303,  303,  303,  303,  307,  307,
-      307,  307,  307,  307,  307,  307,  307,  313,  313,  313,
-      313,  313,  313,  313,  313,  313,  320,  320,  320,  320,
-      320,  320,  320,  320,  320,  327,  327,  327,  327,  327,
-      327,  327,  327,  327,  334,  334,  334,  334,  334,  334,
-      334,  334,  334,  341,  341,  341,  341,  341,  341,  341,
-      341,  341,  348,  348,  348,  348,  348,  348,  348,  348,
-
-      348,  355,  355,  355,  355,  355,  355,  355,  355,  355,
-      359,  359,  359,  359,  359,  359,  359,  359,  359,  365,
-      365,  365,  365,  365,  365,  365,  365,  365,  372,  372,
-      372,  372,  372,  372,  372,  372,  372,  380,  380,  380,
-      380,  380,  380,  380,  380,  380,  384,  384,  384,  384,
-      384,  384,  384,  384,  384,  404,  404,  404, 2022, 2022,
-     2022,  404,  431,  431,  431, 2022, 2022, 2022,  431,  435,
-      435,  435, 2022, 2022, 2022,  435,  443,  443,  443, 2022,
-     2022, 2022,  443,  453,  453,  453, 2022, 2022, 2022,  453,
-      459,  459,  459, 2022, 2022, 2022,  459,  466,  466,  466,
-
-     2022, 2022, 2022,  466,  470,  470,  470, 2022, 2022, 2022,
-      470,  479,  479,  479, 2022, 2022, 2022,  479,  484,  484,
-      484, 2022, 2022, 2022,  484,  495,  495,  495, 2022, 2022,
-     2022,  495,  499,  499,  499, 2022, 2022, 2022,  499,  507,
-      507,  507, 2022, 2022, 2022,  507,  515,  515,  515, 2022,
-     2022, 2022,  515,  522,  522,  522, 2022, 2022, 2022,  522,
-      526,  526,  526, 2022, 2022, 2022,  526,  534,  534,  534,
-     2022, 2022, 2022,  534,  537,  537,  537,  537,  537,  537,
-      537, 2022,  537,  553, 2022, 2022, 2022,  553,  581, 2022,
-     2022, 2022,  581,  588, 2022, 2022, 2022,  588,  598, 2022,
-
-     2022, 2022,  598,  604, 2022, 2022, 2022,  604,  611, 2022,
-     2022, 2022,  611,  614, 2022, 2022, 2022,  614,  623, 2022,
-     2022, 2022,  623,  628, 2022, 2022, 2022,  628,  484,  484,
-      484, 2022, 2022, 2022,  484,  640, 2022, 2022, 2022,  640,
-      495,  495,  495, 2022, 2022, 2022,  495,  644, 2022, 2022,
-     2022,  644,  499,  499,  499, 2022, 2022, 2022,  499,  652,
-     2022, 2022, 2022,  652,  507,  507,  507, 2022, 2022, 2022,
-      507,  659, 2022, 2022, 2022,  659,  515,  515,  515, 2022,
-     2022, 2022,  515,  665, 2022, 2022, 2022,  665,  522,  522,
-      522, 2022, 2022, 2022,  522,  669, 2022, 2022, 2022,  669,
-
-      526,  526,  526, 2022, 2022, 2022,  526,  675, 2022, 2022,
-     2022,  675,  534,  534,  534, 2022, 2022, 2022,  534,  679,
-     2022, 2022, 2022,  679,  681,  681,  681,  681,  681,  681,
-      681,  681,  681,  687, 2022, 2022, 2022, 2022,  687,  404,
-      404,  404, 2022, 2022, 2022,  404,  697,  697,  697,  697,
-     2022, 2022,  697,  697,  431,  431,  431, 2022, 2022, 2022,
-      431,  727,  727,  727,  727, 2022, 2022,  727,  727,  435,
-      435,  435, 2022, 2022, 2022,  435,  737,  737,  737,  737,
-     2022, 2022,  737,  737,  443,  443,  443, 2022, 2022, 2022,
-      443,  751,  751,  751,  751, 2022, 2022,  751,  751,  453,
-
-      453,  453, 2022, 2022, 2022,  453,  759,  759,  759,  759,
-     2022, 2022,  759,  759,  459,  459,  459, 2022, 2022, 2022,
-      459,  769,  769,  769,  769, 2022, 2022,  769,  769,  466,
-      466,  466, 2022, 2022, 2022,  466,  774,  774,  774,  774,
-     2022, 2022,  774,  774,  470,  470,  470, 2022, 2022, 2022,
-      470,  786,  786,  786,  786, 2022, 2022,  786,  786,  479,
-      479,  479, 2022, 2022, 2022,  479,  794,  794,  794,  794,
-     2022, 2022,  794,  794,  484,  484,  484, 2022, 2022, 2022,
-      484,  812,  812,  812,  812, 2022, 2022,  812,  812,  819,
-      819,  819,  819, 2022, 2022,  819,  819,  499,  499,  499,
-
-     2022, 2022, 2022,  499,  830,  830,  830,  830, 2022, 2022,
-      830,  830,  507,  507,  507, 2022, 2022, 2022,  507,  841,
-      841,  841,  841, 2022, 2022,  841,  841,  515,  515,  515,
-     2022, 2022, 2022,  515,  851,  851,  851,  851, 2022, 2022,
-      851,  851,  858,  858,  858,  858, 2022, 2022,  858,  858,
-      526,  526,  526, 2022, 2022, 2022,  526,  866,  866,  866,
-      866, 2022, 2022,  866,  866,  534,  534,  534, 2022, 2022,
-     2022,  534,  872,  872,  872,  872, 2022, 2022,  872,  872,
-      681,  681,  681,  681,  681,  681,  681,  681,  681,  687,
-     2022,  687, 2022, 2022,  687,  404,  404,  404, 2022, 2022,
-
-     2022,  404,  697,  697,  697,  697, 2022, 2022,  697,  697,
-      431,  431,  431,  431, 2022,  431, 2022,  431,  727,  727,
-      727,  727, 2022, 2022,  727,  727,  435,  435,  435,  435,
-     2022,  435, 2022,  435,  737,  737,  737,  737, 2022, 2022,
-      737,  737,  443,  443,  443, 2022, 2022, 2022,  443,  751,
-      751,  751,  751, 2022, 2022,  751,  751,  453,  453,  453,
-     2022, 2022, 2022,  453,  759,  759,  759,  759, 2022, 2022,
-      759,  759,  459,  459,  459, 2022, 2022, 2022,  459,  769,
-      769,  769,  769, 2022, 2022,  769,  769,  466,  466,  466,
-     2022, 2022, 2022,  466,  774,  774,  774,  774, 2022, 2022,
-
-      774,  774,  470,  470,  470, 2022, 2022, 2022,  470,  786,
-      786,  786,  786, 2022, 2022,  786,  786,  479,  479,  479,
-     2022, 2022, 2022,  479,  794,  794,  794,  794, 2022, 2022,
-      794,  794,  484,  484,  484, 2022, 2022, 2022,  484,  812,
-      812,  812,  812, 2022, 2022,  812,  812,  819,  819,  819,
-      819, 2022, 2022,  819,  819,  499,  499,  499, 2022, 2022,
-     2022,  499,  830,  830,  830,  830, 2022, 2022,  830,  830,
-      507,  507,  507, 2022, 2022, 2022,  507,  841,  841,  841,
-      841, 2022, 2022,  841,  841,  515,  515,  515, 2022, 2022,
-     2022,  515,  851,  851,  851,  851, 2022, 2022,  851,  851,
-
-      858,  858,  858,  858, 2022, 2022,  858,  858,  526,  526,
-      526, 2022, 2022, 2022,  526,  866,  866,  866,  866, 2022,
-     2022,  866,  866,  534,  534,  534, 2022, 2022, 2022,  534,
-      872,  872,  872,  872, 2022, 2022,  872,  872,  681,  681,
-      681,  681,  681,  681,  681,  681,  681,  996,  996,  996,
-      996,  996,  996,  996,  996,  996,  404,  404,  404, 2022,
-     2022, 2022,  404,  697,  697,  697,  697, 2022, 2022,  697,
-      697,  727,  727,  727,  727, 2022, 2022,  727,  727,  435,
-      435,  435, 2022, 2022, 2022,  435,  737,  737,  737,  737,
-     2022, 2022,  737,  737,  443,  443,  443, 2022, 2022, 2022,
-
-      443,  751,  751,  751,  751, 2022, 2022,  751,  751,  453,
-      453,  453, 2022, 2022, 2022,  453,  759,  759,  759,  759,
-     2022, 2022,  759,  759,  459,  459,  459, 2022, 2022, 2022,
-      459,  769,  769,  769,  769, 2022, 2022,  769,  769,  466,
-      466,  466, 2022, 2022, 2022,  466,  774,  774,  774,  774,
-     2022, 2022,  774,  774,  470,  470,  470, 2022, 2022, 2022,
-      470,  786,  786,  786,  786, 2022, 2022,  786,  786,  479,
-      479,  479,  479, 2022,  479, 2022,  479,  794,  794,  794,
-      794, 2022, 2022,  794,  794,  484,  484,  484,  484, 2022,
-      484, 2022,  484,  812,  812,  812,  812, 2022, 2022,  812,
-
-      812,  819,  819,  819,  819, 2022, 2022,  819,  819,  499,
-      499,  499, 2022, 2022, 2022,  499,  830,  830,  830,  830,
-     2022, 2022,  830,  830,  507,  507,  507, 2022, 2022, 2022,
-      507,  841,  841,  841,  841, 2022, 2022,  841,  841,  515,
-      515,  515, 2022, 2022, 2022,  515,  851,  851,  851,  851,
-     2022, 2022,  851,  851,  858,  858,  858,  858, 2022, 2022,
-      858,  858,  526,  526,  526, 2022, 2022, 2022,  526,  866,
-      866,  866,  866, 2022, 2022,  866,  866,  534,  534,  534,
-      534, 2022,  534, 2022,  534,  872,  872,  872,  872, 2022,
-     2022,  872,  872,  681,  681,  681,  681,  681,  681,  681,
-
-      681,  681,  996,  996,  996,  996,  996,  996,  996,  996,
-      996,  404,  404,  404, 2022, 2022, 2022,  404,  697,  697,
-      697,  697, 2022, 2022,  697,  697,  727,  727,  727,  727,
-     2022, 2022,  727,  727,  435,  435,  435, 2022, 2022, 2022,
-      435,  737,  737,  737,  737, 2022, 2022,  737,  737,  443,
-      443,  443, 2022, 2022, 2022,  443,  751,  751,  751,  751,
-     2022, 2022,  751,  751,  453,  453,  453, 2022, 2022, 2022,
-      453,  759,  759,  759,  759, 2022, 2022,  759,  759,  459,
-      459,  459,  459, 2022,  459, 2022,  459,  466,  466,  466,
-      466, 2022,  466, 2022,  466,  774,  774,  774,  774, 2022,
-
-     2022,  774,  774,  470,  470,  470, 2022, 2022, 2022,  470,
-      786,  786,  786,  786, 2022, 2022,  786,  786,  794,  794,
-      794,  794, 2022, 2022,  794,  794,  484,  484,  484,  484,
-     2022,  484, 2022,  484,  812,  812,  812,  812, 2022, 2022,
-      812,  812,  819,  819,  819,  819, 2022, 2022,  819,  819,
-      499,  499,  499, 2022, 2022, 2022,  499,  830,  830,  830,
-      830, 2022, 2022,  830,  830,  507,  507,  507,  507, 2022,
-      507, 2022,  507,  841,  841,  841,  841, 2022, 2022,  841,
-      841,  515,  515,  515,  515, 2022,  515, 2022,  515,  851,
-      851,  851,  851, 2022, 2022,  851,  851,  858,  858,  858,
-
-      858, 2022, 2022,  858,  858,  526,  526,  526, 2022, 2022,
-     2022,  526,  866,  866,  866,  866, 2022, 2022,  866,  866,
-      872,  872,  872,  872, 2022, 2022,  872,  872,  681,  681,
-      681,  681,  681,  681,  681,  681,  681,  996,  996,  996,
-      996,  996,  996,  996,  996,  996,  404,  404,  404,  404,
-     2022,  404, 2022,  404,  697,  697,  697,  697, 2022, 2022,
-      697,  697,  727,  727,  727,  727, 2022, 2022,  727,  727,
-      435,  435,  435, 2022, 2022, 2022,  435,  737,  737,  737,
-      737, 2022, 2022,  737,  737,  443,  443,  443, 2022, 2022,
-     2022,  443,  751,  751,  751,  751, 2022, 2022,  751,  751,
-
-      453,  453,  453,  453, 2022,  453, 2022,  453,  759,  759,
-      759,  759, 2022, 2022,  759,  759,  459,  459,  459,  459,
-     2022,  459, 2022,  459,  774,  774,  774,  774, 2022, 2022,
-      774,  774,  470,  470,  470, 2022, 2022, 2022,  470, 1817,
-     1817, 1817, 1817, 1817, 1817, 1817, 1817, 1817, 1818, 1818,
-     1818, 1818, 1818, 1818, 1818, 1818, 1818, 1856, 1856, 1856,
-     1856, 1856, 1856, 1856, 1856, 1856, 1859, 1859, 1859, 1859,
-     1859, 1859, 1859, 1859, 1859, 1887, 1887, 1887, 1887, 1887,
-     1887, 1887, 1887, 1887, 1889, 1889, 1889, 1889, 1889, 1889,
-     1889, 1889, 1889,  143, 2022, 2022, 2022, 2022, 2022, 2022,
-
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022, 2022,
-     2022, 2022, 2022
-    } ;
-
-static yyconst flex_int16_t yy_chk[7164] =
-    {   0,
-        0,    3,    3,    3,    4,    4,    4,    5,    5,    5,
-        6,    6,    6,    7,    7,    7,   11,    3,    9,   12,
-        4,   10,  219,    5,    0,    9,    6,    0,   10,    7,
-        8,    8,    8,  148,   11,   13,   13,   12,   14,   14,
-       13,   13,  220,   14,   14,  149,    8,   17,   17,  148,
-       13,   15,   15,   14,   15,  152,   15,   16,   16,  414,
-       16,  149,   16,   18,   18,  414,   15,   19,   19,   19,
-      219,  152,   16,   20,   20,   20,   23,   23,   23,   24,
-       24,   24,  266,   19,   25,   25,   25,  332,   17,   20,
-      220,  266,   23,  425,  332,   24,  146,  146,  146,  425,
-
-       25,  147,  147,  147,   18,   21,   21,   21,   21,   21,
-       21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
-     1412,   21,   21,   21,   21,   21,   26,   26,   26,   27,
-       27,   27,  319,   28,   28,   28,   29,   29,   29,   30,
-       30,   30,   26,  319,  451,   27,  175,   21,   21,   28,
-      451,  294,   29,  190,  294,   30,  151,  151,  151,  172,
-      172,  172,  175,  180,  180,  180,  187,  187,  187,  190,
-       21,  183,   21,   22,   22,   22,   22,   22,   22,   22,
-       22,   22,   22,   22,   22,   22,   22,   22,  272,   22,
-       22,   22,   22,   22,   31,   31,   31,   32,   32,   32,
-
-      995,   33,   33,   33,   34,   34,   34,   35,   35,   35,
-       31,  415,  200,   32,  170,   22,   22,   33,  211,  183,
-       34,  183,  995,   35,  415,   36,   36,   36,  200,  185,
-      170,  194,  194,  194,  211,  185,  272,  185,   22,  185,
-       22,   36,   37,   37,   37,   37,   37,   37,   37,   37,
-       37,   37,   37,   37,   37,   37,   37,  291,   37,   37,
-       37,   37,   37,   39,   39,   39,   40,   40,   40,  170,
-       47,   47,   47,   43,   43,   44,   44,  291,   43,   39,
-       44, 1152,   40,  215,   37,   37,   47,  215,   43, 1152,
-       44,  215,   37,   38,   38,   38,   38,   38,   38,   38,
-
-       38,   38,   38,   38,   38,   38,   38,   38,  707,   38,
-       38,   38,   38,   38,   43,  333,   44,   48,   48,   48,
-      707,   49,   49,   49,   50,   50,   50,  197,  197,  197,
-      208,  208,  208,   48,  684,   38,   38,   49,  684,  397,
-       50,  336,  397,   38,   41,   41,   41,   41,   41,   41,
-       41,   41,   41,   41,   41,   41,   41,   41,   41,  333,
-       41,   41,   41,   41,   41,   51,   51,   51,   52,   52,
-       52,  322,   53,   53,   53,   54,   54,   54,  218,  218,
-      218,   51,  195,  205,   52,  336,   41,   41,   53,  195,
-      205,   54, 1319, 1319,   41, 1320, 1320,   41,  195,  205,
-
-      223,  223,  223,   41,   42,   42,   42,   42,   42,   42,
-       42,   42,   42,   42,   42,   42,   42,   42,   42,  322,
-       42,   42,   42,   42,   42,   57,   57,   57,   58,   58,
-       58,  720,   61,   61,   61,   62,   62,   62,  388,  226,
-      238,   57, 1156,  720,   58,  233,   42,   42,   61,  422,
-     1156,   62,  233,  388,   42,  226,  238,   42,  232,  232,
-      232,  233,  422,   42,   45,   45,   45,   45,   45,   45,
-       45,   45,   45,   45,   45,   45,   45,   45,   45,  754,
-       45,   45,   45,   45,   45,   65,   65,   65,   66,   66,
-       66,  754,   67,   67,   67,   68,   68,   68,   69,   69,
-
-       69,   65,  246,  251,   66, 1414,   45,   45,   67,  246,
-      350,   68,  426, 1419,   69,   45, 1421,   45,  246,  251,
-       45,  235,  235,  235,  254,  426,   45,   46,   46,   46,
-       46,   46,   46,   46,   46,   46,   46,   46,   46,   46,
-       46,   46,  439,   46,   46,   46,   46,   46,   70,   70,
-       70,   73,   73,   73,  350,   74,   74,   74,   75,   75,
-       75,   76,   76,   76,   70,  254,  263,   73,  254,   46,
-       46,   74,  278, 1004,   75,  439, 1428,   76,   46, 1004,
-       46, 1442,  263,   46,  245,  245,  245, 1112,  278,   46,
-       55,   55,   55,   55,   55,   55,   55,   55,   55,   55,
-
-       55,   55,   55,   55,   55, 1443,   55,   55,   55,   55,
-       55,   77,   77,   77,   78,   78,   78, 1112,   79,   79,
-       79,   80,   80,   80,   83,   83,   83,   77, 1444,  630,
-       78, 1111,   55,   55,   79,  289,  304,   80,  630,   55,
-       83,  248,  248,  248,   55,  257,  257,  257,  260,  260,
-      260,  289,  304,   55,   56,   56,   56,   56,   56,   56,
-       56,   56,   56,   56,   56,   56,   56,   56,   56, 1111,
-       56,   56,   56,   56,   56,   84,   84,   84,   87,   87,
-       87, 1445,   88,   88,   88,   91,   91,   91,   92,   92,
-       92,   84, 1325, 1325,   87, 1294,   56,   56,   88,  314,
-
-      328,   91, 1294,   56,   92,  271,  271,  271,   56,  275,
-      275,  275,  283,  283,  283,  314,  328,   56,   59,   59,
-       59,   59,   59,   59,   59,   59,   59,   59,   59,   59,
-       59,   59,   59, 1448,   59,   59,   59,   59,   59,   95,
-       95,   95,   96,   96,   96,  875,   97,   97,   97,   98,
-       98,   98,   99,   99,   99,   95,  284,  428,   96, 1451,
-       59,   59,   97,  284,  875,   98, 1232, 1433,   99, 1295,
-      428,   59,  284,  286,  286,  286, 1295,   59, 1452,   59,
-       59,   60,   60,   60,   60,   60,   60,   60,   60,   60,
-       60,   60,   60,   60,   60,   60, 1433,   60,   60,   60,
-
-       60,   60,  100,  100,  100,  101,  101,  101, 1232,  102,
-      102,  102,  105,  105,  105,  106,  106,  106,  100, 1326,
-     1326,  101,  299,   60,   60,  102,  539, 1230,  105,  299,
-     1453,  106, 1315, 1230,   60,  298,  298,  298,  299, 1315,
-       60,  539,   60,   60,   63,   63,   63,   63,   63,   63,
-       63,   63,   63,   63,   63,   63,   63,   63,   63, 1434,
-       63,   63,   63,   63,   63,  107,  107,  107,  108,  108,
-      108, 1454,  109,  109,  109,  110,  110,  110,  111,  111,
-      111,  107, 1455, 1316,  108,  309,   63,   63,  109,  342,
-     1316,  110,  309, 1434,  111,  301,  301,  301,  308,  308,
-
-      308,  309,  311,  311,  311,  342,   63,   64,   64,   64,
-       64,   64,   64,   64,   64,   64,   64,   64,   64,   64,
-       64,   64, 1456,   64,   64,   64,   64,   64,  112,  112,
-      112,  115,  115,  115, 1457,  116,  116,  116,  117,  117,
-      117,  118,  118,  118,  112, 1458, 1338,  115, 1459,   64,
-       64,  116,  356, 1413,  117, 1413, 1460,  118,  321,  321,
-      321,  325,  325,  325,  335,  335,  335, 1461,  356,   64,
-       71,   71,   71,   71,   71,   71,   71,   71,   71,   71,
-       71,   71,   71,   71,   71, 1338,   71,   71,   71,   71,
-       71,  119,  119,  119,  120,  120,  120, 1465,  121,  121,
-
-      121,  122,  122,  122,  125,  125,  125,  119,  366,  361,
-      120,  381,   71,   71,  121,   71,  361,  122, 1466, 1415,
-      125, 1415, 1467,   71,  366,  361,   71,  381, 1339,   71,
-     1468, 1470,   71,   72,   72,   72,   72,   72,   72,   72,
-       72,   72,   72,   72,   72,   72,   72,   72, 1477,   72,
-       72,   72,   72,   72,  126,  126,  126,  129,  129,  129,
-     1478,  130,  130,  130,  131,  131,  131,  132,  132,  132,
-      126, 1339,  386,  129, 1479,   72,   72,  130,   72,  386,
-      131, 1050, 1420,  132, 1420, 1480,   72, 1050,  386,   72,
-     1050, 1422,   72, 1422, 1050,   72,   81,   81,   81,   81,
-
-       81,   81,   81,   81,   81,   81,   81,   81,   81,   81,
-       81,  374,   81,   81,   81,   81,   81,  133,  133,  133,
-      134,  134,  134, 1482,  135,  135,  135,  136,  136,  136,
-      139,  139,  139,  133, 1485, 1051,  134, 1486,   81,   81,
-      135, 1051, 1487,  136, 1051,  374,  139,  162, 1051,   81,
-      339,  339,  339,  349,  349,  349,  353,  353,  353,  374,
-     1488,   81,   82,   82,   82,   82,   82,   82,   82,   82,
-       82,   82,   82,   82,   82,   82,   82, 1489,   82,   82,
-       82,   82,   82,  140,  140,  140,  162,  360,  360,  360,
-     1490, 1495,  162,  363,  363,  363,  162, 1496, 1497,  140,
-
-     1498,  162, 1499, 1500,   82,   82,  373,  373,  373,  378,
-      378,  378,  385,  385,  385,   82,  387,  387,  387,  542,
-      542,  542, 1521,  542,  710,  710,  710,   82,   85,   85,
-       85,   85,   85,   85,   85,   85,   85,   85,   85,   85,
-       85,   85,   85,   85,   85,   85,   85,   85,   85,   85,
-       85,   85,   85,   85,   85,   85,   85,   85,   85,   85,
-       85,   85,   85,   85,   85,   85,   85,   85,   85,   85,
-       85,   85,   85,   85,   85,   85,   85,   85,   85,   85,
-       85,   85,   85,   85,   85,   85,   85,   85,   85,   85,
-       85,   85,   85,   85,   85,   85,   85,   89,   89,   89,
-
-       89,   89,   89,   89,   89,   89,   89,   89,   89,   89,
-       89,   89, 1513,   89,   89,   89,   89,   89,  396,  396,
-      396,  437,  437,  437,  445,  445,  445,  460,  460,  460,
-      472,  472,  472,  718,  718,  718, 1522, 1523,  437,   89,
-       89,  445, 1524, 1529,  460, 1530, 1531,  472, 1513, 1231,
-       89,   90,   90,   90,   90,   90,   90,   90,   90,   90,
-       90,   90,   90,   90,   90,   90, 1514,   90,   90,   90,
-       90,   90, 1532,  396,  480,  480,  480, 1231,  486,  486,
-      486,  487,  487,  487,  496,  496,  496,  888,  888,  888,
-     1527,  480, 1533,   90,   90,  486, 1534, 1535,  487, 1536,
-
-     1514,  496, 1527, 1515,   90,   93,   93,   93,   93,   93,
-       93,   93,   93,   93,   93,   93,   93,   93,   93,   93,
-     1537,   93,   93,   93,   93,   93,  501,  501,  501,  523,
-      523,  523,  553,  553,  553,  554,  554,  554,  581,  581,
-      581, 1110, 1515,  501, 1538, 1539,  523,   93,   93, 1541,
-      553,   93, 1542,  554, 1543, 1551,  581, 1110,   93, 1552,
-       93,  893,  893,  893,  896,  896,  896,   93,   94,   94,
-       94,   94,   94,   94,   94,   94,   94,   94,   94,   94,
-       94,   94,   94, 1553,   94,   94,   94,   94,   94,  554,
-      582,  582,  582, 1558, 1528,  584,  584,  584,  585,  585,
-
-      585, 1559,  585, 1560, 1561,  585, 1528, 1562,  582, 1563,
-       94,   94,  584, 1568,   94,  593,  593,  593, 1569,  593,
-     1570,   94,  593,   94,  900,  900,  900,  904,  904,  904,
-       94,  103,  103,  103,  103,  103,  103,  103,  103,  103,
-      103,  103,  103,  103,  103,  103,  582,  103,  103,  103,
-      103,  103,  588,  588,  588, 1571, 1572,  589,  589,  589,
-      592,  592,  592,  594,  594,  594,  596,  596,  596, 1573,
-      588, 1586, 1594,  103,  103,  589,  103,  592, 1587,  103,
-      594, 1565, 1566,  596,  607,  607,  607, 1596,  607, 1565,
-     1566,  607, 1585,  103,  104,  104,  104,  104,  104,  104,
-
-      104,  104,  104,  104,  104,  104,  104,  104,  104, 1586,
-      104,  104,  104,  104,  104, 1599, 1587,  589, 1585, 1600,
-      598,  598,  598,  604,  604,  604, 1601, 1602,  599,  599,
-      599,  605,  605,  605, 1603, 1604,  104,  104,  598,  104,
-     1605,  604,  104,  618,  618,  618,  599,  618, 1606,  605,
-      618,  930,  930,  930, 1607, 1609,  104,  113,  113,  113,
-      113,  113,  113,  113,  113,  113,  113,  113,  113,  113,
-      113,  113,  599,  113,  113,  113,  113,  113,  606,  606,
-      606, 1610, 1611,  611,  611,  611,  614,  614,  614, 1612,
-     1616,  605,  617,  617,  617,  606,  612,  612,  612,  113,
-
-      113,  611,  113, 1617,  614,  113, 1009, 1009, 1009,  617,
-      113,  626,  626,  626,  612,  626, 1621, 1623,  626,  113,
-      114,  114,  114,  114,  114,  114,  114,  114,  114,  114,
-      114,  114,  114,  114,  114, 1627,  114,  114,  114,  114,
-      114,  615,  615,  615,  612, 1628,  623,  623,  623,  624,
-      624,  624,  625,  625,  625, 1629,  628,  628,  628,  615,
-     1630, 1631,  114,  114,  623,  114, 1632,  624,  114,  625,
-     1011, 1011, 1011,  114,  628, 1015, 1015, 1015, 1021, 1021,
-     1021, 1633,  114,  123,  123,  123,  123,  123,  123,  123,
-      123,  123,  123,  123,  123,  123,  123,  123,  615,  123,
-
-      123,  123,  123,  123, 1634, 1635,  624, 1636, 1638,  629,
-      629,  629,  631,  631,  631,  632,  632,  632, 1639,  632,
-     1640, 1641,  632, 1642, 1643,  123,  123,  629, 1656,  631,
-     1022, 1022, 1022, 1047, 1047, 1047,  123,  124,  124,  124,
-      124,  124,  124,  124,  124,  124,  124,  124,  124,  124,
-      124,  124, 1650,  124,  124,  124,  124,  124,  633,  633,
-      633,  634,  634,  634, 1658,  634, 1662, 1663,  634,  629,
-      635,  635,  635, 1664, 1665,  633, 1126, 1126, 1126,  124,
-      124,  643,  643,  643, 1650,  643, 1667,  635,  643, 1668,
-      124,  127,  127,  127,  127,  127,  127,  127,  127,  127,
-
-      127,  127,  127,  127,  127,  127, 1669,  127,  127,  127,
-      127,  127,  640,  640,  640,  642,  642,  642,  644,  644,
-      644,  641,  641,  641,  645,  645,  645,  647,  647,  647,
-      640, 1670,  642,  127,  127, 1649,  644, 1671, 1672,  641,
-     1673,  127,  645,  127,  647,  127, 1127, 1127, 1127, 1129,
-     1129, 1129, 1674,  127,  128,  128,  128,  128,  128,  128,
-      128,  128,  128,  128,  128,  128,  128,  128,  128, 1678,
-      128,  128,  128,  128,  128,  641,  648,  648,  648, 1649,
-      648,  645, 1680,  648,  652,  652,  652,  653,  653,  653,
-      655,  655,  655,  656,  656,  656,  128,  128,  662,  662,
-
-      662, 1681,  652, 1684,  128,  653,  128,  655,  128, 1685,
-      656, 1130, 1130, 1130, 1686,  662,  128,  137,  137,  137,
-      137,  137,  137,  137,  137,  137,  137,  137,  137,  137,
-      137,  137, 1687,  137,  137,  137,  137,  137, 1688,  653,
-      659,  659,  659, 1689,  664,  664,  664,  660,  660,  660,
-      665,  665,  665,  666,  666,  666, 1679, 1679,  659,  137,
-      137,  664,  667,  667,  667,  660, 1690, 1691,  665, 1692,
-     1693,  666, 1694,  668,  668,  668, 1696,  668, 1697,  667,
-      668, 1698,  137,  138,  138,  138,  138,  138,  138,  138,
-      138,  138,  138,  138,  138,  138,  138,  138, 1699,  138,
-
-      138,  138,  138,  138,  660,  669,  669,  669, 1700, 1701,
-      666,  670,  670,  670,  675,  675,  675,  676,  676,  676,
-      679,  679,  679,  669, 1710,  138,  138, 1704, 1711,  670,
-     1712, 1713,  675, 1716, 1717,  676, 1719, 1720,  679,  680,
-      680,  680,  696,  696,  696,  725,  725,  725,  138,  181,
-      697,  697,  697,  890,  890,  890,  181,  680, 1704, 1721,
-      696, 1723,  725,  670, 1728,  181, 1729,  890,  697,  699,
-      699,  699, 1730,  726,  726,  726, 1731,  676,  727,  727,
-      727, 1737, 1738,  729,  729,  729, 1739,  699, 1740, 1741,
-      181,  726,  181, 1742, 1744,  181,  727,  181,  181,  680,
-
-      181,  729, 1746, 1749,  181, 1750,  181,  181,  181,  182,
-      730,  730,  730,  699, 1751, 1752,  182,  731,  731,  731,
-     1753,  731, 1754, 1761,  731,  182, 1769,  730, 1770,  729,
-      734,  734,  734,  736,  736,  736,  737,  737,  737, 1771,
-     1772,  739,  739,  739,  744,  744,  744,  734, 1776, 1777,
-      182,  736,  182, 1778,  737,  182, 1779,  182,  182,  739,
-      182,  744, 1761, 1780,  182, 1781,  182,  182,  182,  741,
-      741,  741, 1783,  741, 1784, 1785,  741,  745,  745,  745,
-     1786,  745, 1791, 1792,  745,  739, 1793,  734,  746,  746,
-      746,  747,  747,  747,  748,  748,  748, 1794,  748, 1795,
-
-     1796,  748,  750,  750,  750,  746, 1799, 1800,  747,  751,
-      751,  751,  753,  753,  753,  756,  756,  756, 1801, 1802,
-      750,  758,  758,  758,  759,  759,  759,  751, 1803, 1804,
-      753, 1819,  756,  761,  761,  761,  762,  762,  762,  758,
-      762, 1821,  759,  762,  768,  768,  768,  769,  769,  769,
-     1824,  761,  771,  771,  771,  773,  773,  773,  774,  774,
-      774, 1815,  768, 1816, 1813,  769, 1825, 1827,  753, 1828,
-      771, 1831, 1832,  773, 1816, 1815,  774,  761,  776,  776,
-      776,  778,  778,  778, 1833,  778, 1834, 1841,  778,  785,
-      785,  785,  786,  786,  786, 1842,  776,  788,  788,  788,
-
-     1844,  789,  789,  789, 1845,  789, 1813,  785,  789, 1847,
-      786,  793,  793,  793,  771,  788,  794,  794,  794,  796,
-      796,  796, 1848,  799,  799,  799, 1850,  799, 1851,  793,
-      799,  805,  805,  805,  794, 1858, 1839,  796,  776,  802,
-      802,  802, 1855,  802, 1840, 1860,  802, 1839,  805,  806,
-      806,  806, 1862,  806, 1863, 1840,  806, 1856,  788,  811,
-      811,  811,  812,  812,  812,  814,  814,  814,  815,  815,
-      815, 1856,  815, 1857, 1857,  815,  796,  811, 1872, 1855,
-      812, 1873, 1874,  814,  818,  818,  818,  819,  819,  819,
-      821,  821,  821,  823,  823,  823, 1859,  823, 1875, 1887,
-
-      823, 1888,  818, 1889, 1891,  819, 1892, 1859,  821,  829,
-      829,  829,  830,  830,  830,  832,  832,  832,  834,  834,
-      834, 1899,  835,  835,  835, 1902,  835,  829,  814,  835,
-      830, 1903, 1904,  832, 1905,  834, 1909,  836,  836,  836,
-      837,  837,  837, 1921,  837, 1925, 1926,  837,  840,  840,
-      840, 1927, 1928,  821,  836,  841,  841,  841,  843,  843,
-      843,  845,  845,  845, 1933, 1931,  840, 1934,  846,  846,
-      846,  832,  846,  841, 1935,  846,  843, 1936,  845,  848,
-      848,  848,  849,  849,  849, 1937,  849, 1931, 1940,  849,
-      850,  850,  850,  851,  851,  851,  848,  853,  853,  853,
-
-      854,  854,  854, 1941,  854, 1942, 1940,  854,  850, 1943,
-     1944,  851,  857,  857,  857,  853,  858,  858,  858, 1945,
-     1948,  843,  860,  860,  860,  862,  862,  862, 1950, 1951,
-      857,  865,  865,  865,  858,  866,  866,  866, 1952, 1948,
-      860, 1953,  862,  868,  868,  868,  871,  871,  871,  865,
-      872,  872,  872,  866,  874,  874,  874,  876,  876,  876,
-      853,  868, 1959, 1961,  871,  884,  884,  884,  872,  911,
-      911,  911,  874, 1411, 1979,  876,  876, 1983,  860,  901,
-      901,  901, 1980,  884, 1956, 1965,  911,  912,  912,  912,
-     1956,  912, 1991,  901,  912,  913,  913,  913, 1965, 1987,
-
-      868,  914,  914,  914,  874,  915,  915,  915, 2013,  915,
-     1984, 1983,  915,  913,  918,  918,  918, 1979,  914,  920,
-      920,  920, 1997,  920, 1991, 1980,  920,  884,  923,  923,
-      923, 1410,  918,  924,  924,  924, 1987,  924, 1992, 1409,
-      924,  929,  929,  929, 1984,  923,  925,  925,  925,  913,
-      925, 1408, 2013,  925,  932,  932,  932, 1988, 1998,  929,
-      918,  933,  933,  933, 1997,  933, 2007, 2014,  933, 2008,
-     1992,  932,  934,  934,  934,  935,  935,  935,  939,  939,
-      939,  941,  941,  941,  945,  945,  945, 1407,  929,  934,
-      946,  946,  946,  935, 1988, 2007,  939, 2005, 2008,  941,
-
-     1998,  945,  947,  947,  947, 2017, 2006,  946,  948,  948,
-      948, 2014,  949,  949,  949,  950,  950,  950, 2011, 2017,
-      947,  935,  951,  951,  951,  948,  955,  955,  955,  941,
-      949, 2005,  950,  946,  952,  952,  952, 2012,  952,  951,
-     2006,  952, 1406,  955,  956,  956,  956, 2011,  957,  957,
-      957,  958,  958,  958,  959,  959,  959,  960,  960,  960,
-     2009,  956, 2010, 1405,  947,  957, 2012, 1394,  958, 2009,
-      949, 2010,  959, 1393, 2015,  960, 1392,  964,  964,  964,
-      965,  965,  965, 1391,  951, 2016,  967,  967,  967, 2018,
-      967, 1390,  957,  967,  964,  970,  970,  970,  965,  970,
-
-     2018, 1389,  970, 2015,  974,  974,  974,  975,  975,  975,
-      956,  987,  987,  987, 2016,  959, 1388,  958,  974,  960,
-      964, 1387,  977,  977,  977,  975,  977, 1381,  987,  977,
-      981,  981,  981,  965,  981, 1380, 1379,  981,  984,  984,
-      984,  985,  985,  985,  988,  988,  988, 1378,  988, 1377,
-     1376,  988,  991,  991,  991, 1375,  984, 1374, 1373,  985,
-      993,  993,  993,  994,  994,  994,  997,  997,  997,  975,
-      991, 1005, 1005, 1005, 1017, 1017, 1017,  993, 1018, 1018,
-     1018,  994, 1372, 1366,  997, 1024, 1024, 1024, 1017, 1005,
-     1363, 1361, 1018, 1359,  985, 1025, 1025, 1025,  991, 1024,
-
-      984, 1027, 1027, 1027, 1029, 1029, 1029, 1355, 1354, 1025,
-     1030, 1030, 1030, 1335,  997, 1027, 1333, 1332, 1029, 1322,
-     1005, 1031, 1031, 1031, 1030, 1031,  994, 1317, 1031, 1314,
-      997, 1034, 1034, 1034, 1017, 1035, 1035, 1035, 1313, 1035,
-     1310, 1296, 1035, 1293, 1292, 1024, 1052, 1052, 1052, 1034,
-     1040, 1040, 1040, 1042, 1042, 1042, 1291, 1042, 1277, 1276,
-     1042, 1027, 1275, 1052, 1029, 1046, 1046, 1046, 1040, 1049,
-     1049, 1049, 1274, 1049, 1273, 1272, 1049, 1053, 1053, 1053,
-     1271, 1053, 1270, 1046, 1053, 1054, 1054, 1054, 1055, 1055,
-     1055, 1056, 1056, 1056, 1034, 1057, 1057, 1057, 1040, 1058,
-
-     1058, 1058, 1269, 1054, 1268, 1055, 1264, 1263, 1056, 1060,
-     1060, 1060, 1057, 1061, 1061, 1061, 1260, 1058, 1065, 1065,
-     1065, 1259, 1046, 1066, 1066, 1066, 1060, 1066, 1257, 1255,
-     1066, 1061, 1249, 1054, 1247, 1065, 1067, 1067, 1067, 1068,
-     1068, 1068, 1244, 1068, 1243, 1056, 1068, 1070, 1070, 1070,
-     1071, 1071, 1071, 1067, 1072, 1072, 1072, 1061, 1072, 1239,
-     1233, 1072, 1073, 1073, 1073, 1070, 1225, 1071, 1074, 1074,
-     1074, 1075, 1075, 1075, 1223, 1075, 1222, 1221, 1075, 1214,
-     1073, 1076, 1076, 1076, 1208, 1074, 1077, 1077, 1077, 1078,
-     1078, 1078, 1207, 1078, 1206, 1204, 1078, 1202, 1076, 1079,
-
-     1079, 1079, 1179, 1077, 1080, 1080, 1080, 1081, 1081, 1081,
-     1082, 1082, 1082, 1083, 1083, 1083, 1079, 1087, 1087, 1087,
-     1178, 1080, 1177, 1172, 1081, 1088, 1088, 1088, 1082, 1088,
-     1171, 1083, 1088, 1170, 1087, 1090, 1090, 1090, 1091, 1091,
-     1091, 1157, 1092, 1092, 1092, 1094, 1094, 1094, 1095, 1095,
-     1095, 1155, 1154, 1090, 1153, 1091, 1151, 1150, 1080, 1092,
-     1147, 1083, 1146, 1094, 1144, 1095, 1096, 1096, 1096, 1097,
-     1097, 1097, 1082, 1143, 1098, 1098, 1098, 1100, 1100, 1100,
-     1141, 1100, 1140, 1096, 1100, 1139, 1137, 1097, 1098, 1105,
-     1105, 1105, 1098, 1094, 1107, 1107, 1107, 1108, 1108, 1108,
-
-     1133, 1108, 1092, 1132, 1108, 1131, 1128, 1105, 1125, 1096,
-     1124, 1107, 1109, 1109, 1109, 1123, 1122, 1097, 1115, 1115,
-     1115, 1116, 1116, 1116, 1117, 1117, 1117, 1118, 1118, 1118,
-     1109, 1134, 1134, 1134, 1121, 1115, 1120, 1105, 1116, 1119,
-     1114, 1117, 1135, 1135, 1135, 1118, 1136, 1136, 1136, 1138,
-     1138, 1138, 1142, 1142, 1142, 1106, 1145, 1145, 1145, 1148,
-     1148, 1148, 1149, 1149, 1149, 1104, 1103, 1109, 1099, 1093,
-     1142, 1089, 1086, 1116, 1145, 1085, 1084, 1148, 1069, 1149,
-     1064, 1117, 1063, 1062, 1118, 1158, 1158, 1158, 1048, 1158,
-     1045, 1041, 1158, 1161, 1161, 1161, 1162, 1162, 1162, 1142,
-
-     1039, 1163, 1163, 1163, 1038, 1163, 1028, 1161, 1163, 1026,
-     1023, 1161, 1020, 1162, 1148, 1164, 1164, 1164, 1165, 1165,
-     1165, 1166, 1166, 1166, 1019, 1166, 1016, 1014, 1166, 1167,
-     1167, 1167, 1164, 1013, 1012, 1165, 1168, 1168, 1168, 1010,
-     1168, 1008, 1007, 1168, 1006, 1003, 1167, 1169, 1169, 1169,
-     1173, 1173, 1173, 1002, 1173,  999,  996, 1173,  992, 1176,
-     1176, 1176,  990, 1176,  989, 1169, 1176, 1180, 1180, 1180,
-     1182, 1182, 1182,  986, 1182,  980,  976, 1182, 1185, 1185,
-     1185,  973, 1187, 1187, 1187, 1180, 1187,  966,  963, 1187,
-     1190, 1190, 1190, 1169,  962,  961, 1185, 1191, 1191, 1191,
-
-      944, 1191,  943,  942, 1191,  940,  938, 1190, 1192, 1192,
-     1192,  937, 1192,  936,  931, 1192, 1195, 1195, 1195, 1196,
-     1196, 1196,  928, 1196,  919,  917, 1196, 1197, 1197, 1197,
-     1198, 1198, 1198, 1195, 1199, 1199, 1199,  916, 1199,  910,
-      909, 1199,  908,  907, 1197,  906,  905, 1198, 1200, 1200,
-     1200, 1201, 1201, 1201, 1203, 1203, 1203, 1205, 1205, 1205,
-      903, 1205,  902,  899, 1205,  898, 1200,  897,  895, 1201,
-      894, 1203, 1209, 1209, 1209, 1211, 1211, 1211, 1212, 1212,
-     1212,  892, 1212,  891,  889, 1212, 1213, 1213, 1213,  887,
-     1209,  886, 1211, 1216, 1216, 1216, 1200, 1203, 1215, 1215,
-
-     1215,  885,  883, 1213, 1218, 1218, 1218, 1219, 1219, 1219,
-     1216, 1201, 1215, 1217, 1217, 1217, 1215, 1217,  882,  881,
-     1217, 1218, 1220, 1220, 1220, 1219, 1224, 1224, 1224, 1226,
-     1226, 1226,  880, 1226,  879,  870, 1226,  869, 1213,  864,
-     1220, 1229, 1229, 1229, 1224, 1234, 1234, 1234, 1235, 1235,
-     1235,  863, 1235,  861,  847, 1235, 1236, 1236, 1236, 1229,
-      844, 1218, 1234, 1237, 1237, 1237,  839,  838, 1220,  833,
-     1238, 1238, 1238, 1236, 1240, 1240, 1240, 1241, 1241, 1241,
-     1237, 1242, 1242, 1242, 1245, 1245, 1245, 1224, 1238, 1229,
-     1246, 1246, 1246, 1248, 1248, 1248, 1250, 1250, 1250, 1251,
-
-     1251, 1251, 1252, 1252, 1252, 1253, 1253, 1253, 1254, 1254,
-     1254,  828, 1236, 1256, 1256, 1256, 1258, 1258, 1258, 1261,
-     1261, 1261, 1265, 1265, 1265,  827, 1237, 1266, 1266, 1266,
-     1238, 1267, 1267, 1267, 1258, 1267,  826, 1261, 1267,  822,
-     1265, 1278, 1278, 1278, 1266, 1279, 1279, 1279,  810, 1279,
-      809,  808, 1279, 1282, 1282, 1282, 1283, 1283, 1283, 1278,
-     1283,  807,  798, 1283, 1258, 1284, 1284, 1284,  797, 1284,
-     1282,  792, 1284, 1287, 1287, 1287,  784, 1287,  783,  782,
-     1287, 1290, 1290, 1290, 1297, 1297, 1297, 1278, 1297,  781,
-      777, 1297,  772, 1300, 1300, 1300,  767, 1300,  766, 1290,
-
-     1300, 1303, 1303, 1303, 1304, 1304, 1304,  765, 1304,  757,
-      755, 1304, 1305, 1305, 1305,  749, 1305,  740, 1303, 1305,
-     1308, 1308, 1308, 1309, 1309, 1309, 1311, 1311, 1311, 1312,
-     1312, 1312, 1290, 1312,  735,  724, 1312,  723, 1308,  722,
-      721, 1309,  719, 1311, 1318, 1318, 1318,  717, 1318,  716,
-      715, 1318, 1321, 1321, 1321, 1323, 1323, 1323, 1324, 1324,
-     1324,  714, 1324,  713,  712, 1324, 1327, 1327, 1327, 1321,
-     1328, 1328, 1328, 1323, 1330, 1330, 1330, 1331, 1331, 1331,
-     1308,  711,  709, 1327, 1334, 1334, 1334,  708, 1328, 1337,
-     1337, 1337, 1330,  706, 1331, 1336, 1336, 1336, 1321, 1340,
-
-     1340, 1340, 1334,  705, 1341, 1341, 1341, 1337, 1341,  704,
-     1323, 1341,  703, 1336, 1344, 1344, 1344, 1345, 1345, 1345,
-      702,  701, 1327, 1346, 1346, 1346, 1347, 1347, 1347,  700,
-      695, 1344,  694,  693, 1345,  692, 1330, 1348, 1348, 1348,
-      689, 1346, 1349, 1349, 1349, 1334, 1350, 1350, 1350,  688,
-      687, 1336, 1351, 1351, 1351, 1352, 1352, 1352, 1353, 1353,
-     1353, 1356, 1356, 1356, 1357, 1357, 1357, 1344, 1358, 1358,
-     1358, 1360, 1360, 1360, 1362, 1362, 1362,  685, 1346, 1345,
-     1365, 1365, 1365, 1367, 1367, 1367, 1369, 1369, 1369,  681,
-     1369,  678, 1362, 1369, 1382, 1382, 1382, 1365, 1383, 1383,
-
-     1383, 1367, 1383,  677,  674, 1383, 1386, 1386, 1386, 1395,
-     1395, 1395, 1382, 1395,  673,  672, 1395, 1398, 1398, 1398,
-     1399, 1399, 1399,  671, 1386, 1401, 1401, 1401,  663, 1402,
-     1402, 1402,  661, 1402,  658, 1398, 1402,  657, 1399, 1416,
-     1416, 1416, 1401, 1417, 1417, 1417, 1418, 1418, 1418,  654,
-      651, 1382, 1423, 1423, 1423,  650, 1416, 1424, 1424, 1424,
-     1425, 1425, 1425,  649, 1418, 1427, 1427, 1427, 1401, 1423,
-      646,  639, 1426, 1426, 1426, 1424, 1426, 1425,  638, 1426,
-      637,  636, 1427, 1429, 1429, 1429, 1430, 1430, 1430, 1431,
-     1431, 1431, 1432, 1432, 1432, 1423, 1435, 1435, 1435,  627,
-
-      622, 1429, 1436, 1436, 1436,  621,  620, 1431,  619, 1418,
-     1432,  616,  613, 1424, 1437, 1437, 1437,  610,  609, 1436,
-     1438, 1438, 1438, 1439, 1439, 1439, 1440, 1440, 1440,  608,
-      603, 1437, 1441, 1441, 1441, 1446, 1446, 1446, 1438, 1449,
-     1449, 1449, 1450, 1450, 1450,  602, 1450,  601,  600, 1450,
-     1432, 1431,  597, 1446,  595,  591, 1449, 1462, 1462, 1462,
-      587,  586, 1437, 1463, 1463, 1463, 1472, 1472, 1472, 1473,
-     1473, 1473, 1475, 1475, 1475, 1462,  583,  580, 1476, 1476,
-     1476, 1463, 1476, 1472,  579, 1476,  578, 1473,  577, 1475,
-     1484, 1484, 1484, 1491, 1491, 1491, 1492, 1492, 1492,  576,
-
-     1492,  575,  574, 1492, 1493, 1493, 1493, 1484,  573,  572,
-     1491,  571,  570, 1462, 1494, 1494, 1494, 1501, 1501, 1501,
-     1502, 1502, 1502, 1503, 1503, 1503,  569, 1503,  568,  567,
-     1503,  566, 1494,  565, 1501, 1506, 1506, 1506, 1502, 1507,
-     1507, 1507,  564, 1507,  563,  562, 1507,  561, 1508, 1508,
-     1508,  560, 1506, 1509, 1509, 1509, 1511, 1511, 1511, 1512,
-     1512, 1512,  559,  558, 1501, 1508,  557,  556, 1494,  555,
-      552, 1509, 1516, 1516, 1516,  551,  550, 1512, 1501, 1517,
-     1517, 1517,  548, 1517,  547,  546, 1517,  545,  544, 1516,
-     1518, 1518, 1518, 1519, 1519, 1519, 1525, 1525, 1525, 1526,
-
-     1526, 1526,  540, 1526,  538,  537, 1526, 1518, 1540, 1540,
-     1540, 1519,  536, 1525, 1546, 1546, 1546, 1547, 1547, 1547,
-      535, 1547,  532,  531, 1547,  530, 1540,  529, 1548, 1548,
-     1548, 1546, 1548,  528,  527, 1548, 1556, 1556, 1556, 1557,
-     1557, 1557,  524, 1557,  520,  519, 1557, 1564, 1564, 1564,
-      518, 1564,  517, 1556, 1564, 1567, 1567, 1567, 1574, 1574,
-     1574, 1575, 1575, 1575, 1540, 1576, 1576, 1576,  516,  513,
-     1578, 1578, 1578, 1567, 1578, 1574,  512, 1578, 1575, 1581,
-     1581, 1581,  511, 1576, 1582, 1582, 1582,  510, 1582,  509,
-      508, 1582, 1583, 1583, 1583,  505, 1581, 1588, 1588, 1588,
-
-      504, 1588,  503,  502, 1588, 1591, 1591, 1591,  500,  497,
-     1583, 1592, 1592, 1592,  493, 1592,  492, 1567, 1592, 1574,
-      491, 1575, 1591, 1593, 1593, 1593, 1595, 1595, 1595, 1597,
-     1597, 1597, 1598, 1598, 1598,  490, 1598,  489,  488, 1598,
-     1614, 1614, 1614, 1615, 1615, 1615, 1597, 1618, 1618, 1618,
-      485, 1618,  482,  481, 1618, 1622, 1622, 1622, 1614,  477,
-     1615, 1624, 1624, 1624,  476, 1624,  475,  474, 1624, 1637,
-     1637, 1637, 1622, 1644, 1644, 1644, 1645, 1645, 1645, 1655,
-     1655, 1655, 1651, 1651, 1651,  473, 1615, 1637, 1614,  471,
-     1644,  468,  467, 1645, 1646, 1646, 1646,  464, 1646, 1651,
-
-     1651, 1646, 1652, 1652, 1652,  463, 1652,  462,  461, 1652,
-     1657, 1657, 1657, 1659, 1659, 1659,  457, 1659,  456,  455,
-     1659, 1637, 1645, 1666, 1666, 1666, 1675, 1675, 1675, 1676,
-     1676, 1676, 1677, 1677, 1677, 1644, 1677,  454,  450, 1677,
-     1666, 1682, 1682, 1682, 1675,  449, 1676, 1683, 1683, 1683,
-      448, 1683,  447,  446, 1683, 1695, 1695, 1695, 1682, 1702,
-     1702, 1702, 1703, 1703, 1703, 1705, 1705, 1705, 1706, 1706,
-     1706,  444, 1675, 1695,  441,  440, 1702,  438,  436, 1703,
-      433,  432, 1705, 1705,  429, 1706, 1706,  427, 1707, 1707,
-     1707,  424, 1707,  423,  421, 1707, 1708, 1708, 1708, 1709,
-
-     1709, 1709, 1702,  420,  419, 1703, 1707, 1714, 1714, 1714,
-     1715, 1715, 1715,  418, 1715,  417,  416, 1715, 1724, 1724,
-     1724, 1725, 1725, 1725, 1714, 1725,  413,  412, 1725, 1732,
-     1732, 1732,  411, 1733, 1733, 1733, 1724, 1733,  410,  409,
-     1733, 1736, 1736, 1736,  408,  407, 1732, 1747, 1747, 1747,
-     1755, 1755, 1755, 1756, 1756, 1756,  406, 1756, 1736,  405,
-     1756, 1757, 1757, 1757,  402, 1747,  401, 1755, 1758, 1758,
-     1758,  400, 1759, 1759, 1759,  399, 1759,  398, 1757, 1759,
-     1724, 1760, 1760, 1760,  392, 1758, 1762, 1762, 1762, 1763,
-     1763, 1763,  391, 1763,  389,  383, 1763,  379, 1760, 1767,
-
-     1767, 1767,  376, 1762, 1762,  375,  371, 1763,  370, 1764,
-     1764, 1764,  369, 1764,  368,  364, 1764, 1768, 1768, 1768,
-      358, 1773, 1773, 1773,  354, 1773, 1757, 1764, 1773, 1788,
-     1788, 1788,  351, 1788,  347,  346, 1788,  345, 1782, 1782,
-     1782,  344, 1787, 1787, 1787,  340, 1760, 1765, 1765, 1765,
-     1765, 1765, 1765, 1765, 1765, 1765, 1782,  337, 1765, 1787,
-     1789, 1789, 1789, 1765, 1765, 1765, 1765, 1765, 1790, 1790,
-     1790,  331, 1790,  330,  326, 1790,  323, 1789, 1805, 1805,
-     1805,  318, 1805,  317,  316, 1805, 1808, 1808, 1808, 1765,
-     1765, 1766, 1766, 1766, 1766, 1766, 1766, 1766, 1766, 1766,
-
-      312,  306, 1766, 1808, 1812, 1812, 1812, 1766, 1766, 1766,
-     1766, 1766, 1809, 1809, 1809,  302, 1809,  296,  295, 1809,
-      293, 1812, 1814, 1814, 1814,  292, 1814,  287,  281, 1814,
-     1829, 1829, 1829, 1766, 1766, 1835, 1835, 1835, 1808, 1835,
-     1814,  280, 1835, 1838, 1838, 1838,  276, 1838, 1829,  273,
-     1838,  269, 1853, 1853, 1853,  268, 1812, 1817, 1817, 1817,
-     1817, 1817, 1817, 1817, 1817, 1817,  267,  265, 1817, 1853,
-     1854, 1854, 1854, 1817, 1817, 1817, 1817, 1817, 1861, 1861,
-     1861, 1868, 1868, 1868, 1894, 1894, 1894, 1854, 1894,  261,
-      258, 1894,  255, 1869, 1869, 1869, 1861, 1861, 1868, 1817,
-
-     1817, 1818, 1818, 1818, 1818, 1818, 1818, 1818, 1818, 1818,
-     1869,  253, 1818,  249, 1853,  243,  242, 1818, 1818, 1818,
-     1818, 1818, 1870, 1870, 1870, 1871, 1871, 1871, 1884, 1884,
-     1884,  241, 1854, 1885, 1885, 1885, 1886, 1886, 1886, 1870,
-      240,  236, 1871, 1818, 1818, 1884, 1890, 1890, 1890,  230,
-     1885, 1893, 1893, 1893, 1886, 1895, 1895, 1895,  229, 1896,
-     1896, 1896,  228, 1896, 1890, 1870, 1896,  224, 1893, 1897,
-     1897, 1897, 1895, 1898, 1898, 1898,  221, 1898,  216, 1884,
-     1898, 1900, 1900, 1900, 1885,  214, 1897,  213, 1901, 1901,
-     1901,  209, 1901,  206, 1890, 1901,  204,  203, 1900, 1906,
-
-     1906, 1906, 1907, 1907, 1907, 1908, 1908, 1908, 1912, 1912,
-     1912,  202, 1912,  198,  192, 1912, 1906,  188,  184, 1907,
-     1915, 1915, 1915, 1908, 1915,  178,  177, 1915, 1918, 1918,
-     1918,  173, 1918,  169,  168, 1918, 1922, 1922, 1922,  167,
-     1922, 1908, 1906, 1922,  161, 1907, 1929, 1929, 1929, 1930,
-     1930, 1930, 1938, 1938, 1938, 1939, 1939, 1939, 1946, 1946,
-     1946,  160,  158, 1929,  155,  143, 1930,    0,    0, 1938,
-        0,    0, 1939,    0,    0, 1946, 1947, 1947, 1947, 1949,
-     1949, 1949, 1954, 1954, 1954, 1955, 1955, 1955, 1957, 1957,
-     1957,    0,    0, 1947,    0,    0, 1949,    0,    0, 1954,
-
-        0,    0, 1955, 1929,    0, 1957, 1930,    0,    0, 1946,
-        0, 1958, 1958, 1958, 1938, 1958,    0, 1939, 1958, 1963,
-     1963, 1963, 1964, 1964, 1964,    0,    0, 1947,    0,    0,
-     1954,    0,    0, 1955,    0,    0, 1963,    0,    0, 1964,
-     1966, 1966, 1966,    0, 1966,    0,    0, 1966, 1971, 1971,
-     1971, 1972, 1972, 1972, 1973, 1973, 1973, 1974, 1974, 1974,
-     1975, 1975, 1975,    0,    0, 1971,    0,    0, 1972, 1976,
-     1976, 1976, 1973, 1976, 1974,    0, 1976, 1975,    0, 1963,
-        0,    0, 1964, 1977, 1977, 1977,    0, 1976, 1978, 1978,
-     1978, 1971,    0,    0, 1972, 1981, 1981, 1981,    0,    0,
-
-     1977,    0, 1982, 1982, 1982, 1978, 1985, 1985, 1985, 1986,
-     1986, 1986, 1981, 1989, 1989, 1989,    0,    0, 1974, 1982,
-     1975,    0,    0, 1985,    0,    0, 1986, 1990, 1990, 1990,
-     1989, 1977, 1993, 1993, 1993,    0, 1978,    0, 1994, 1994,
-     1994,    0, 1994,    0, 1990, 1994,    0,    0, 1982, 1993,
-        0, 1981,    0, 1985, 1995, 1995, 1995, 1996, 1996, 1996,
-        0, 1996,    0,    0, 1996, 1999, 1999, 1999,    0, 1999,
-        0, 1995, 1999, 1986, 2002, 2002, 2002,    0, 2002,    0,
-        0, 2002, 2019, 2019, 2019, 2020, 2020, 2020,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-
-     2019,    0,    0, 2020, 2023, 2023, 2023, 2023, 2023, 2023,
-     2023, 2023, 2023, 2024, 2024, 2024, 2024, 2024, 2024, 2024,
-     2024, 2024, 2025, 2025, 2025, 2025, 2025, 2025, 2025, 2025,
-     2025, 2026, 2026, 2026, 2026, 2026, 2026, 2026, 2026, 2026,
-     2027, 2027, 2027, 2027, 2027, 2027, 2027, 2027, 2027, 2028,
-     2028, 2028, 2028, 2028, 2028, 2028, 2028, 2028, 2029, 2029,
-     2029, 2029, 2029, 2029, 2029, 2029, 2029, 2030, 2030, 2030,
-     2030, 2030, 2030, 2030, 2030, 2030, 2031, 2031, 2031, 2031,
-     2031, 2031, 2031, 2031, 2031, 2032, 2032, 2032, 2032, 2032,
-     2032, 2032, 2032, 2032, 2033, 2033, 2033, 2033, 2033, 2033,
-
-     2033, 2033, 2033, 2034, 2034, 2034, 2034, 2034, 2034, 2034,
-     2034, 2034, 2035, 2035, 2035, 2035, 2035, 2035, 2035, 2035,
-     2035, 2036, 2036, 2036, 2036, 2036, 2036, 2036, 2036, 2036,
-     2037, 2037, 2037, 2037, 2037, 2037, 2037, 2037, 2037, 2038,
-     2038, 2038, 2038, 2038, 2038, 2038, 2038, 2038, 2039, 2039,
-     2039, 2039, 2039, 2039, 2039, 2039, 2039, 2040, 2040, 2040,
-     2040, 2040, 2040, 2040, 2040, 2040, 2041, 2041, 2041, 2041,
-     2041, 2041, 2041, 2041, 2041, 2042, 2042, 2042, 2042, 2042,
-     2042, 2042, 2042, 2042, 2043, 2043, 2043, 2043, 2043, 2043,
-     2043, 2043, 2043, 2044, 2044, 2044, 2044, 2044, 2044, 2044,
-
-     2044, 2044, 2045, 2045, 2045, 2045, 2045, 2045, 2045, 2045,
-     2045, 2046, 2046, 2046, 2046, 2046, 2046, 2046, 2046, 2046,
-     2047, 2047, 2047, 2047, 2047, 2047, 2047, 2047, 2047, 2048,
-     2048, 2048, 2048, 2048, 2048, 2048, 2048, 2048, 2049, 2049,
-     2049, 2049, 2049, 2049, 2049, 2049, 2049, 2050, 2050, 2050,
-     2050, 2050, 2050, 2050, 2050, 2050, 2051, 2051, 2051, 2051,
-     2051, 2051, 2051, 2051, 2051, 2052, 2052, 2052, 2052, 2052,
-     2052, 2052, 2052, 2052, 2053, 2053, 2053, 2053, 2053, 2053,
-     2053, 2053, 2053, 2054, 2054, 2054, 2054, 2054, 2054, 2054,
-     2054, 2054, 2055, 2055, 2055, 2055, 2055, 2055, 2055, 2055,
-
-     2055, 2056, 2056, 2056, 2056, 2056, 2056, 2056, 2056, 2056,
-     2057, 2057, 2057, 2057, 2057, 2057, 2057, 2057, 2057, 2058,
-     2058, 2058, 2058, 2058, 2058, 2058, 2058, 2058, 2059, 2059,
-     2059, 2059, 2059, 2059, 2059, 2059, 2059, 2060, 2060, 2060,
-     2060, 2060, 2060, 2060, 2060, 2060, 2061, 2061, 2061, 2061,
-     2061, 2061, 2061, 2061, 2061, 2062, 2062, 2062,    0,    0,
-        0, 2062, 2063, 2063, 2063,    0,    0,    0, 2063, 2064,
-     2064, 2064,    0,    0,    0, 2064, 2065, 2065, 2065,    0,
-        0,    0, 2065, 2066, 2066, 2066,    0,    0,    0, 2066,
-     2067, 2067, 2067,    0,    0,    0, 2067, 2068, 2068, 2068,
-
-        0,    0,    0, 2068, 2069, 2069, 2069,    0,    0,    0,
-     2069, 2070, 2070, 2070,    0,    0,    0, 2070, 2071, 2071,
-     2071,    0,    0,    0, 2071, 2072, 2072, 2072,    0,    0,
-        0, 2072, 2073, 2073, 2073,    0,    0,    0, 2073, 2074,
-     2074, 2074,    0,    0,    0, 2074, 2075, 2075, 2075,    0,
-        0,    0, 2075, 2076, 2076, 2076,    0,    0,    0, 2076,
-     2077, 2077, 2077,    0,    0,    0, 2077, 2078, 2078, 2078,
-        0,    0,    0, 2078, 2079, 2079, 2079, 2079, 2079, 2079,
-     2079,    0, 2079, 2080,    0,    0,    0, 2080, 2081,    0,
-        0,    0, 2081, 2082,    0,    0,    0, 2082, 2083,    0,
-
-        0,    0, 2083, 2084,    0,    0,    0, 2084, 2085,    0,
-        0,    0, 2085, 2086,    0,    0,    0, 2086, 2087,    0,
-        0,    0, 2087, 2088,    0,    0,    0, 2088, 2089, 2089,
-     2089,    0,    0,    0, 2089, 2090,    0,    0,    0, 2090,
-     2091, 2091, 2091,    0,    0,    0, 2091, 2092,    0,    0,
-        0, 2092, 2093, 2093, 2093,    0,    0,    0, 2093, 2094,
-        0,    0,    0, 2094, 2095, 2095, 2095,    0,    0,    0,
-     2095, 2096,    0,    0,    0, 2096, 2097, 2097, 2097,    0,
-        0,    0, 2097, 2098,    0,    0,    0, 2098, 2099, 2099,
-     2099,    0,    0,    0, 2099, 2100,    0,    0,    0, 2100,
-
-     2101, 2101, 2101,    0,    0,    0, 2101, 2102,    0,    0,
-        0, 2102, 2103, 2103, 2103,    0,    0,    0, 2103, 2104,
-        0,    0,    0, 2104, 2105, 2105, 2105, 2105, 2105, 2105,
-     2105, 2105, 2105, 2106,    0,    0,    0,    0, 2106, 2107,
-     2107, 2107,    0,    0,    0, 2107, 2108, 2108, 2108, 2108,
-        0,    0, 2108, 2108, 2109, 2109, 2109,    0,    0,    0,
-     2109, 2110, 2110, 2110, 2110,    0,    0, 2110, 2110, 2111,
-     2111, 2111,    0,    0,    0, 2111, 2112, 2112, 2112, 2112,
-        0,    0, 2112, 2112, 2113, 2113,&nb