SUBROUTINE KSP4CM(P4)
C
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C     Sets the 4-vector of the e+e- CM
C
C  P4      real array (read)
C          (Px,Py,Pz,E) of CM system
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>