Lab fenòmens: afegir informe i ultims canvis al codi
Change-Id: I7f01665996295625fc390f9382dd0ba1c9882bbc
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