--- trunk/libf/dyn3d/vitvert.f90	2012/09/20 09:57:03	65
+++ trunk/libf/dyn3d/vitvert.f90	2012/09/20 13:00:41	66
@@ -12,7 +12,7 @@
 
   USE dimens_m, ONLY : llm
   USE paramet_m, ONLY : ip1jmp1
-  USE comvert, ONLY : bp
+  USE disvert_m, ONLY : bp
 
   IMPLICIT NONE