fixed a bug in my change of SimLens.f90