libbpm: bpmnr/nr_seed.c Source File

00001 
00005 #include <bpm/bpm_messages.h>
00006 #include <bpm/bpm_nr.h>
00007 
00008 
00009 long bpm_rseed = -15041979; 
00019 int nr_seed( long seed ) {
00020 
00021   if ( seed == 0 ) {
00022     bpm_error("Cannot have a 0 random seed", __FILE__, __LINE__ );
00023     return BPM_FAILURE;
00024   }
00025   
00026   bpm_rseed = ( ( seed > 0 ) ? -seed : seed );
00027   
00028   return BPM_SUCCESS;
00029 }