--- trunk/libf/IOIPSL/histwrite.f90	2010/04/01 14:59:19	31
+++ trunk/libf/IOIPSL/histwrite.f90	2010/04/06 17:52:58	32
@@ -48,7 +48,7 @@
 
     USE errioipsl, ONLY : histerr
     use calendar, only: isittime
-    USE mathelp, ONLY : mathop
+    USE mathop_m, ONLY : mathop
     use histcom_var
 
     INTEGER, INTENT(IN) :: pfileid, pitau
@@ -190,7 +190,7 @@
 
     use calendar, only: isittime
     USE errioipsl, ONLY : histerr
-    USE mathelp, ONLY : mathop
+    USE mathop_m, ONLY : mathop
     use histcom_var
 
     INTEGER, INTENT(IN) :: pfileid, pitau
@@ -332,7 +332,7 @@
 
     use calendar, only: isittime
     USE errioipsl, ONLY : histerr
-    USE mathelp, ONLY : mathop
+    USE mathop_m, ONLY : mathop
     use histcom_var
 
     INTEGER, INTENT(IN) :: pfileid, pitau
@@ -478,7 +478,8 @@
     ! and writing subroutines.
     !--------------------------------------------------------------------
 
-    USE mathelp, ONLY : mathop, trans_buff, moycum
+    USE mathop_m, ONLY : mathop
+    USE mathelp, ONLY : trans_buff, moycum
     use netcdf, only: NF90_PUT_VAR
     use histcom_var
 
@@ -695,7 +696,7 @@
     ! pvarname : The name of the variable we are looking for
     ! pvid     : The var id we found
 
-    USE stringop, ONLY: find_str
+    USE find_str_m, ONLY: find_str
     USE errioipsl, ONLY : histerr
     use histcom_var