--- trunk/libf/IOIPSL/mathop.f90	2012/07/26 14:37:37	62
+++ trunk/Sources/IOIPSL/mathop.f	2015/05/06 15:51:03	137
@@ -5,7 +5,7 @@
   implicit none
 
   PRIVATE
-  PUBLIC :: mathop
+  PUBLIC mathop
 
   INTERFACE mathop
      MODULE PROCEDURE mathop_r11, mathop_r21, mathop_r31
@@ -118,11 +118,11 @@
                               miss_val, nb_max, work_out)
              ENDIF
           CASE('coll')
-             ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, &
-                            miss_val, nb_max, work_out)
+             ierr = ma_fucoll_r11(nb, work_in, nb_index, nindex, nb_max, &
+                  work_out)
           CASE('fill')
-             ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, &
-                            miss_val, nb_max, work_out)
+             ierr = ma_fufill_r11(nb, work_in, nb_index, nindex, nb_max, &
+                  work_out)
           CASE('undef')
              ierr = ma_fuundef_r11(nb, work_in, nb_index, nindex, &
                             miss_val, nb_max, work_out)
@@ -273,11 +273,11 @@
                              miss_val, nb_max, work_out)
              ENDIF
           CASE('coll')
-             ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, &
-                           miss_val, nb_max, work_out)
+             ierr = ma_fucoll_r21(nb, work_in, nb_index, nindex, nb_max, &
+                  work_out)
           CASE('fill')
-             ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, &
-                           miss_val, nb_max, work_out)
+             ierr = ma_fufill_r21(nb, work_in, nb_index, nindex, nb_max, &
+                  work_out)
           CASE('undef')
              ierr = ma_fuundef_r21(nb, work_in, nb_index, nindex, &
                            miss_val, nb_max, work_out)
@@ -428,11 +428,11 @@
                      miss_val, nb_max, work_out)
              ENDIF
           CASE('coll')
-             ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, &
-                  miss_val, nb_max, work_out)
+             ierr = ma_fucoll_r31(nb, work_in, nb_index, nindex, nb_max, &
+                  work_out)
           CASE('fill')
-             ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, &
-                  miss_val, nb_max, work_out)
+             ierr = ma_fufill_r31(nb, work_in, nb_index, nindex, nb_max, &
+                  work_out)
           CASE('undef')
              ierr = ma_fuundef_r31(nb, work_in, nb_index, nindex, &
                   miss_val, nb_max, work_out)