--- trunk/libf/test_disvert.f90	2008/10/15 16:51:38	21
+++ trunk/libf/test_disvert.f90	2009/07/31 15:18:47	22
@@ -2,7 +2,6 @@
 
   use dimens_m, only: llm
   use comvert, only: pa, disvert, ap, bp, preff
-  use comconst, only: initialize
   use new_unit_m, only: new_unit
 
   implicit none
@@ -14,7 +13,6 @@
   !---------------------
 
   print *, "llm = ", llm
-  call initialize
   pa = 5e4
   call disvert
   sigma = ap / pa + bp