--- trunk/IOIPSL/mathop.f	2014/03/05 14:57:53	82
+++ trunk/IOIPSL/mathop.f	2018/02/05 10:39:38	254
@@ -56,7 +56,6 @@
 
     INTEGER :: ierr
 
-    INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS
     !--------------------------------------------------------------------
     ierr = 0
 
@@ -118,11 +117,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)
@@ -211,7 +210,6 @@
 
     INTEGER :: ierr
 
-    INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS
     !--------------------------------------------------------------------
     ierr = 0
 
@@ -273,11 +271,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)
@@ -366,7 +364,6 @@
 
     INTEGER :: ierr
 
-    INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS
     !--------------------------------------------------------------------
     ierr = 0
 
@@ -428,11 +425,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)