Discussion :

[herlock]

Bonjour,

Je voudrais pouvoir appeler la fonction B() à partir de A() de cette manière:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
COMPLEX FUNCTION A()
    ....
 
    A = B()
END FUNCTION A

Seulement j'ai une erreur de ce type:

projet2.f95:125.20:

A = B()
1
Error: Function 'a' at (1) has no IMPLICIT type

D'où cela pourrait venir ?

Merci d'avance.

[Sylvain Bergeron]

Tu dois fournir le type de la fonction B lors de la compilation de A. Il y a plusieurs façons :

• Tu ajoute une ligne genre integer B (ou real B ou complex B ou ...) dans A pour déclarer le type de B
• Tu fais une interface (Fortran 90) à B dans A
• Tu place B dans un module et tu « use » le module dans A

[herlock]

Merci ça fonctionne bien en déclarant le type de la fonction.

J'ai encore quelques points obscures concerant le langage.

Que faut-il exactement mettre dans la section "interface" du programme ? Par exemple, ma fonction A est dedans, mais j'ai remarqué que si je mettais COMPLEX, EXTERNAL :: B avant interface (et pas dedans) ça fonctionnait, pourquoi ?

De plus, pourquoi ne doit-on pas déclarer les subroutines dans INTERFACE (et nul part ailleurs) ?

Je voudrais aussi savoir quelle est l'utilité de INTENT(IN) exactement?

Et enfin, comment puis-je afficher sur une même ligne des variables qui sont modifiées dans un boucle DO WHILE END DO ? et sans avoir pleins d'espaces entre les variables

Merci beaucoup et désolé si je dérive un peu du sujet principal.

[DaZumba]

Que faut-il exactement mettre dans la section "interface" du programme ? Par exemple, ma fonction A est dedans, mais j'ai remarqué que si je mettais COMPLEX, EXTERNAL :: B avant interface (et pas dedans) ça fonctionnait, pourquoi ?

Ce n'est pas l'interface du programme, il faut (enfin, il est preferable de) declarer une interface pour chaque fonction et sous-routine utilisees. Ainsi le compilateur peut verifier que l'appel a ces fonctions et sous-routines est correct (nombre d'arguments, leurs types, leurs dimensions, ...) [Si tu connais le C, les interfaces remplissent au role equivalent aux prototypes dans ce langage].

de plus, pourquoi ne doit-on pas déclarer les subroutines dans INTERFACE (et nul part ailleurs) ?

Cette regle est fausse.

Je voudrais aussi savoir quelle est l'utilité de INTENT(IN) exactement?

Cela indique que l'argument ne sera pas modifie par la routine ou fonction (i.e. il ne sera present que du cote droit d'une expression). Sachant cela, le compilateur peut faire des optimisations supplementaires.

Et enfin, comment puis-je afficher sur une même ligne des variables qui sont modifiées dans un boucle DO WHILE END DO ? et sans avoir pleins d'espaces entre les variables

Il faut donner un format explicite a ton WRITE() ou PRINT, plutot que d'utiliser le formatage automatique *. Plus d'informations dans ton livre de Fortran prefere ou sur le reseau (par exemple ici).

[herlock]

Un tout grand merci !