Discussion :

[Martin07]

Bonjour,
j'ai un problème avec une fonction qui ne veut pas se compiler. L'erreur est la suivante : Expecting END PROGRAM statement at (1)
D'après ce que j'ai lu c'est une erreur d'initialisation, mais je ne comprends pas j'ai déclaré ma fonction,P, x1 et x2.

Et voici le code :

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
17
18
19
20
21
PROGRAM Fonctioncoordmax
FUNCTION coordmax
    DOUBLE PRECISION :: coordmax
TYPE coordonees
        DOUBLE PRECISION :: x1,x2
    END TYPE
TYPE(coordonees) P
P = coordonees (x1,x2)
 
PRINT*, "Choisir les 2 coordonnées d'un point"
READ(*,*) x1, x2
P= coordonees (x1, x2)
PRINT*, "Point P =(",P%x1,",", P%x2,")"
 
IF (x1<x2) THEN
    coordmax=x2
    ELSE
        coordmax=x1
END IF
END FUNCTION coordmax
END PROGRAM Fonctioncoordmax

Merci d'avance pour vos réponses.

[François L.]

Parce que les fonctions (et les subroutines) s'écrivent en dehors du bloc PROGRAM, donc après le END PROGRAM.

Sauf en les mettant dans un CONTAINS, mais je fais rarement ce genre de choses, donc je laisse éventuellement un collègue plus compétent poursuivre la réponse.

Je conseille quand même la lecture d'un cours de fortran...

Bon courage

[Martin07]

OK merci par contre je peux mettre la fonction dans un module et ensuite lancer le programme en ajoutant le module qui contient la fonction grâce à la commande USE. Est ce bien cela ?

Merci beaucoup pour votre aide!