diff --git a/quad10/fenomens/lab/p4/energ.f90 b/quad10/fenomens/lab/p4/energ.f90
index ba7841c..431a296 100644
--- a/quad10/fenomens/lab/p4/energ.f90
+++ b/quad10/fenomens/lab/p4/energ.f90
@@ -1,4 +1,4 @@
-real*8 function ENERG(S, L)
+real*8 function energ(S, L)
   integer*2 :: S(1:64, 1:64)
   integer*4 :: I, J, L, PBC
   real*8 :: ENE