diff --git a/quad10/fenomens/lab/p1/P1-exercici-3.f90 b/quad10/fenomens/lab/p1/P1-exercici-3.f90
new file mode 100644
index 0000000..0760be7
--- /dev/null
+++ b/quad10/fenomens/lab/p1/P1-exercici-3.f90
@@ -0,0 +1,10 @@
+program p1e3
+  implicit none
+  integer*4, PARAMETER :: L = 64
+  integer*2 :: S(1:L, 1:L)
+  real*8 :: MAGNE
+
+  call WRITECONFIG(S, L)
+  print *, "Magnetització:"
+  print *, MAGNE(S, L)
+endprogram p1e3