--- rpl/src/arithmetique.f	2012/10/01 11:04:57	1.37
+++ rpl/src/arithmetique.f	2012/10/05 13:12:38	1.38
@@ -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