--- rpl/src/arithmetique.f	2011/03/06 16:44:07	1.15
+++ rpl/src/arithmetique.f	2018/12/24 15:54:57	1.62
@@ -1,6 +1,6 @@
 C===============================================================================
-C RPL/2 (R) version 4.0.21
-C Copyright (C) 1989-2011 Dr. BERTRAND Joël
+C RPL/2 (R) version 4.1.30
+C Copyright (C) 1989-2018 Dr. BERTRAND Joël
 C
 C This file is part of RPL/2.
 C
@@ -328,28 +328,16 @@ C-- Puissance --------------------------
       end
 
 
-      subroutine F77PUISSANCERI(RA, IB, RESULTAT, TRONCATURE)
+      subroutine F77PUISSANCERI(RA, IB, RESULTAT)
 
       implicit none
 
-      integer*4			INTEGER4
-      integer*4			TRONCATURE
-
       integer*8			IB
 
       real*8			RA
       real*8			RESULTAT
 
-C-- IB converti en integer*4
-      INTEGER4 = IB
-
-      if (IB.ne.INTEGER4) then
-          TRONCATURE = -1
-      else
-          TRONCATURE = 0
-      end if
-
-      RESULTAT = RA ** INTEGER4
+      RESULTAT = RA ** IB
 
       return
       end
@@ -384,28 +372,16 @@ C-- IB converti en integer*4
       end
 
 
-      subroutine F77PUISSANCECI(CA, IB, RESULTAT, TRONCATURE)
+      subroutine F77PUISSANCECI(CA, IB, RESULTAT)
 
       implicit none
 
       complex*16		CA
       complex*16		RESULTAT
 
-      integer*4			INTEGER4
-      integer*4			TRONCATURE
-
       integer*8			IB
 
-C-- IB converti en integer*4
-      INTEGER4 = IB
-
-      if (IB.ne.INTEGER4) then
-          TRONCATURE = -1
-      else
-          TRONCATURE = 0
-      end if
-
-      RESULTAT = CA ** INTEGER4
+      RESULTAT = CA ** IB
 
       return
       end