SCALAPACK 2.2.2
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ setran()

subroutine setran ( integer, dimension(2)  iran,
integer, dimension(2)  ia,
integer, dimension(2)  ic 
)

Definition at line 141 of file pmatgeninc.f.

142*
143* -- ScaLAPACK routine (version 1.7) --
144* University of Tennessee, Knoxville, Oak Ridge National Laboratory,
145* and University of California, Berkeley.
146* May 1, 1997
147*
148* .. Array Arguments ..
149 INTEGER IA(2), IC(2), IRAN(2)
150* ..
151*
152* =====================================================================
153*
154* .. Local Scalars ..
155 INTEGER I
156* ..
157* .. Local Arrays ..
158 INTEGER IAS(2), ICS(2), IRAND(2)
159* ..
160* .. Common Blocks ..
161 COMMON /rancom/ irand, ias, ics
162 SAVE /rancom/
163* ..
164* .. Executable Statements ..
165*
166 DO 10 i = 1, 2
167 irand(i) = iran(i)
168 ias(i) = ia(i)
169 ics(i) = ic(i)
170 10 CONTINUE
171*
172 RETURN
173*
174* End of SETRAN
175*