MultiSource/Benchmarks/ASC_Sequoia/sphot/seedranf.f - third_party/llvm-test-suite - Git at Google



       subroutine seedranf( numStreams )
       include 'randseed.inc'
       integer*4 numStreams
       integer*4 tempNumStreams  !Because rans may change numStreams.
       NStreams = numStreams
       tempNumStreams = numStreams
       CALL rans(tempNumStreams,0,seedarray)
       return
       end


	subroutine seedranf( numStreams )
	include 'randseed.inc'
	integer*4 numStreams
	integer*4 tempNumStreams !Because rans may change numStreams.
	NStreams = numStreams
	tempNumStreams = numStreams
	CALL rans(tempNumStreams,0,seedarray)
	return
	end