--- trunk/libf/bibio/inithist.f90	2008/08/01 15:24:12	15
+++ 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