Searched refs:mres_n (Results 1 – 2 of 2) sorted by relevance
344 real(kind=8) :: mres_i,mres_n,mres_o local369 mres_n = mres_i370 do while ( (mres_n.gt.mres_o).and.(titer.lt.1000) )380 mres_n=sqrt(flesDot1(myV,amg_nshg(cl),1))
132 real(kind=8) :: mres_0,mres_n local192 real(kind=8) :: mres_0,mres_n variable