ysave.f

Go to the documentation of this file.

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