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