rand2.c

/*  Link in this file for random number generation with rand() */

#include <stdio.h>
#include <stdlib.h>

	double
ran1()
{
	int rand();
	return( rand()/(RAND_MAX+1.0)  );
}


	void seedit( const char *flag)
{
	FILE *fopen(), *pfseed;
	unsigned int seed2 ;

  if( flag[0] == 's' ) {
    pfseed = fopen("seedms","r");
        if( pfseed == NULL ) {
           seed2 = 59243; }
        else {
          fscanf(pfseed," %d",&seed2);
          fclose( pfseed);
          }
          srand( seed2) ;

        printf("\n%d\n", seed2 );    
	}
   else {
	pfseed = fopen("seedms","w");
        fprintf(pfseed,"%d \n",rand()); 
	   fclose( pfseed);   /* added 8 Sept 2014,  thanks to Feng Gao */ 

	}
}

	int
commandlineseed( char **seeds)
{
	unsigned int seed2 ;
    void srand(unsigned int seed);
	
	seed2 = atoi( seeds[0] );

	printf("\n%d\n", seed2 );    

	srand(seed2) ; 
	return(1);
}