Searched refs:rho_paw (Results 1 – 2 of 2) sorted by relevance
308 subroutine f_lr_local_seperate_paw(r_grid,rho_paw,rho_notpaw,fion) argument311 real*8 rho_paw(*) local447 fx = fx + rho_paw(i)*rx*v448 fy = fy + rho_paw(i)*ry*v449 fz = fz + rho_paw(i)*rz*v508 fx = fx + rho_paw(i)*rx*v509 fy = fy + rho_paw(i)*ry*v510 fz = fz + rho_paw(i)*rz*v