Index: trunk/LMDZ.COMMON/libf/filtrez/acc.F
===================================================================
--- trunk/LMDZ.COMMON/libf/filtrez/acc.F	(revision 1019)
+++ trunk/LMDZ.COMMON/libf/filtrez/acc.F	(revision 1391)
@@ -3,5 +3,10 @@
 !
         subroutine acc(vec,d,im)
-        dimension vec(im,im),d(im)
+        implicit none
+        integer :: im
+        real :: vec(im,im),d(im)
+        integer :: i,j
+        real ::sum
+        real,external :: ssum
         do j=1,im
           do i=1,im
Index: trunk/LMDZ.COMMON/libf/filtrez/eigen.F
===================================================================
--- trunk/LMDZ.COMMON/libf/filtrez/eigen.F	(revision 1019)
+++ trunk/LMDZ.COMMON/libf/filtrez/eigen.F	(revision 1391)
@@ -3,7 +3,9 @@
 !
       SUBROUTINE eigen( e,d)
+      IMPLICIT NONE
 #include "dimensions.h"
-      dimension e( iim,iim ), d( iim )
-      dimension asm( iim )
+      real :: e( iim,iim ), d( iim )
+      real :: asm( iim )
+      integer :: im,i,j
       im=iim
 c