diff --git a/quad10/fenomens/lab/p4/magne.f90 b/quad10/fenomens/lab/p4/magne.f90
index be56bc9..118a965 100644
--- a/quad10/fenomens/lab/p4/magne.f90
+++ b/quad10/fenomens/lab/p4/magne.f90
@@ -1,4 +1,4 @@
-real*8 function MAGNE(S, L)
+real*8 function magne(S, L)
   implicit none
   integer*4, intent(in) :: L
   integer*2, intent(out) :: S(1:64,1:64)
@@ -14,4 +14,4 @@
 
   magne = mag
   return
-end function MAGNE
+end function magne