Probleme avec la notion function

j'ai se program et je sais pas ou est mon erreur !!
je doi ecrire un program qui fait la moyenne de 3 nombre en utilisant la notion des function !!

Citation:

---

program moyenne
implicit none

!Declaration
real::a,b,c

write(*,*)'Donner la valeur de :',a
read*,a
write(*,*)'Donner la valeur de :',b
read*,b
write(*,*)'Donner la valeur de :',c
read*,c

contains
!nom de la fonction
real function moy(x,y,z)
implicit none
!Declaration de la finction
real,intent(in)::x,y,z
moy=(x+y+z)/3;
return
!fin de la function
end function moy

!affichage

write(*,*)'la moyenne =',moy(a,b,c)

end program moyenne

---

Je n'aime pas donner la réponse pour un TP, mais comme tu es très près de la solution et que l'effort est là...

Dans un programme, la section « contains » doit être à la fin du programme, et non insérée n'importe où :

Code:

---

1 2 3 4 5 6 7

program use déclaration instruction contains end

---

Tu dois donc simplement remonter la ligne « write » de la moyenne entre les « read » et le « contains ».