Mercurial > octave
view liboctave/external/ranlib/genprm.f @ 33658:b1d6e40ac737 stable tip
NEWS.9.md: Fix typo and minor formatting changes.
* etc/NEWS.9.md: Fix typo. Adjust whitespace. Use markdown syntax for code
snippets.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Wed, 05 Jun 2024 11:27:35 +0200 |
parents | 32671b14ed7b |
children |
line wrap: on
line source
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*4 larray C .. C .. Array Arguments .. INTEGER*4 iarray(larray) C .. C .. Local Scalars .. INTEGER*4 i,itmp,iwhich C .. C .. External Functions .. INTEGER*4 ignuin EXTERNAL ignuin C .. C .. Executable Statements .. DO 10,i = 1,larray iwhich = ignuin(i,larray) itmp = iarray(iwhich) iarray(iwhich) = iarray(i) iarray(i) = itmp 10 CONTINUE RETURN END