Update lattice.f90