PPT Slide
Integer element, i, spins(max), seed, t
Real*8 drand48, energy, kt, new, j, old
c define number temperature, exchange energy, random seed
Parameter(kt=100, j=-1, seed=68111)
c open files, seed generator
Open(8, FILE='spin-up.dat', Status='Unknown')
Open(9, FILE='spin-do.dat', Status='Unknown')
c First generate a uniform configuration of spins