Bonjour,

Je veux convertir le code suivant qui est écrit en Turbo Pascal en code Fortran90. Je ne connais rien en pascal !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function rse( a,b:double ) : double;
{Raises a to the b power.}
var
  sign : integer;
  c : double;
begin
  if (a > 0.0) then
    rse := sexp(b*ln(a))
  else if a = 0.0 then
    rse := 0
  else
    begin
      c := trunc(b);
      if b <> c then begin
        write('error in function rse');
        halt;
      end;
      if odd(trunc(b)) then sign := -1 else sign := 1;
        rse := sign*sexp(b*ln(abs(a)));
    end;
end; {rse}
Merci de votre aide !!