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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
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