Description: Append zero velocity to p-vector.
The source code for the Fortran routine P2PV is available: