--- trunk/libf/dyn3d/vitvert.f90	2011/04/08 12:43:31	43
+++ trunk/dyn3d/vitvert.f	2014/03/05 14:57:53	82
@@ -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