Added potts.f90