commit 24d87018780f2f93f1b0d26fe348457c14928f19
author Adrià Vilanova Martínez <me@avm99963.com> Thu Jun 16 00:29:59 2022 +0200
committer Adrià Vilanova Martínez <me@avm99963.com> Thu Jun 16 00:29:59 2022 +0200
tree ad4a6625348cd2cbdb6ef8bdb2f5507c37dad4c0
parent 1ee4edb9c6ed2762405ed5ede51782ac7c9267c7

Lab fenòmens: afegir informe i ultims canvis al codi

Change-Id: I7f01665996295625fc390f9382dd0ba1c9882bbc

quad10/fenomens/lab/p4/energ.f90

diff --git a/quad10/fenomens/lab/p4/energ.f90 b/quad10/fenomens/lab/p4/energ.f90
index 431a296..a57601e 100644
--- a/quad10/fenomens/lab/p4/energ.f90
+++ b/quad10/fenomens/lab/p4/energ.f90
@@ -1,5 +1,7 @@
+! Retorna, donada una matriu d'spins S d'un sistema de mida LxL,
+! l'energia del sistema.
 real*8 function energ(S, L)
-  integer*2 :: S(1:64, 1:64)
+  integer*2 :: S(1:128, 1:128)
   integer*4 :: I, J, L, PBC
   real*8 :: ENE
   ENE = 0.0d0