136 SUBROUTINE clatm1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO )
143 INTEGER IDIST, INFO, IRSIGN, MODE, N
155 parameter( one = 1.0e0 )
165 EXTERNAL slaran, clarnd
171 INTRINSIC abs, exp, log, real
186 IF( mode.LT.-6 .OR. mode.GT.6 )
THEN
188 ELSE IF( ( mode.NE.-6 .AND. mode.NE.0 .AND. mode.NE.6 ) .AND.
189 $ ( irsign.NE.0 .AND. irsign.NE.1 ) )
THEN
191 ELSE IF( ( mode.NE.-6 .AND. mode.NE.0 .AND. mode.NE.6 ) .AND.
194 ELSE IF( ( mode.EQ.6 .OR. mode.EQ.-6 ) .AND.
195 $ ( idist.LT.1 .OR. idist.GT.4 ) )
THEN
197 ELSE IF( n.LT.0 )
THEN
202 CALL xerbla(
'CLATM1', -info )
209 GO TO ( 10, 30, 50, 70, 90, 110 )abs( mode )
234 alpha = cond**( -one / real( n-1 ) )
236 d( i ) = alpha**( i-1 )
247 alpha = ( one-temp ) / real( n-1 )
249 d( i ) = real( n-i )*alpha + temp
257 alpha = log( one / cond )
259 d( i ) = exp( alpha*slaran( iseed ) )
266 CALL clarnv( idist, iseed, n, d )
273 IF( ( mode.NE.-6 .AND. mode.NE.0 .AND. mode.NE.6 ) .AND.
276 ctemp = clarnd( 3, iseed )
277 d( i ) = d( i )*( ctemp / abs( ctemp ) )
subroutine xerbla(srname, info)
subroutine clatm1(mode, cond, irsign, idist, iseed, d, n, info)
CLATM1
subroutine clarnv(idist, iseed, n, x)
CLARNV returns a vector of random numbers from a uniform or normal distribution.