/dports/net/netscript/netscript-1.7.1/modules/ |
H A D | nsansi.c | 26 #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 D | zqrt12.f | 118 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 D | cqrt12.f | 118 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 D | dqrt12.f | 109 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 D | cqrt12.f | 121 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 D | zqrt12.f | 121 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 D | dqrt12.f | 112 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 D | sqrt12.f | 112 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 D | zqrt12.f | 118 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 D | cqrt12.f | 118 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 D | cqrt12.f | 118 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 D | zqrt12.f | 118 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 D | cqrt12.f | 118 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 D | zqrt12.f | 118 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 D | cqrt12.f | 121 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 D | zqrt12.f | 121 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 D | cqrt12.f | 121 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 D | zqrt12.f | 121 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 D | zqrt12.f | 121 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 D | cqrt12.f | 121 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 D | cqrt12.f | 121 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 D | zqrt12.f | 121 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 D | cqrt12.f | 118 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 D | zqrt12.f | 118 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 D | mb03ud.f | 132 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 …]
|