--- trunk/libf/bibio/initfluxsto.f90	2012/01/30 14:37:26	60
+++ trunk/libf/bibio/initfluxsto.f90	2012/04/20 14:58:43	61
@@ -24,7 +24,12 @@
   !   L. Fairhead, 03/99                                             
 
   USE calendar
-  USE histcom
+  USE histbeg_totreg_m, ONLY : histbeg_totreg
+  USE histdef_m, ONLY : histdef
+  USE histend_m, ONLY : histend
+  use histhori_regular_m, only: histhori_regular
+  use histsync_m, only: histsync
+  USE histvert_m, ONLY : histvert
   USE dimens_m
   USE paramet_m
   USE comconst