C C Common variables C DOUBLE PRECISION DLT, H C COMMON / STEPS / H, DLT C