Mercurial > octave-nkf
view libcruft/ranlib/getcgn.f @ 16062:cc5a7d1233f3 stable rc-3-6-4-2
bump version for 3.6.4-rc2
* configure.ac (AC_INIT): Version is now 3.6.4-rc2.
(OCTAVE_RELEASE_DATE): Now 2013-02-11.
(OCTAVE_COPYRIGHT): Now 2013.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 11 Feb 2013 16:22:26 -0500 |
parents | 0e71ead7359d |
children |
line wrap: on
line source
SUBROUTINE getcgn(g) INTEGER g C********************************************************************** C C SUBROUTINE GETCGN(G) C Get GeNerator C C Returns in G the number of the current random number generator C C C Arguments C C C G <-- Number of the current random number generator (1..32) C INTEGER G C C********************************************************************** C INTEGER curntg,numg SAVE curntg PARAMETER (numg=32) DATA curntg/1/ C g = curntg RETURN ENTRY setcgn(g) C********************************************************************** C C SUBROUTINE SETCGN( G ) C Set GeNerator C C Sets the current generator to G. All references to a generat C are to the current generator. C C C Arguments C C C G --> Number of the current random number generator (1..32) C INTEGER G C C********************************************************************** C C Abort if generator number out of range C IF (.NOT. (g.LT.0.OR.g.GT.numg)) GO TO 10 WRITE (*,*) ' Generator number out of range in SETCGN:', + ' Legal range is 1 to ',numg,' -- ABORT!' CALL XSTOPX (' Generator number out of range in SETCGN') 10 curntg = g RETURN END