--- trunk/libf/phylmd/raddimlw.h	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/raddimlw.f90	2008/04/18 14:45:53	10
@@ -1,11 +1,16 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/raddimlw.h,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
-!
-      INTEGER NUA
-      PARAMETER (NUA=24)
-      INTEGER NTRA
-      PARAMETER (NTRA=15)
-      INTEGER Ninter
-      PARAMETER (Ninter=6)
-      INTEGER NG1, NG1P1
-      PARAMETER (NG1=2, NG1P1=NG1+1)
+module raddimlw
+
+  ! From phylmd/raddimlw.h,v 1.1.1.1 2004/05/19 12:53:09
+
+  implicit none
+
+  INTEGER NUA
+  PARAMETER (NUA=24)
+  INTEGER NTRA
+  PARAMETER (NTRA=15)
+  INTEGER Ninter
+  PARAMETER (Ninter=6)
+  INTEGER NG1, NG1P1
+  PARAMETER (NG1=2, NG1P1=NG1+1)
+
+end module raddimlw