An Optimistic Solver for the Mathematical Model of the Flow of Johnson Segalman Fluid on the Surface of an Infinitely Long Vertical Cylinder