Home
last modified time | relevance | path

Searched refs:AYB (Results 1 – 25 of 273) sorted by relevance

1234567891011

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddla_lin_berr.f102 SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
113 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS )
143 IF (AYB(I,J) .NE. 0.0D+0) THEN
144 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dsla_lin_berr.f102 SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
113 REAL AYB( N, NRHS ), BERR( NRHS )
143 IF (AYB(I,J) .NE. 0.0) THEN
144 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dcla_lin_berr.f102 SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
113 REAL AYB( N, NRHS ), BERR( NRHS )
150 IF (AYB(I,J) .NE. 0.0) THEN
151 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Ddla_lin_berr.f100 SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
110 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0D+0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dsla_lin_berr.f100 SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dcla_lin_berr.f100 SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
147 IF (AYB(I,J) .NE. 0.0) THEN
148 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
H A Dzla_lin_berr.f100 SUBROUTINE ZLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS )
147 IF (AYB(I,J) .NE. 0.0D+0) THEN
148 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
/dports/math/blas/lapack-3.10.0/SRC/
H A Ddla_lin_berr.f100 SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
110 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0D+0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dsla_lin_berr.f100 SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dcla_lin_berr.f100 SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
147 IF (AYB(I,J) .NE. 0.0) THEN
148 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
H A Dzla_lin_berr.f100 SUBROUTINE ZLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS )
147 IF (AYB(I,J) .NE. 0.0D+0) THEN
148 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Ddla_lin_berr.f100 SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
110 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0D+0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dsla_lin_berr.f100 SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dcla_lin_berr.f100 SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
147 IF (AYB(I,J) .NE. 0.0) THEN
148 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
H A Dzla_lin_berr.f100 SUBROUTINE ZLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS )
147 IF (AYB(I,J) .NE. 0.0D+0) THEN
148 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dsla_lin_berr.f100 SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Ddla_lin_berr.f100 SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
110 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0D+0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dcla_lin_berr.f100 SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
147 IF (AYB(I,J) .NE. 0.0) THEN
148 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
H A Dzla_lin_berr.f100 SUBROUTINE ZLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS ) local
147 IF (AYB(I,J) .NE. 0.0D+0) THEN
148 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Ddla_lin_berr.f102 SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
113 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS ) local
143 IF (AYB(I,J) .NE. 0.0D+0) THEN
144 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dsla_lin_berr.f102 SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
113 REAL AYB( N, NRHS ), BERR( NRHS ) local
143 IF (AYB(I,J) .NE. 0.0) THEN
144 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dcla_lin_berr.f102 SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
113 REAL AYB( N, NRHS ), BERR( NRHS ) local
150 IF (AYB(I,J) .NE. 0.0) THEN
151 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)
/dports/math/cblas/lapack-3.10.0/SRC/
H A Ddla_lin_berr.f100 SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) argument
110 DOUBLE PRECISION AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0D+0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dsla_lin_berr.f100 SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
140 IF (AYB(I,J) .NE. 0.0) THEN
141 TMP = (SAFE1+ABS(RES(I,J)))/AYB(I,J)
H A Dcla_lin_berr.f100 SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) argument
110 REAL AYB( N, NRHS ), BERR( NRHS )
147 IF (AYB(I,J) .NE. 0.0) THEN
148 TMP = (SAFE1 + CABS1(RES(I,J)))/AYB(I,J)

1234567891011