Home
last modified time | relevance | path

Searched refs:ANRM (Results 1 – 25 of 1862) sorted by relevance

12345678910>>...75

/dports/net/netscript/netscript-1.7.1/modules/
H A Dnsansi.c26 #define ANRM CYN macro
51 printf("%s\n",ANRM); in local_dumpdata()
97 printf("%s<%s<%s<%s ",WHT,BCYN,CYN,ANRM); in ns_incoming()
99 printf("%s<%s-%s.%s ",WHT,BCYN,CYN,ANRM); in ns_incoming()
101 printf("%s<%s-%s'%s ",WHT,BCYN,CYN,ANRM); in ns_incoming()
103 printf(" %s|%s ",CYN,ANRM); in ns_incoming()
111 printf("%s<%s<%s<%s ",WHT,BCYN,CYN,ANRM); in ns_incoming()
142 printf("%s>%s>%s>%s ",GRN,BGRN,WHT,ANRM); in ns_outgoing()
144 printf("%s.%s-%s>%s ",GRN,BGRN,WHT,ANRM); in ns_outgoing()
146 printf("%s`%s-%s>%s ",GRN,BGRN,WHT,ANRM); in ns_outgoing()
[all …]
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/
H A Dzqrt12.f118 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM
171 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
173 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
177 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
179 ELSE IF( ANRM.GT.BIGNUM ) THEN
183 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
187 IF( ANRM.NE.ZERO ) THEN
199 IF( ANRM.GT.BIGNUM ) THEN
200 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
203 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dcqrt12.f118 REAL ANRM, BIGNUM, NRMSVL, SMLNUM
170 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
172 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
176 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
178 ELSE IF( ANRM.GT.BIGNUM ) THEN
182 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
186 IF( ANRM.NE.ZERO ) THEN
198 IF( ANRM.GT.BIGNUM ) THEN
199 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
202 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Ddqrt12.f109 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM
162 ANRM = DLANGE( 'M', M, N, WORK, M, DUMMY )
164 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
168 CALL DLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
170 ELSE IF( ANRM.GT.BIGNUM ) THEN
174 CALL DLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
178 IF( ANRM.NE.ZERO ) THEN
190 IF( ANRM.GT.BIGNUM ) THEN
191 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1,
194 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/LIN/
H A Dcqrt12.f121 REAL ANRM, BIGNUM, NRMSVL, SMLNUM
173 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
175 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
179 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
181 ELSE IF( ANRM.GT.BIGNUM ) THEN
185 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
189 IF( ANRM.NE.ZERO ) THEN
201 IF( ANRM.GT.BIGNUM ) THEN
202 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
205 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dzqrt12.f121 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM
174 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
176 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
180 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
182 ELSE IF( ANRM.GT.BIGNUM ) THEN
186 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
190 IF( ANRM.NE.ZERO ) THEN
202 IF( ANRM.GT.BIGNUM ) THEN
203 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
206 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Ddqrt12.f112 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM
165 ANRM = DLANGE( 'M', M, N, WORK, M, DUMMY )
167 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
171 CALL DLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
173 ELSE IF( ANRM.GT.BIGNUM ) THEN
177 CALL DLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
181 IF( ANRM.NE.ZERO ) THEN
193 IF( ANRM.GT.BIGNUM ) THEN
194 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1,
197 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dsqrt12.f112 REAL ANRM, BIGNUM, NRMSVL, SMLNUM
165 ANRM = SLANGE( 'M', M, N, WORK, M, DUMMY )
167 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
171 CALL SLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
173 ELSE IF( ANRM.GT.BIGNUM ) THEN
177 CALL SLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
181 IF( ANRM.NE.ZERO ) THEN
193 IF( ANRM.GT.BIGNUM ) THEN
194 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1,
197 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/blas/lapack-3.10.0/TESTING/LIN/
H A Dzqrt12.f118 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM local
171 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
173 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
177 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
179 ELSE IF( ANRM.GT.BIGNUM ) THEN
183 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
187 IF( ANRM.NE.ZERO ) THEN
199 IF( ANRM.GT.BIGNUM ) THEN
200 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
203 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dcqrt12.f118 REAL ANRM, BIGNUM, NRMSVL, SMLNUM
170 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
172 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
176 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
178 ELSE IF( ANRM.GT.BIGNUM ) THEN
182 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
186 IF( ANRM.NE.ZERO ) THEN
198 IF( ANRM.GT.BIGNUM ) THEN
199 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
202 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/
H A Dcqrt12.f118 REAL ANRM, BIGNUM, NRMSVL, SMLNUM
170 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
172 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
176 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
178 ELSE IF( ANRM.GT.BIGNUM ) THEN
182 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
186 IF( ANRM.NE.ZERO ) THEN
198 IF( ANRM.GT.BIGNUM ) THEN
199 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
202 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dzqrt12.f118 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM
171 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
173 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
177 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
179 ELSE IF( ANRM.GT.BIGNUM ) THEN
183 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
187 IF( ANRM.NE.ZERO ) THEN
199 IF( ANRM.GT.BIGNUM ) THEN
200 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
203 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/
H A Dcqrt12.f118 REAL ANRM, BIGNUM, NRMSVL, SMLNUM
170 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
172 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
176 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
178 ELSE IF( ANRM.GT.BIGNUM ) THEN
182 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
186 IF( ANRM.NE.ZERO ) THEN
198 IF( ANRM.GT.BIGNUM ) THEN
199 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
202 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dzqrt12.f118 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM
171 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
173 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
177 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
179 ELSE IF( ANRM.GT.BIGNUM ) THEN
183 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
187 IF( ANRM.NE.ZERO ) THEN
199 IF( ANRM.GT.BIGNUM ) THEN
200 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
203 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/
H A Dcqrt12.f121 REAL ANRM, BIGNUM, NRMSVL, SMLNUM local
173 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
175 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
179 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
181 ELSE IF( ANRM.GT.BIGNUM ) THEN
185 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
189 IF( ANRM.NE.ZERO ) THEN
201 IF( ANRM.GT.BIGNUM ) THEN
202 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
205 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dzqrt12.f121 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM
174 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
176 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
180 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
182 ELSE IF( ANRM.GT.BIGNUM ) THEN
186 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
190 IF( ANRM.NE.ZERO ) THEN
202 IF( ANRM.GT.BIGNUM ) THEN
203 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
206 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/LIN/
H A Dcqrt12.f121 REAL ANRM, BIGNUM, NRMSVL, SMLNUM
173 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
175 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
179 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
181 ELSE IF( ANRM.GT.BIGNUM ) THEN
185 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
189 IF( ANRM.NE.ZERO ) THEN
201 IF( ANRM.GT.BIGNUM ) THEN
202 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
205 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dzqrt12.f121 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM
174 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
176 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
180 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
182 ELSE IF( ANRM.GT.BIGNUM ) THEN
186 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
190 IF( ANRM.NE.ZERO ) THEN
202 IF( ANRM.GT.BIGNUM ) THEN
203 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
206 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/LIN/
H A Dzqrt12.f121 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM local
174 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
176 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
180 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
182 ELSE IF( ANRM.GT.BIGNUM ) THEN
186 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
190 IF( ANRM.NE.ZERO ) THEN
202 IF( ANRM.GT.BIGNUM ) THEN
203 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
206 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dcqrt12.f121 REAL ANRM, BIGNUM, NRMSVL, SMLNUM local
173 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
175 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
179 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
181 ELSE IF( ANRM.GT.BIGNUM ) THEN
185 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
189 IF( ANRM.NE.ZERO ) THEN
201 IF( ANRM.GT.BIGNUM ) THEN
202 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
205 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/
H A Dcqrt12.f121 REAL ANRM, BIGNUM, NRMSVL, SMLNUM
173 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
175 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
179 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
181 ELSE IF( ANRM.GT.BIGNUM ) THEN
185 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
189 IF( ANRM.NE.ZERO ) THEN
201 IF( ANRM.GT.BIGNUM ) THEN
202 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
205 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dzqrt12.f121 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM local
174 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
176 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
180 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
182 ELSE IF( ANRM.GT.BIGNUM ) THEN
186 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
190 IF( ANRM.NE.ZERO ) THEN
202 IF( ANRM.GT.BIGNUM ) THEN
203 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
206 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/cblas/lapack-3.10.0/TESTING/LIN/
H A Dcqrt12.f118 REAL ANRM, BIGNUM, NRMSVL, SMLNUM
170 ANRM = CLANGE( 'M', M, N, WORK, M, DUMMY )
172 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
176 CALL CLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
178 ELSE IF( ANRM.GT.BIGNUM ) THEN
182 CALL CLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
186 IF( ANRM.NE.ZERO ) THEN
198 IF( ANRM.GT.BIGNUM ) THEN
199 CALL SLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
202 IF( ANRM.LT.SMLNUM ) THEN
[all …]
H A Dzqrt12.f118 DOUBLE PRECISION ANRM, BIGNUM, NRMSVL, SMLNUM
171 ANRM = ZLANGE( 'M', M, N, WORK, M, DUMMY )
173 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
177 CALL ZLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, WORK, M, INFO )
179 ELSE IF( ANRM.GT.BIGNUM ) THEN
183 CALL ZLASCL( 'G', 0, 0, ANRM, BIGNUM, M, N, WORK, M, INFO )
187 IF( ANRM.NE.ZERO ) THEN
199 IF( ANRM.GT.BIGNUM ) THEN
200 CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, MN, 1, RWORK( 1 ),
203 IF( ANRM.LT.SMLNUM ) THEN
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/
H A Dmb03ud.f132 DOUBLE PRECISION ANRM, BIGNUM, EPS, SMLNUM local
209 ANRM = DLANTR( 'Max', 'Upper', 'Non-unit', N, N, A, LDA, DUM )
211 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN
213 CALL DLASCL( 'Upper', 0, 0, ANRM, SMLNUM, N, N, A, LDA, INFO )
214 ELSE IF( ANRM.GT.BIGNUM ) THEN
216 CALL DLASCL( 'Upper', 0, 0, ANRM, BIGNUM, N, N, A, LDA, INFO )
284 IF( ANRM.GT.BIGNUM )
286 IF( INFO.NE.0 .AND. ANRM.GT.BIGNUM )
287 $ CALL DLASCL( 'G', 0, 0, BIGNUM, ANRM, N-1, 1, DWORK(2), N,
289 IF( ANRM.LT.SMLNUM )
[all …]

12345678910>>...75