[BACK]Return to com.c CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / pProj

Diff for /capa/capa51/pProj/com.c between versions 1.3 and 1.5

version 1.3, 2000/07/07 18:33:03 version 1.5, 2001/10/29 19:36:53
Line 2 Line 2
    Copyright (C) 1992-2000 Michigan State University     Copyright (C) 1992-2000 Michigan State University
   
    The CAPA system is free software; you can redistribute it and/or     The CAPA system is free software; you can redistribute it and/or
    modify it under the terms of the GNU Library General Public License as     modify it under the terms of the GNU General Public License as
    published by the Free Software Foundation; either version 2 of the     published by the Free Software Foundation; either version 2 of the
    License, or (at your option) any later version.     License, or (at your option) any later version.
   
    The CAPA system is distributed in the hope that it will be useful,     The CAPA system is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of     but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Library General Public License for more details.     General Public License for more details.
   
    You should have received a copy of the GNU Library General Public     You should have received a copy of the GNU General Public
    License along with the CAPA system; see the file COPYING.  If not,     License along with the CAPA system; see the file COPYING.  If not,
    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,     write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
    Boston, MA 02111-1307, USA.     Boston, MA 02111-1307, USA.
Line 97  static long qrgnin; Line 97  static long qrgnin;
 */  */
     gsrgs(0L,&qrgnin);      gsrgs(0L,&qrgnin);
     if(qrgnin) goto S10;      if(qrgnin) goto S10;
     printf(      fprintf(stderr,
       " GETSD called before random number generator  initialized -- abort!\n");        " GETSD called before random number generator  initialized -- abort!\n");
     exit(0);      exit(0);
 S10:  S10:
Line 192  static long qrgnin; Line 192  static long qrgnin;
 */  */
     gsrgs(0L,&qrgnin);      gsrgs(0L,&qrgnin);
     if(qrgnin) goto S10;      if(qrgnin) goto S10;
     printf(      fprintf(stderr,
       " INITGN called before random number generator  initialized -- abort!\n");        " INITGN called before random number generator  initialized -- abort!\n");
     exit(1);      exit(1);
 S10:  S10:
Line 213  S30: Line 213  S30:
     *(Xlg2+g-1) = mltmod(Xa2w,*(Xlg2+g-1),Xm2);      *(Xlg2+g-1) = mltmod(Xa2w,*(Xlg2+g-1),Xm2);
     goto S50;      goto S50;
 S40:  S40:
     printf("isdtyp not in range in INITGN");      fprintf(stderr,"isdtyp not in range in INITGN");
     exit(1);      exit(1);
 S50:  S50:
     *(Xcg1+g-1) = *(Xlg1+g-1);      *(Xcg1+g-1) = *(Xlg1+g-1);
Line 346  static long qrgnin; Line 346  static long qrgnin;
 */  */
     gsrgs(0L,&qrgnin);      gsrgs(0L,&qrgnin);
     if(qrgnin) goto S10;      if(qrgnin) goto S10;
     printf(      fprintf(stderr,
       " SETANT called before random number generator  initialized -- abort!\n");        " SETANT called before random number generator  initialized -- abort!\n");
     exit(1);      exit(1);
 S10:  S10:
Line 383  static long qrgnin; Line 383  static long qrgnin;
 */  */
     gsrgs(0L,&qrgnin);      gsrgs(0L,&qrgnin);
     if(qrgnin) goto S10;      if(qrgnin) goto S10;
     printf(      fprintf(stderr,
       " SETSD called before random number generator  initialized -- abort!\n");        " SETSD called before random number generator  initialized -- abort!\n");
     exit(1);      exit(1);
 S10:  S10:
Removed from v.1.3  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>