PPT Slide
c save a map of spins
Do 30 i=1,max
If (spins(i).EQ.1) Then
Write(8,*) t, i
Endif
If (spins(i).EQ.(-1)) Then
Write(9,*) t, i
Endif
30 Continue
20 Continue
Close(8)
Close(9)
Stop 'data saved in spin-up.dat, spin-do.dat'
End
Previous slide
Next slide
Back to first slide
View graphic version