iblock.f

Go to the documentation of this file.

      SUBROUTINE iblock
*
*
*       Initialization of block steps.
*       -----------------------------
*
      include 'common6.h'
*
*
*       Form discrete steps in powers of 2 below SMAX.
      dtk(1) = smax
      DO 1 k = 2,40
         dtk(k) = 0.5d0*dtk(k-1)
    1 CONTINUE
*
*       Initialize previous and current block time.
      tprev = 0.0d0
      tblock = 0.0d0
*
      RETURN
*
      END