GNU Octave: libcruft/ranlib/genprm.f Source File

Go to the documentation of this file.
00001       SUBROUTINE genprm(iarray,larray)
00002 C**********************************************************************
00003 C
00004 C    SUBROUTINE GENPRM( IARRAY, LARRAY )
00005 C               GENerate random PeRMutation of iarray
00006 C
00007 C
00008 C                              Arguments
00009 C
00010 C
00011 C     IARRAY <--> On output IARRAY is a random permutation of its
00012 C                 value on input
00013 C                         INTEGER IARRAY( LARRAY )
00014 C
00015 C     LARRAY <--> Length of IARRAY
00016 C                         INTEGER LARRAY
00017 C
00018 C**********************************************************************
00019 C     .. Scalar Arguments ..
00020       INTEGER larray
00021 C     ..
00022 C     .. Array Arguments ..
00023       INTEGER iarray(larray)
00024 C     ..
00025 C     .. Local Scalars ..
00026       INTEGER i,itmp,iwhich
00027 C     ..
00028 C     .. External Functions ..
00029       INTEGER ignuin
00030       EXTERNAL ignuin
00031 C     ..
00032 C     .. Executable Statements ..
00033       DO 10,i = 1,larray
00034           iwhich = ignuin(i,larray)
00035           itmp = iarray(iwhich)
00036           iarray(iwhich) = iarray(i)
00037           iarray(i) = itmp
00038    10 CONTINUE
00039       RETURN
00040 
00041       END