Fortran code for ising model using both Wolff algorithm and Metropolis algorithm.