[BACK]Return to check.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan
File: [local] / OpenXM / src / kan96xx / Kan / check.c (download)

Revision 1.2, Sun Jan 16 07:55:38 2000 UTC (24 years, 4 months ago) by takayama
Branch: MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.1: +1 -0 lines 

Congratulation of sm1 version 3.* !

/* $OpenXM: OpenXM/src/kan96xx/Kan/check.c,v 1.2 2000/01/16 07:55:38 takayama Exp $ */
/*  work7/check.c  1996, 3/19 */
/*   should move to SSkan/Kan/check.c */
#include <stdio.h>
#define N0 4
struct ring {
  int dummy;
};

struct exps {
  int x;
  int D;
};

struct monomial {
  struct ring *ringp;
  struct exps e[N0];
};

/* --------------------------------------- */
struct monom {
  struct ring *ringp;
  int ee[N0*2];
};

main() {
  int i;
  struct monomial *mp;
  if (sizeof(struct monomial) != sizeof(struct monom)) {
    fprintf(stderr,"Error: monomial != monom \n");
  }

  mp = (struct monomial *)malloc(sizeof(struct monomial));
  for (i=0; i<N0; i++) {
    mp->e[i].x = i;
    mp->e[i].D = -i;
  }
  for (i=0; i<N0*2; i++) {
    printf(" %d ",((struct monom *)mp)->ee[i]);
  }
  printf("\n\n");
  for (i=0; i<N0*2; i++) {
    ((struct monom *)mp)->ee[i] = -i;
  }
  for (i=0; i<N0; i++) {
    printf(" %d ",mp->e[i].x);
    printf(" %d ",mp->e[i].D);
  }
  printf("\n\n");
}