Discussion :

[annoussa86]

Bonjour
J'essaye de trouver l'équivalent d'une instruction C++ sous Fortran et je n'y arrive pas du tout. C'est la suivante :

Code :

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

1
2
 
if (data[i] == '\n') (*nlines)++;

Cette instruction me servira en effet à parcourir une chaîne de caractère (data où j'ai sauvegardé tout un fichier) pour la classer en lignes en détectant à chaque fois un retour à la ligne. Malheureusement je n'ai pas pu le faire avec l'excellente et simple read(*,*) parce que je suis dans un environnement MPI parallèle !!!!

Quelqu’un pourra s'il vous plait me trouver l'équivalent de cette détection de retour à la ligne sous Fortran ?
Merci

[annoussa86]

Il s'est avéré que c'est CHAR(10) pour un saut de ligne et CHAR(13) pour un retour chariot.
Merci.

[Sylvain Bergeron]

Il n'y a pas directement d'équivalent Fortran à la stratégie C que tu veux répliquer. Il y a moyen de le faire, mais c'est beaucoup moins élégant.

La raison est qu'en C, un fichier est d'abord une longue chaîne de caractères dans laquelle il y a des '\n' permettant de délimiter des "lignes". En Fortran, un fichier est une collection de lignes, et la lecture est toujours assujettie à cette structure en ligne.

Si tu veux tout lire d'un coup, puis détecter les marqueurs de ligne pour remettre en lignes dans un tableau, tu dois questionner ta stratégie puisqu'en Fortran, un fichier c'est déjà des lignes !

Cela dit, si tu maintiens ta stratégie, tu dois utiliser un stream. C'est le plus proche équivalent d'une lecture C. Et pour le '\n', ça dépend du OS parce qu'il n'y aura pas de conversion des marqueurs physiques en '\n'. Tu auras bien char(13) // char(10) sur Windows, mais autre chose sur d'autres OS.