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