Home
last modified time | relevance | path

Searched refs:amed (Results 1 – 25 of 241) sorted by relevance

12345678910

/dports/math/xlapack/lapack-3.10.0/BLAS/SRC/
H A Dscnrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Ddznrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Dsnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
H A Ddnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
/dports/math/blas/lapack-3.10.0/BLAS/SRC/
H A Ddznrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Dscnrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Dsnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
H A Ddnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
/dports/math/lapack/lapack-3.10.0/BLAS/SRC/
H A Ddznrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Dscnrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Ddnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
H A Dsnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
/dports/math/lapacke/lapack-3.10.0/BLAS/SRC/
H A Dscnrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Ddznrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Dsnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
H A Ddnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
/dports/math/cblas/lapack-3.10.0/BLAS/SRC/
H A Ddznrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Dscnrm2.f90142 amed = zero
154 amed = amed + ax**2
163 amed = amed + ax**2
175 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
176 abig = abig + (amed*sbig)*sbig
184 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
185 amed = sqrt(amed)
187 if (asml > amed) then
188 ymin = amed
192 ymax = amed
[all …]
H A Dsnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
H A Ddnrm2.f90121 real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin local
141 amed = zero
153 amed = amed + ax**2
165 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
166 abig = abig + (amed*sbig)*sbig
174 if ( (amed > zero) .or. (amed > maxN) .or. (amed /= amed) ) then
175 amed = sqrt(amed)
177 if (asml > amed) then
178 ymin = amed
182 ymax = amed
[all …]
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dclassq.f90170 amed = zero
182 amed = amed + ax**2
191 amed = amed + ax**2
206 amed = amed + ax**2
217 if (amed > zero .or. LA_ISNAN(amed)) then
226 if (amed > zero .or. LA_ISNAN(amed)) then
227 amed = sqrt(amed)
229 if (asml > amed) then
230 ymin = amed
234 ymax = amed
[all …]
H A Dzlassq.f90170 amed = zero
182 amed = amed + ax**2
191 amed = amed + ax**2
206 amed = amed + ax**2
217 if (amed > zero .or. LA_ISNAN(amed)) then
226 if (amed > zero .or. LA_ISNAN(amed)) then
227 amed = sqrt(amed)
229 if (asml > amed) then
230 ymin = amed
234 ymax = amed
[all …]
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzlassq.f90170 amed = zero
182 amed = amed + ax**2
191 amed = amed + ax**2
206 amed = amed + ax**2
217 if (amed > zero .or. LA_ISNAN(amed)) then
226 if (amed > zero .or. LA_ISNAN(amed)) then
227 amed = sqrt(amed)
229 if (asml > amed) then
230 ymin = amed
234 ymax = amed
[all …]
H A Dclassq.f90170 amed = zero
182 amed = amed + ax**2
191 amed = amed + ax**2
206 amed = amed + ax**2
217 if (amed > zero .or. LA_ISNAN(amed)) then
226 if (amed > zero .or. LA_ISNAN(amed)) then
227 amed = sqrt(amed)
229 if (asml > amed) then
230 ymin = amed
234 ymax = amed
[all …]
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dzlassq.f90170 amed = zero
182 amed = amed + ax**2
191 amed = amed + ax**2
206 amed = amed + ax**2
217 if (amed > zero .or. LA_ISNAN(amed)) then
226 if (amed > zero .or. LA_ISNAN(amed)) then
227 amed = sqrt(amed)
229 if (asml > amed) then
230 ymin = amed
234 ymax = amed
[all …]

12345678910