Searched refs:resfrt (Results 1 – 12 of 12) sorted by relevance
109 if(resfrt(1) .eq. zero) resfrt = totres110 jtotrs(1) = int ( 10.d0 * log10 ( totres(1) / resfrt(1) ) )111 jtotrs(2) = int ( 10.d0 * log10 ( totres(2) / resfrt(2) ) )340 if (resfrt(1) .eq. zero) resfrt(1) = totres341 jtotrs = int ( 10.d0 * log10 ( totres / resfrt(1) ) )344 if (resfrt(2) .eq. zero) resfrt(2) = totresP345 jtotrsP = int ( 10.d0 * log10 ( totresP / resfrt(2) ) )
159 if (resfrt(1) .eq. zero) resfrt(1) = totres160 jtotrs = int ( 10.d0 * log10 ( totres / resfrt(1) ) )
23 resfrt = 0.00000000000000d+0
290 write (23,*)epsM, iabres, npro,resfrt
518 double resfrt[2]; member
245 common /resdat/ resfrt(2), resfrts
440 double resfrt; member
203 common /resdat/ resfrt
441 double resfrt; member
204 common /resdat/ resfrt