Mercurial > octave-nkf
view libcruft/ranlib/genunf.f @ 16088:b29b10fbb744 stable release-3-6-4
Version 3.6.4 released.
* configure.ac (AC_INIT): Version is now 3.6.4.
(OCTAVE_RELEASE_DATE): Now 2013-02-21.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 21 Feb 2013 15:17:54 -0500 |
parents | 0e71ead7359d |
children |
line wrap: on
line source
REAL FUNCTION genunf(low,high) C********************************************************************** C C REAL FUNCTION GENUNF( LOW, HIGH ) C C GeNerate Uniform Real between LOW and HIGH C C C Function C C C Generates a real uniformly distributed between LOW and HIGH. C C C Arguments C C C LOW --> Low bound (exclusive) on real value to be generated C REAL LOW C C HIGH --> High bound (exclusive) on real value to be generated C REAL HIGH C C********************************************************************** C .. Scalar Arguments .. REAL high,low C .. C .. External Functions .. REAL ranf EXTERNAL ranf C .. C .. Executable Statements .. IF (.NOT. (low.GT.high)) GO TO 10 WRITE (*,*) 'LOW > HIGH in GENUNF: LOW ',low,' HIGH: ',high WRITE (*,*) 'Abort' CALL XSTOPX ('LOW > High in GENUNF - Abort') 10 genunf = low + (high-low)*ranf() RETURN END