Searched refs:phik_ave (Results 1 – 1 of 1) sorted by relevance
251 REAL(DP) :: phik_ave local732 phik_ave=(0.0_dp,0.0_dp)770 phik_ave=phik_ave+wstring(istring)*phik(istring)774 phiup=phik_ave !theta0+dtheta775 phidw=phik_ave !theta0+dtheta779 phiup=phik_ave !theta0+dtheta781 phidw=phik_ave !theta0+dtheta784 phiup=phik_ave