Afegir sessions 1, 2 del lab de fenòmens
A la sessió 1 falta completar l'exercici extra.
Change-Id: I76f9a74f7648b77c3c60ac91cc4a29477386f383
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