1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
SUBROUTINE genprm(iarray,larray)
C**********************************************************************
C
C SUBROUTINE GENPRM( IARRAY, LARRAY )
C GENerate random PeRMutation of iarray
C
C
C Arguments
C
C
C IARRAY <--> On output IARRAY is a random permutation of its
C value on input
C INTEGER IARRAY( LARRAY )
C
C LARRAY <--> Length of IARRAY
C INTEGER LARRAY
C
C**********************************************************************
C .. Scalar Arguments ..
INTEGER larray
C ..
C .. Array Arguments ..
INTEGER iarray(larray)
C ..
C .. Local Scalars ..
INTEGER i,itmp,iwhich
C ..
C .. External Functions ..
INTEGER ignuin
EXTERNAL ignuin
C ..
C .. Executable Statements ..
DO 10,i = 1,larray
iwhich = ignuin(i,larray,ierr)
itmp = iarray(iwhich)
iarray(iwhich) = iarray(i)
iarray(i) = itmp
10 CONTINUE
RETURN
END
|
