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

Diff for /rpl/src/arithmetique.f between versions 1.18 and 1.72

version 1.18, 2011/04/21 16:00:53 version 1.72, 2025/04/15 10:17:49
Line 1 Line 1
 C===============================================================================  C===============================================================================
 C RPL/2 (R) version 4.1.0.prerelease.0  C RPL/2 (R) version 4.1.36
 C Copyright (C) 1989-2011 Dr. BERTRAND Joël  C Copyright (C) 1989-2025 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.18  
changed lines
  Added in v.1.72

CVSweb interface <joel.bertrand@systella.fr>