Nbody6
 All Files Functions Variables
iblock.f
Go to the documentation of this file.
1  SUBROUTINE iblock
2 *
3 *
4 * Initialization of block steps.
5 * -----------------------------
6 *
7  include 'common6.h'
8 *
9 *
10 * Form discrete steps in powers of 2 below SMAX.
11  dtk(1) = smax
12  DO 1 k = 2,40
13  dtk(k) = 0.5d0*dtk(k-1)
14  1 CONTINUE
15 *
16 * Initialize previous and current block time.
17  tprev = 0.0d0
18  tblock = 0.0d0
19 *
20  RETURN
21 *
22  END