Ab initio calculation of force constants and equilibrium geometries in poly-atomic molecules. II. Force constants of water