offset.f

Go to the documentation of this file.

      SUBROUTINE offset(DTOFF)
*
*
*       Offset of global times.
*       -----------------------
*
      include 'common6.h'
      common/clump/   bodys(ncmax,5),t0s(5),ts(5),steps(5),rmaxs(5),
     &                names(ncmax,5),isys(5)
*
*
*       Update the global offset time.
    1 toff = toff + dtoff
*
*       Reduce all individual times and epochs by offset interval.
      DO 10 i = 1,ntot
          t0(i) = t0(i) - dtoff
          t0r(i) = t0r(i) - dtoff
          tev(i) = tev(i) - dtoff
          tev0(i) = tev0(i) - dtoff
          epoch(i) = epoch(i) - dtoff*tstar
   10 CONTINUE
*
*       Set new global times.
      time = time - dtoff
      tadj = tadj - dtoff
      tnext = tnext - dtoff
      tprev = tprev - dtoff
      tblist = tblist - dtoff
      IF (kz(19).GT.2) THEN
          tplot = tplot - dtoff
          tmdot = tmdot - dtoff
      END IF
      DO 20 i = 1,nsub
          t0s(i) = t0s(i) - dtoff
          ts(i) = ts(i) - dtoff
   20 CONTINUE
*
*       Check tidal tail members (note TNEW also needs doing).
      IF (ntail.GT.0) THEN
          DO 30 i = itail0,nttot
              t0(i) = t0(i) - dtoff
              tnew(i) = tnew(i) - dtoff
   30     CONTINUE
      END IF
*
*       See whether more reductions are needed.
      IF (time.GE.dtoff) go to 1
*
*       Activate control indicator for new scheduling.
      iphase = -1
*
      RETURN
*
      END