diff --git a/quad10/fenomens/lab/p4/writeconfig.f90 b/quad10/fenomens/lab/p4/writeconfig.f90
index 30de3c9..477129f 100644
--- a/quad10/fenomens/lab/p4/writeconfig.f90
+++ b/quad10/fenomens/lab/p4/writeconfig.f90
@@ -1,3 +1,5 @@
+! Funció que guarda la configuració S d'un sistema de mida LxL al fitxer amb
+! nom NOM.
 subroutine writeConfig(S, L, NOM)
   implicit none
   integer*4, intent(in) :: L