--- trunk/libf/dyn3d/groupe.f90	2010/04/01 14:59:19	31
+++ trunk/libf/dyn3d/groupe.f90	2012/09/20 13:00:41	66
@@ -15,7 +15,7 @@
   USE dimens_m
   USE paramet_m
   USE comconst
-  USE comvert
+  USE disvert_m
   USE comgeom
 
   IMPLICIT NONE