--- trunk/Sources/IOIPSL/mathop.f	2015/05/06 15:51:03	137
+++ 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
 
@@ -211,7 +210,6 @@
 
     INTEGER :: ierr
 
-    INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS
     !--------------------------------------------------------------------
     ierr = 0
 
@@ -366,7 +364,6 @@
 
     INTEGER :: ierr
 
-    INTRINSIC SIN, COS, TAN, ASIN, ACOS, ATAN, EXP, ALOG, SQRT, ABS
     !--------------------------------------------------------------------
     ierr = 0