diff --git a/quad10/fenomens/lab/p4/magne.f90 b/quad10/fenomens/lab/p4/magne.f90
index 118a965..4e0e89e 100644
--- a/quad10/fenomens/lab/p4/magne.f90
+++ b/quad10/fenomens/lab/p4/magne.f90
@@ -1,7 +1,9 @@
+! Retorna, donada una matriu d'spins S d'un sistema de mida LxL,
+! la magnetització del sistema.
 real*8 function magne(S, L)
   implicit none
   integer*4, intent(in) :: L
-  integer*2, intent(out) :: S(1:64,1:64)
+  integer*2, intent(out) :: S(1:128,1:128)
   integer*4 :: i, j
   real*8 :: mag
   mag = 0d0