/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | sorter.f | 32 INTEGER A,B,BMIN,BMAX local 56 BMIN=BMAX 63 1070 IF(BMIN.GE.B(K,ICOL))BMIN=B(K,ICOL) 64 IF(BMIN.EQ.B(K,ICOL))KK=K 76 BMIN=BMAX+BMAX 102 BMIN=BMAX 109 1190 IF(BMIN.GE.B(IROW,K))BMIN=B(IROW,K) 110 IF(BMIN.EQ.B(IROW,K))KK=K 122 BMIN=BMAX+BMAX
|
/dports/math/cmlib/cmlib-3.0_8/src/odrpack/ |
H A D | dsclb.f | 43 DOUBLE PRECISION BMIN 86 BMIN = BMAX 89 BMIN = MIN(BMIN,ABS(BETA(K))) 92 BIGDIF = LOG10(BMAX)-LOG10(BMIN).GE.TWO 95 SSF(K) = ONE/(SQRT(EPSMAC)*BMIN)
|
H A D | ssclb.f | 43 REAL BMIN 86 BMIN = BMAX 89 BMIN = MIN(BMIN,ABS(BETA(K))) 92 BIGDIF = LOG10(BMAX)-LOG10(BMIN).GE.TWO 95 SSF(K) = ONE/(SQRT(EPSMAC)*BMIN)
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
H A D | dlag2.f | 107 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 136 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 137 IF( ABS( B11 ).LT.BMIN ) 138 $ B11 = SIGN( BMIN, B11 ) 139 IF( ABS( B22 ).LT.BMIN ) 140 $ B22 = SIGN( BMIN, B22 )
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlag2.f | 185 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 214 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 215 IF( ABS( B11 ).LT.BMIN ) 216 $ B11 = SIGN( BMIN, B11 ) 217 IF( ABS( B22 ).LT.BMIN ) 218 $ B22 = SIGN( BMIN, B22 )
|
H A D | slag2.f | 185 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 214 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 215 IF( ABS( B11 ).LT.BMIN ) 216 $ B11 = SIGN( BMIN, B11 ) 217 IF( ABS( B22 ).LT.BMIN ) 218 $ B22 = SIGN( BMIN, B22 )
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | slag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
H A D | dlag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dlag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
H A D | slag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | slag2.f | 107 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, local 136 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 137 IF( ABS( B11 ).LT.BMIN ) 138 $ B11 = SIGN( BMIN, B11 ) 139 IF( ABS( B22 ).LT.BMIN ) 140 $ B22 = SIGN( BMIN, B22 )
|
H A D | dlag2.f | 107 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, local 136 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 137 IF( ABS( B11 ).LT.BMIN ) 138 $ B11 = SIGN( BMIN, B11 ) 139 IF( ABS( B22 ).LT.BMIN ) 140 $ B22 = SIGN( BMIN, B22 )
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | slag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
H A D | dlag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | slag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
H A D | dlag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
/dports/math/algae/algae-4.3.6/lapack/ |
H A D | dlag2.f | 107 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 136 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 137 IF( ABS( B11 ).LT.BMIN ) 138 $ B11 = SIGN( BMIN, B11 ) 139 IF( ABS( B22 ).LT.BMIN ) 140 $ B22 = SIGN( BMIN, B22 )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlag2.f | 185 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, local 214 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 215 IF( ABS( B11 ).LT.BMIN ) 216 $ B11 = SIGN( BMIN, B11 ) 217 IF( ABS( B22 ).LT.BMIN ) 218 $ B22 = SIGN( BMIN, B22 )
|
H A D | slag2.f | 185 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, local 214 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 215 IF( ABS( B11 ).LT.BMIN ) 216 $ B11 = SIGN( BMIN, B11 ) 217 IF( ABS( B22 ).LT.BMIN ) 218 $ B22 = SIGN( BMIN, B22 )
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dlag2.f | 107 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 136 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 137 IF( ABS( B11 ).LT.BMIN ) 138 $ B11 = SIGN( BMIN, B11 ) 139 IF( ABS( B22 ).LT.BMIN ) 140 $ B22 = SIGN( BMIN, B22 )
|
H A D | slag2.f | 107 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 136 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 137 IF( ABS( B11 ).LT.BMIN ) 138 $ B11 = SIGN( BMIN, B11 ) 139 IF( ABS( B22 ).LT.BMIN ) 140 $ B22 = SIGN( BMIN, B22 )
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
H A D | dlag2.f | 182 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 211 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 212 IF( ABS( B11 ).LT.BMIN ) 213 $ B11 = SIGN( BMIN, B11 ) 214 IF( ABS( B22 ).LT.BMIN ) 215 $ B22 = SIGN( BMIN, B22 )
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/double/ |
H A D | dlag2.f | 107 $ BMIN, BNORM, BSCALE, BSIZE, C1, C2, C3, C4, C5, 136 BMIN = RTMIN*MAX( ABS( B11 ), ABS( B12 ), ABS( B22 ), RTMIN ) 137 IF( ABS( B11 ).LT.BMIN ) 138 $ B11 = SIGN( BMIN, B11 ) 139 IF( ABS( B22 ).LT.BMIN ) 140 $ B22 = SIGN( BMIN, B22 )
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/soppa/ |
H A D | so_ordeig.F | 282 BMIN = ALFAI(I) 286 BMIN = ALFAI(J) 294 ALFAI(I) = BMIN 302 BMIN = ALFAI(I) 306 BMIN = ALFAI(J) 314 ALFAI(I) = BMIN
|