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/pbc.f90

diff --git a/quad10/fenomens/lab/p4/pbc.f90 b/quad10/fenomens/lab/p4/pbc.f90
index 09cfff3..3f803a4 100644
--- a/quad10/fenomens/lab/p4/pbc.f90
+++ b/quad10/fenomens/lab/p4/pbc.f90
@@ -1,3 +1,7 @@
+! Funció que imposa les condicions de contorn periòdiques, enviant l'índex N al
+! valor corresponent en l'interval [1, L].
+!
+! Prerequisit: N està a l'interval [0, L + 1].
 integer*4 function PBC(N, L)
   integer*4, intent(in) :: N, L
   if (N == 0) then