Lines Matching refs:amed

122    real(wp) :: abig, amed, asml, ax, scl, sumsq, ymax, ymin  local
142    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
205       sumsq = amed