Forum du club des développeurs et IT Pro - Fortran https://www.developpez.net/forums/ FAQ Fortran]]> fr Sat, 30 May 2026 15:54:37 GMT vBulletin 15 https://forum.developpez.be/images/misc/rss.png Forum du club des développeurs et IT Pro - Fortran https://www.developpez.net/forums/ F90 - problème compréhension fonction retournant un array https://www.developpez.net/forums/showthread.php?t=2179427&goto=newpost Tue, 23 Sep 2025 09:00:09 GMT Bonjour, Je suis assez... Bonjour,

Je suis assez mauvais en Fortran. Je cherche à coder une fonction qui retourne un array, sans succès. J'ai bien entendu cherché des exemples sur internet, mais là encore sans succès. Ci-dessous l'un de ces exemples qui est donc sensé fonctionner :
Code:
1
2
3
4
5
6
7
real function times2(x,n) result(y)
    real, intent(in) :: x(n)
    integer, intent(in) :: n
    real  :: y(n)
 
    y = 2*x
end function
Je me perds dans les différentes façons de déclarer les variables et les fonctions, alors que peut-être le soucis est ailleurs. Je code donc en Fortran 90. Mon compilateur est Intel Fortran XE 14.0.4.237. Le fichier de debug généré est le suivant :

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Compiling with Intel(R) Visual Fortran Compiler XE 14.0.4.237 [IA-32]...
ifort /nologo /debug:full /Od /warn:interfaces /module:"Debug\\" /object:"Debug\\" /Fd"Debug\vc100.pdb" /traceback /check:bounds /check:stack /libs:dll /threads /dbglibs /c /Qvc10 /Qlocation,link,"c:\Program Files (x86)\Microsoft Visual Studio 10.0\Intel Fortran\Microsoft Files\VC\\bin" "C:\Users\cc\Documents\RetD\DP_Fortran\Tests_Math\Operations_matricielles\Code_Source\Mod_Thruster.f90"
C:\Users\cc\Documents\RetD\DP_Fortran\Tests_Math\Operations_matricielles\Code_Source\Mod_Thruster.f90(55): error #6419: This scalar name is invalid in this context.   [Y]
            real  :: y(n)
---------------------^
C:\Users\cc\Documents\RetD\DP_Fortran\Tests_Math\Operations_matricielles\Code_Source\Mod_Thruster.f90(7): error #6404: This name does not have a type, and must have an explicit type.   [GET_THRUST]
    public :: get_thrust
--------------^
C:\Users\cc\Documents\RetD\DP_Fortran\Tests_Math\Operations_matricielles\Code_Source\Mod_Thruster.f90(57): error #6366: The shapes of the array expressions do not conform.   [Y]
            y = 2*x
------------^
compilation aborted for C:\Users\cc\Documents\RetD\DP_Fortran\Tests_Math\Operations_matricielles\Code_Source\Mod_Thruster.f90 (code 1)
 
ifort /nologo /debug:full /Od /warn:interfaces /module:"Debug\\" /object:"Debug\\" /Fd"Debug\vc100.pdb" /traceback /check:bounds /check:stack /libs:dll /threads /dbglibs /c /Qvc10 /Qlocation,link,"c:\Program Files (x86)\Microsoft Visual Studio 10.0\Intel Fortran\Microsoft Files\VC\\bin" "C:\Users\cc\Documents\RetD\DP_Fortran\Tests_Math\Operations_matricielles\Code_Source\dpl_dll.f90"
C:\Users\cc\Documents\RetD\DP_Fortran\Tests_Math\Operations_matricielles\Code_Source\dpl_dll.f90(138): error #5082: Syntax error, found ',' when expecting one of: <END-OF-STATEMENT> ;
            thrust_arr(1) = 5.0d0, thrust_arr(2) = 11.0d0
---------------------------------^
C:\Users\cc\Documents\RetD\DP_Fortran\Tests_Math\Operations_matricielles\Code_Source\dpl_dll.f90(140): error #6404: This name does not have a type, and must have an explicit type.   [TIMES2]
            res = times2(thrust_arr, 3)
