Module et sous-programme

Bonjour, je débute en Fortran et doit préparer un module contenant une fonction qui fait la somme de 2 nombres, puis un programme qui utilise cette fonction pour afficher la somme de ces 2 nombres saisis par l'utilisateur.

Voici mon code pour le module :

MODULE func
IMPLICIT NONE
CONTAINS
FUNCTION f1 (a,b)
DOUBLE PRECISION :: f1
DOUBLE PRECISION, INTENT (in) :: a,b
f1 = a+b
END FUNCTION f1

END MODULE func


Et pour le programme principal :

PROGRAM prog1
USE func
DOUBLE PRECISION :: x,y,z

PRINT*, "Saisir 1 nombre"
READ(*,*) y
PRINT*, "Saisir 1 nombre"
READ (*,*) z
CALL f1 (y,z)
PRINT*, x


END PROGRAM prog1


Lorsque je compile il y a une erreur au niveau de la fonction f1.
Voici le message d'erreur :
exSeance4.f90:2.16:

USE func
1
exSeance4.f90:9.13:

CALL f1 (a,b)
2
Error: 'f1' at (1) has a type, which is not consistent with the CALL at (2)



Merci d'avance pour vos réponses ;)

Bonjour,

Vous définissez f1 comme une function (qui est une entité "sous-programme" typée qui réalise diverse actions et retourne une valeur) et l'appelez comme une subroutine (qui est une entité "sous-programme" non-typée qui réalise des actions mais ne retourne aucune valeur). C'est ce que le compilateur vous reproche.

Vous auriez pu faire à la mode "function" :

Code:

---

1 2 3 4 5 6 7 8 9

double precision function f1(y,z) implicit none double precision, intent(in) :: y, z f1=y+z end function f1 [...] x=f1(y,z) print *, x [...]

---

ou alors, à la mode "subroutine" :

Code:

---

1 2 3 4 5 6 7 8 9 10

subroutine s1(y,z,x) implicit none double precision, intent(in) :: y, z double precision, intent(out) :: x x=y+z end subroutine s1 [...] call s1(y,z,x) print *, x [...]

---

Vous trouverez des réponses ici.

Cordialement,
xflr6

J'ai modifier le programme en le faisant en mode fonction mais j'ai le message d'erreur suivant :
$ gfortran exSeance4.f90
C:\Users\Martin\Desktop\Fortran\tmp\ccZLaTa3.o:exSeance4.f90:(.text+0x19d): undefined reference to `__func_MOD_f1'
collect2: ld returned 1 exit status

Mon Module contenant la fonction est enregistré en tant que modexSeance4.f90
Le programme principal est enregistré en tant que exSeance4.f90

Merci encore !

Bonjour,

il reste à compiler tout le monde.
Un exemple avec deux fichiers en compilation séparée :

Code:

---

1 2 3

$ gfortran -o file1.o -c file1.f90 $ gfortran -o file2.o -c file2.f90 $ gfortran -o prog.exe file1.o file2.o

---

Cordialement,
xflr6

Ok merci , le problème est résolu ;)