The corresponding Fortran code on page 189 is correct. Thanks to Jason M. Lenthe for finding this error.