ycopy.f

Go to the documentation of this file.

      SUBROUTINE ycopy(Y)
*
*
*       Copy Y-array from COMMON.
*       -------------------------
*
      include 'commonc.h'
      include 'common2.h'
      REAL*8 y(nmx8)
*
*
      nc=n-1
      l=0
      DO i=1,4*nc
      l=l+1
      y(l)=q(i)
      END DO
      DO i=1,3
      l=l+1
      y(l)=cmx(i)
      END DO
      l=l+1
      y(l)=energy
      DO i=1,4*nc
      l=l+1
      y(l)=p(i)
      END DO
      DO i=1,3
      l=l+1
      y(l)=cmv(i)
      END DO
      l=l+1
      y(l)=chtime
*
      RETURN
      END