--- trunk/libf/bibio/inithist.f90	2008/08/05 13:31:32	17
+++ trunk/libf/bibio/inithist.f90	2008/08/07 12:29:13	18
@@ -44,7 +44,7 @@
     use serre
     use temps
     use ener
-    use advtrac_m
+    use iniadvtrac_m
 
     !   Arguments
     character(len=*) infile