version 1.45, 2013/04/01 15:29:33
|
version 1.46, 2013/04/19 11:19:20
|
Line 200 depassement_puissance(integer8 *a, integ
|
Line 200 depassement_puissance(integer8 *a, integ
|
|
|
if ((-1 <= (*a)) && ((*a) <= 1)) |
if ((-1 <= (*a)) && ((*a) <= 1)) |
{ |
{ |
r = abs((*a)); |
|
|
|
if ((*a) == 0) |
if ((*a) == 0) |
{ |
{ |
(*resultat) = 0; |
(*resultat) = 0; |
Line 222 depassement_puissance(integer8 *a, integ
|
Line 220 depassement_puissance(integer8 *a, integ
|
} |
} |
|
|
depassement = d_faux; |
depassement = d_faux; |
|
r = 1; |
|
|
for(i = 0; i < (*b); i++) |
for(i = 0; i < (*b); i++) |
{ |
{ |
Line 239 depassement_puissance(integer8 *a, integ
|
Line 238 depassement_puissance(integer8 *a, integ
|
} |
} |
else |
else |
{ |
{ |
f77puissanceii_(a, b, resultat); |
(*resultat) = r; |
return(d_absence_erreur); |
return(d_absence_erreur); |
} |
} |
} |
} |