Index: LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90	(revision 5107)
+++ LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90	(revision 5113)
@@ -423,5 +423,5 @@
 
   SUBROUTINE JACOBI(A, N, NP, D, V, NROT)
-    implicit none
+    IMPLICIT NONE
     ! Arguments:
     integer, intent(in) :: N
@@ -557,5 +557,5 @@
 
   SUBROUTINE acc(vec, d, im)
-    implicit none
+    IMPLICIT NONE
     integer :: im
     real :: vec(im, im), d(im)