--- trunk/libf/IOIPSL/mathop.f90	2012/07/26 14:37:37	62
+++ trunk/libf/IOIPSL/mathop.f90	2012/10/02 15:50:56	67
@@ -5,7 +5,7 @@
   implicit none
 
   PRIVATE
-  PUBLIC :: mathop
+  PUBLIC mathop
 
   INTERFACE mathop
      MODULE PROCEDURE mathop_r11, mathop_r21, mathop_r31