modified:   ContStokes.R