Mercurial > octave-nkf
view libcruft/ranlib/getcgn.f @ 7334:274d9642ac10 release-3-0-0
[project @ 2007-12-22 01:42:45 by jwe]
author | jwe |
---|---|
date | Sat, 22 Dec 2007 01:42:46 +0000 |
parents | df7c57a6639d |
children | 0e71ead7359d |
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!' STOP ' Generator number out of range in SETCGN' 10 curntg = g RETURN END