lit
    JINRLIB

PERMUT -

V203

: T.Lindelof :

accapac copaco op c N! pcaoo
c 1,2,...,N.
PERMUT pp ocpco aa ooa
NP- pcao ( cooc c copac opo)
pa p 1,2,...,NP-1 pcaoo.

:

: - SUBROUTINE
: - PERMUT

:

CALL PERMUT (NP,N,IP)

PERMUT ao IP(I), I=1,...,N o 1 o N op, oop
cooc NP-o copac opoo pcao
c. NP o aoc 1 N!.

:

N<=12 o o, .. 12! - ao aopa,
oop o aca a o oo INTEGER*4.

:

PERMUT c cooa pa copaco
op "o" pcaoo. oo cooa popa
PERMU (V202), oopa pp "c" pcao
( aao) paoa cp, PERMUT.

:
    DIMENSION IP(4)
    CALL PERMUT(24,4,IP)

    aca  I(I),I=1,...,4  4,3,2,1, o cooc
    copac 24-o pcao  c 1,2,3,4.
:
                  4

                 24.  4  3  2  1


home up e-mail