df/d2d/getcgn_8f_source.html

       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

getcgn
subroutine getcgn(g)
Definition: getcgn.f:1