|
version 1.37, 2012/10/01 11:04:57
|
version 1.38, 2012/10/05 13:12:38
|
|
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 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to arithmetique.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / src