--- capa/capa51/pProj/com.c 1999/09/28 21:26:21 1.1.1.1 +++ capa/capa51/pProj/com.c 2001/10/29 19:36:53 1.5 @@ -1,3 +1,27 @@ +/* library of functions for the Random number generator + Copyright (C) 1992-2000 Michigan State University + + The CAPA system is free software; you can redistribute it and/or + modify it under the terms of the GNU General Public License as + published by the Free Software Foundation; either version 2 of the + License, or (at your option) any later version. + + The CAPA system is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details. + + You should have received a copy of the GNU General Public + License along with the CAPA system; see the file COPYING. If not, + write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. + + As a special exception, you have permission to link this program + with the TtH/TtM library and distribute executables, as long as you + follow the requirements of the GNU GPL in regard to all of the + software in the executable aside from TtH/TtM. +*/ + #include "ranlib.h" #include #include @@ -73,7 +97,7 @@ static long qrgnin; */ gsrgs(0L,&qrgnin); if(qrgnin) goto S10; - printf( + fprintf(stderr, " GETSD called before random number generator initialized -- abort!\n"); exit(0); S10: @@ -168,7 +192,7 @@ static long qrgnin; */ gsrgs(0L,&qrgnin); if(qrgnin) goto S10; - printf( + fprintf(stderr, " INITGN called before random number generator initialized -- abort!\n"); exit(1); S10: @@ -189,7 +213,7 @@ S30: *(Xlg2+g-1) = mltmod(Xa2w,*(Xlg2+g-1),Xm2); goto S50; S40: - printf("isdtyp not in range in INITGN"); + fprintf(stderr,"isdtyp not in range in INITGN"); exit(1); S50: *(Xcg1+g-1) = *(Xlg1+g-1); @@ -322,7 +346,7 @@ static long qrgnin; */ gsrgs(0L,&qrgnin); if(qrgnin) goto S10; - printf( + fprintf(stderr, " SETANT called before random number generator initialized -- abort!\n"); exit(1); S10: @@ -359,7 +383,7 @@ static long qrgnin; */ gsrgs(0L,&qrgnin); if(qrgnin) goto S10; - printf( + fprintf(stderr, " SETSD called before random number generator initialized -- abort!\n"); exit(1); S10: