Lab fenòmens: afegir informe i ultims canvis al codi
Change-Id: I7f01665996295625fc390f9382dd0ba1c9882bbc
diff --git a/quad10/fenomens/lab/p4/generateSpinMatrix.f90 b/quad10/fenomens/lab/p4/generateSpinMatrix.f90
index 0128119..6351e45 100644
--- a/quad10/fenomens/lab/p4/generateSpinMatrix.f90
+++ b/quad10/fenomens/lab/p4/generateSpinMatrix.f90
@@ -1,9 +1,12 @@
+! Inicialitza la matriu d'spins S aleatòriament, donada la mida del sistema L
+! i una llavor inicial SEED. Tot i que S té mida 128x128 només les primeres L
+! files i L columnes s'utilitzen.
subroutine generateSpinMatrix(S, L, SEED)
use iso_fortran_env
implicit none
integer*4, intent(in) :: L
integer*4, intent(in) :: SEED
- integer*2, intent(out) :: S(1:64,1:64)
+ integer*2, intent(out) :: S(1:128,1:128)
integer*4 :: i, j
integer(int32) :: genrand_int31