[BACK]Return to arithmetique.f CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/arithmetique.f between versions 1.17 and 1.56

version 1.17, 2011/04/20 08:26:04 version 1.56, 2016/03/01 22:12:25
Line 1 Line 1
 C===============================================================================  C===============================================================================
 C RPL/2 (R) version 4.1.0.prerelease.0  C RPL/2 (R) version 4.1.25
 C Copyright (C) 1989-2011 Dr. BERTRAND Joël  C Copyright (C) 1989-2016 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  C
 C This file is part of RPL/2.  C This file is part of RPL/2.
 C  C
Line 349  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 405  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.17  
changed lines
  Added in v.1.56

CVSweb interface <joel.bertrand@systella.fr>