fortran progm subroutine

Bonjour,

je gal(re sur un truc tout bête...
j'ai écris un programme sous fortran qui fait appelle a un sous programme.quand j'essaye de compiler j'obtiens des messages d'erreurs , que j'essaye de résoudre bien évidemment mais qui me redonne d'autre message d'erreurs...
je suis un peu a bout et j'aurai besoin d'un avis extérieur merci d'avance


voici mon programme principal

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

program mainfactorialf   implicit none   real kmn,p,q,t   write(*,*) "rentrer les coefficients m puis n dont on veut calculer le cmn"   read(*,*) p,q   t=p-q   kmn=factorialf(p)/(factorialf(q)*factorialf(t))   end program

---

et le sous programme
! cette fonction est sensée pouvoir calculer le produit factoriel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

integer function factorialf(n)   implicit none integer, intent (in) :: n integer :: i, ans   ans=1   do i=1,n ans=ans*i end do   factorialf=ans     end function factorialf

---

cordialement

Erreurs :

• Dans le programme principal, la fonction factorialf doit avoir un type
• Les arguments de factorialf sont entiers alors que tu passes des real
• Il faudrait afficher le résultat kmn pour que ce soit utile...

Pour donner un type à la fonction factorialf, tu peux :

• ajouter integer factorialf dans le programme principal
• placer la fonction dans une section contains du programme (elle sera alors visible)
• Placer la fonction dans un module