Diff for /rpl/src/arithmetique.f between versions 1.32 and 1.44

version 1.32, 2012/01/17 14:44:04 version 1.44, 2013/06/21 14:15:51
Line 1 Line 1
 C===============================================================================  C===============================================================================
 C RPL/2 (R) version 4.1.6  C RPL/2 (R) version 4.1.15
 C Copyright (C) 1989-2012 Dr. BERTRAND Joël  C Copyright (C) 1989-2013 Dr. BERTRAND Joël
 C  C
 C This file is part of RPL/2.  C This file is part of RPL/2.
 C  C
Line 328  C-- Puissance -------------------------- Line 328  C-- Puissance --------------------------
       end        end
   
   
       subroutine F77PUISSANCERI(RA, IB, RESULTAT, TRONCATURE)        subroutine F77PUISSANCERI(RA, IB, RESULTAT)
   
       implicit none        implicit none
   
       integer*4         INTEGER4  
       integer*4         TRONCATURE  
   
       integer*8         IB        integer*8         IB
   
       real*8            RA        real*8            RA
       real*8            RESULTAT        real*8            RESULTAT
   
 C-- IB converti en integer*4        RESULTAT = RA ** IB
       INTEGER4 = IB  
   
       if (IB.ne.INTEGER4) then  
           TRONCATURE = -1  
       else  
           TRONCATURE = 0  
       end if  
   
       RESULTAT = RA ** INTEGER4  
   
       return        return
       end        end
Line 384  C-- IB converti en integer*4 Line 372  C-- IB converti en integer*4
       end        end
   
   
       subroutine F77PUISSANCECI(CA, IB, RESULTAT, TRONCATURE)        subroutine F77PUISSANCECI(CA, IB, RESULTAT)
   
       implicit none        implicit none
   
       complex*16        CA        complex*16        CA
       complex*16        RESULTAT        complex*16        RESULTAT
   
       integer*4         INTEGER4  
       integer*4         TRONCATURE  
   
       integer*8         IB        integer*8         IB
   
 C-- IB converti en integer*4        RESULTAT = CA ** IB
       INTEGER4 = IB  
   
       if (IB.ne.INTEGER4) then  
           TRONCATURE = -1  
       else  
           TRONCATURE = 0  
       end if  
   
       RESULTAT = CA ** INTEGER4  
   
       return        return
       end        end

Removed from v.1.32  
changed lines
  Added in v.1.44


CVSweb interface <joel.bertrand@systella.fr>