Discussion :

[Glouglou69]

Bonjour,

Je cherche ici à créer un programme qui récupère la taille d'une matrice contenue dans un fichier.
Après avoir cherché sur le forum, j'ai trouvé la solution pour connaitre la taille d'une telle matrice si celle-ci est formatée (on peut récupérer le nombre de lignse via un compteur et "iostat" dans un read) et le nombre de colonnes en stockant la première ligne dans un chaine de caractère et en traitant cette dernière pour connaitre le nombre d'espaces, etc...

Mais si l'écriture dans le fichier est non-formatée, je ne vois pas du tout comment savoir la taille de la matrice contenue dans le fichier.

La finalité de ce programme serait de pouvoir extraire par exemple la taille d'un fichier son ou la taille d'une image afin de stocker ces dernières et de les traiter (peut-être qu'une bibliothèque ad-hoc existe ? ... )

Merci beaucoup.

[genteur slayer]

en non formaté, tu peut toujours compter le nombre de ligne avec l'IOSTAT comme en formaté. pour le nombre de colonne, c'est le read qui te le donne.
si tu cherches à lire avec un éditeur hexa le fichier non formaté de fortran tu remarque 4octets (8 en système 64bits) identiques en début et fin d'enregistrement (ligne) cela te donne la taille de l'enregistrement.

si il s'agit de lire un fichier son ou image, selon les tailles sont donnés dans les entête de fichier... je te suggère de lire les specs des formaat (wav, bmp, tiff, jpg, ogg, etc....) l'info y est toujours, mais pas de la même manière selon le format.
autre solution, une lib de lecture/écriture de ce type de fichiers....

[Glouglou69]

Cette méthode marche du coup aussi pour une écriture formatée (ce m'évite de faire les fonctions qui traite ma chaîne de caractère, qui récupère le format de l'écriture et après le nombre d’élément...)
Comme éditeur hexa j'utilise EditHexa, mais dans mon fichier écrit en non formaté (comme dans le fichier formaté), je n'arrive pas à voir les quatre octets de début et de fin d'enregistrement ...

Par exemple, voila ce que j'obtiens pour un fichier non formaté (comme on le voit, j'ai juste écrit des 1.000 et des 2.000 :






Merci

[Marlan]

Autre solution : à l'ouverture du fichier type :

OPEN(11,FILE='mon_fichier',FORM='unformatted', ACCESS='stream',...)

La commande ACCESS='stream' permet de supprimer ces octets supplémentaires ajoutés par FORTRAN.

Cela dit, cette commande n'est valable, à ce que j'ai vu, qu'avec certain compilateurs (ifort par exemple).

[Glouglou69]

Merci, je ne connaissait pas cette commande (j'utilise gfortran).
Mais par défaut (avec un WRITE(1)var ) je devrais avoir ces 4 octets ?

[genteur slayer]

le access='stream' marche avec gfortran!!!
ensuite, il faut voir si tu cherche la portabilité du code, il est alors préférable de respecter strictement la norme fortran....
comme option de compile avec gfortran c'est:

-std=std
Specify the standard to which the program is expected to conform, which may be one of `f95', `f2003', `f2008', `gnu', or `legacy'. The default value for std is `gnu', which specifies a superset of the Fortran 95 standard that includes all of the extensions supported by GNU Fortran, although warnings will be given for obsolete extensions not recommended for use in new code. The `legacy' value is equivalent but without the warnings for obsolete extensions, and may be useful for old non-standard programs. The `f95', `f2003' and `f2008' values specify strict conformance to the Fortran 95, Fortran 2003 and Fortran 2008 standards, respectively; errors are given for all extensions beyond the relevant language standard, and warnings are given for the Fortran 77 features that are permitted but obsolescent in later standards.

[Sylvain Bergeron]

access='stream', c'est du Fortran 2003 (et +) standard.

[Glouglou69]

merci .
Cependant j'ai besoin de ces 4 octets pour déterminer le début et la fin de mon fichier. Malheureusement je ne vois pas comment faire une procédure qui pourrait récupérer et lire ces 4 octets...

Merci