Discussion :

[Mathlus]

Bonjour à tous,

Je suis quasiment débutante en fortran et je dois, dans le cadre de mon travail, un code dans ce langage. J'ai cherché dans les différents tutoriaux conseillés sur le site et aussi sur d'autres mais il reste quelques petits points que j'aurais besoin d'éclaircir :

- Est-il possible de gérer des chaînes de caractère de longueur variable en fortran ? (Je dois lire des strings dans des fichiers mais je n'ai aucune idée de leur longueur)
- Existe-t-il une fonction qui permet de "pointer" sur la ieme lettre d'une chaîne de caractère ?
- Comment définir des variables globales ? Dans un module ou dans un common block ?
- Est-il mieux de définir les subroutines dans des modules ou peut-on simplement les écrire les unes après les autres dans un fichier .f90 lié au fichier contenant le programme principal ?

J'espère que vous pourrez m'aider !

D'avance merci,

Mathlus.

[Sylvain Bergeron]

Est-il possible de gérer des chaînes de caractère de longueur variable en fortran ? (Je dois lire des strings dans des fichiers mais je n'ai aucune idée de leur longueur)

Pas vraiment. Les variables caractères Fortran sont de longueur fixe et elles sont « paddées » avec des blancs au besoin.

Si les espaces à la fin ne sont pas significatif pour toi, la technique consiste simplement à déclarer une variable suffisamment longue et à lire les chaînes dans le fichier. Tu peux alors obtenir la longueur logique par la fonction len_trim() (en F90 et plus, et souvent disponible en F77).

Si les espaces à la fin sont significatifs, les choses se compliquent. Tu dois généralement associer une variable « longueur logique » à la variable caractère. Pour la lecture, il faut souvent lire caractère par caractère avec un read( , advance="NO").

Finalement, il existe un module VarString (nom incertain) qui n'a pas une très bonne réputation (produit des pertes de mémoire), mais les plus récentes versions utilisant TR?????? seraient plus robustes.

Existe-t-il une fonction qui permet de "pointer" sur la ieme lettre d'une chaîne de caractère ?

VarCar(i:j) retourne la sous-chaîne contenant les caractères i à j.

Comment définir des variables globales ? Dans un module ou dans un common block ?

À mon avis (et je ne suis pas le seul à le penser!), la seule raison de maintenir des common block dans un programme est si l'effort pour les enlever est indu.

Est-il mieux de définir les subroutines dans des modules ou peut-on simplement les écrire les unes après les autres dans un fichier .f90 lié au fichier contenant le programme principal ?

Le concept de fichier source n'existe pas en Fortran; il n'y a pas de « file scope ». Quelques compilateurs valident les appels de fonctions externes si elles sont dans le même fichier, mais ce n'est pas généralisé.

De plus, pour utiliser des passages d'argument introduit par F90 (intent, optional, dimension(:,), ...), tu dois fournir un interface au sous-programme. Avec un module, l'interface est autogénéré par le compilateur: plus simple et moins d'erreur.

Je te recommande donc fortement d'utiliser des modules. La seule limite au module, c'est si tu veux faire des vieux trucs pré gestion dynamique de mémoire comme il y a 30 ans...

Pour ce qui est du « simplement », tu peux utiliser un module aussi simple que :

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
module FoureTout
   implicit none
   public
contains
 
subroutine Sub1(...)
end subroutine
 
function Fct1(...)
end function
 
subroutine Sub2(...)
end subroutine
 
subroutine Sub3(...)
end subroutine
 
end module

[Mathlus]

Merci beaucoup pour cette réponse si détaillée !

Pour tout dire, j'avais déjà commencé à tout coder dans des modules, ce qui me semblait la solution la plus adaptée mais je voulais être sûre...

Concernant les chaînes de caractère, ça m'embête un peu plus parce que les mes clients sont habituées au char* du C et ne comprennent pas bien pourquoi j'utilise des chaînes de longueur fixe... En fait, j'espérais pouvoir créer un tableau de character que j'allouerai en fonction de la longueur de la chaîne lue caractères par caractères mais si c'est pas possible, tant pis !!! Je leur expliquerai !!

Encore merci,

Mathlus.

[Sylvain Bergeron]

Tu dois préciser le besoin car l'équivalent de [C] char *s, c'est [F] character (len=1) :: s(: ). Le hic, c'est que Fortran beaucoup va mieux avec des caractaères scalaires de longueur prédéfinie (ce qui n'existe pas en C) qu'avec des vecteurs dont les éléments ont 1 byte (comme en C).

[Mathlus]

Oki ! Je comprends !

Tant pis, je garde mes longueurs constantes !

@ +,

Mathlus.