df/d2d/getcgn_8f_source.html

      SUBROUTINE getcgn(g)

      INTEGER*4 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*4 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:2