------------------^
compilation aborted for C:\Users\cc\Documents\RetD\DP_Fortran\Tests_Math\Operations_matricielles\Code_Source\dpl_dll.f90 (code 1)
 
 
dpl_dll - 7 error(s), 0 warning(s)
J'ai essayé un peu tout ce qui me passe par la tête : sans result(), déclarer ou pas le résultat dans la fonction, ajouter le type ou pas devant function, etc..

Est-ce que c'est moi qui déconne ou c'est un problème de compilation ? Sachant que je parviens sans soucis à faire une fonction similaire mais qui renvoi un scalaire à la place.

J ]]> Fortran Julien N https://www.developpez.net/forums/d2179427/general-developpement/algorithme-mathematiques/programmation-parallele-calcul-scientifique-haute-performance-hpc/fortran/f90-probleme-comprehension-fonction-retournant-array/ Programmation Orientée Objet - erreur dans le livre de Chapman : Fortran for Scientists and Enginners https://www.developpez.net/forums/showthread.php?t=2178998&goto=newpost Tue, 02 Sep 2025 20:40:34 GMT Bonjour, J’étudie la... Bonjour,

J’étudie la Programmation Orientée Objet (POO) en FORTRAN avec le livre de Stephen J. Chapman, Fortran for Scientists and Engineers, 4ième édition de 2018 (je n’ai pas trouvé d’ouvrages pédagogiques en français).

J’ai lu pas à pas son chapitre 16, de la page 763 à 836, que j’ai trouvé sur le net à l’adresse suivante https://mega.nz/file/d0VAWDaK#lf3iIs...OM0rkAF--Wnf4U. Il est très intéressant (et mériterait d'être traduit en français pour les élèves) mais quand je suis arrivé à la section 16.9.3 (page 804) sur la relation entre les objets des super-classes et les objets des sous-classes, j’ai constaté que son programme ne donnait pas les mêmes résultats que ceux obtenus sur mon PC (compilateur Intel) et sur mon Raspberry 500 (compilateur gnu). Mes deux machines donnent le même résultat.

Je vous joins le listing du programme (https://mega.nz/file/gwUFQazA#Vr7GkB...TUlfbgMtzhNjyg) et je pose deux questions sur les deux problèmes que j’ai rencontrés :

a) Les sous-classes n’héritent pas des méthodes de la super-classes :

L’initialisation des données avec les méthodes d’initialisation de la super-classe (employee_class), qui ne figurent pas (données & méthodes) dans les sous-classes (salaried_employee_class et hourly_employee_class), ne permet pas l’affichage de ces données avec les méthodes d’affichage qui sont dans la super-classe, méthodes dont devrait pourtant « hériter » les sous-classes, comme si l’initialisation avait échoué. Est-ce normal et pourquoi ?

b) La méthode polymorphe de calcule de la paie ne fonctionne pas :

Stephen Chapman défini ensuite dans cet exemple pédagogique (page 804, figure 16-18) deux super-classes nommées emp1 et emp2. Il fait pointer chacune de ces super-classes sur une des sous-classes précédentes, et là, l’affichage des données avec les méthodes définies dans ces super-classes s’effectue correctement !
En revanche le calcul de la paie, avec les méthodes définies dans les sous-classes (les employés salariés et les employés horaires ne sont pas payés pareils), ne s’effectue pas. L’affichage effectué à partir des pointeurs (les super-classes emp1 et emp2) donne un résultat faux (0€), et même s’il est effectué directement à partir des sous-classes, cela ne marche pas quand même (toujours 0€).
Sauriez-vous pourquoi ?

Merci de votre aide ]]> Fortran latomicien https://www.developpez.net/forums/d2178998/general-developpement/algorithme-mathematiques/programmation-parallele-calcul-scientifique-haute-performance-hpc/fortran/programmation-orientee-objet-erreur-livre-chapman-fortran-for-scientists-and-enginners/