version 1.4, 2000/08/07 20:47:29
|
version 1.5, 2001/10/29 19:36:53
|
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: |