fonction complexe en fortran 77

Bonjour ,
j ai a ecrire la fonction suivante :
t(k)=somme(i=1,V) (|k|^(2*i)*(-1)^(i)*k)/(i!)^2
avec k etant un nombre complexe,
j ai crit ma fonction ma ca m enerve car ca ne marche pas!!! pouvez vous m aider? voila mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
function t(k)
complex t,k
double precision fact
        t=cmplx(0.,0.)
        do i=1,V
           if(abs(k).lt.20.) then
               t=t+(abs(k)**(2*i))*((-1.)**(i))
     &          /(real(fact(i))**2)
 
           else
               t=cmplx(0.,0.)
           end if
        enddo
return 
end
 
      program fg
        complex t,r
        print*,t(cmplx(6.,0.))
 
      end

Salut!

Citation:

ma ca m enerve car ca ne marche pas!!!

Est-ce que tu as de la fumée qui sort de ton ordinateur?
Jean-Marc Blanc

bon quand meme Jean Marc, il faut me comprendre,
j ai oublier la fonction fact , la voila

Code:

1
2
3
4
5
6
7
8
9
 
        function fact(m)
        integer m
        fact=1
        do i=1,m
           fact=fact*i
        enddo
        return
        end

Bonjour,

Tu aurais dû écrire pour ta fonction fact :
Code:

1 2 3 4 5 6 7 8 9 10 function fact(m) integer m double precision fact fact=1.0d+00 do i=1,m fact=fact*i enddo return end
car dans 'function t(k)' tu l'as déclarée en double precision.