c        module time
        double precision:: dt, ttot
c        end module time
        common/time/dt, ttot