Afegir sessió 4 del lab de fenomens
Change-Id: I68a9c725acd6cde3fd43413fe673e5ec7794f7e6
diff --git a/quad10/fenomens/lab/p4/magne.f90 b/quad10/fenomens/lab/p4/magne.f90
new file mode 100644
index 0000000..be56bc9
--- /dev/null
+++ b/quad10/fenomens/lab/p4/magne.f90
@@ -0,0 +1,17 @@
+real*8 function MAGNE(S, L)
+ implicit none
+ integer*4, intent(in) :: L
+ integer*2, intent(out) :: S(1:64,1:64)
+ integer*4 :: i, j
+ real*8 :: mag
+ mag = 0d0
+
+ do i = 1, L
+ do j = 1, L
+ mag = mag + S(i, j)
+ enddo
+ enddo
+
+ magne = mag
+ return
+end function MAGNE