--- rpl/src/arithmetique.f	2011/04/20 08:26:04	1.17
+++ rpl/src/arithmetique.f	2015/11/26 11:44:29	1.55
@@ -1,27 +1,6 @@
 C===============================================================================
-C RPL/2 (R) version 4.1.0.prerelease.0
-C Copyright (C) 1989-2011 Dr. BERTRAND Joël
-C
-C This file is part of RPL/2.
-C
-C RPL/2 is free software; you can redistribute it and/or modify it
-C under the terms of the CeCILL V2 License as published by the french
-C CEA, CNRS and INRIA.
-C
-C RPL/2 is distributed in the hope that it will be useful, but WITHOUT
-C ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-C FITNESS FOR A PARTICULAR PURPOSE.  See the CeCILL V2 License
-C for more details.
-C
-C You should have received a copy of the CeCILL License
-C along with RPL/2. If not, write to info@cecill.info.
-C===============================================================================
-<<<<<<< arithmetique.f
-C RPL/2 (R) version 4.1.0.prerelease.0
-=======
-C RPL/2 (R) version 4.0.23
->>>>>>> 1.15.2.2
-C Copyright (C) 1989-2011 Dr. BERTRAND Joël
+C RPL/2 (R) version 4.1.24
+C Copyright (C) 1989-2015 Dr. BERTRAND Joël
 C
 C This file is part of RPL/2.
 C
@@ -349,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
@@ -405,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