rpl/src/arithmetique.f - diff

Return to arithmetique.f CVS log

Up to [local] / rpl / src

version 1.26, 2011/07/22 07:38:34	version 1.58, 2017/01/18 15:44:16
Line 1	Line 1
C===============================================================================	C===============================================================================
C RPL/2 (R) version 4.1.1	C RPL/2 (R) version 4.1.26
C Copyright (C) 1989-2011 Dr. BERTRAND Joël	C Copyright (C) 1989-2017 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