HP MLIB User's Guide Vol. 2 7th Ed.

Chapter 7 Miscellaneous Routines 619
Vector long period random number generator SRANV/DRANV
Example Fill an array X that is 10 elements long with a sequence of pseudorandom
numbers using the vector subprogram SRANV.
INTEGER*8 ISEED
INTEGER*4 N,INCX
REAL*4 X(10)
ISEED = 1234 ! STARTING SEED
N = 10
INCX = 1
CALL SRANV (ISEED,N,X,INCX)
This fills array X with the same sequence of pseudorandom numbers and also
returns the same final value of ISEED, as does the “Example” on page 616 for
SRAN.