Discussion :

[oggyogg]

Salut tt le monde, je suis ingénieur en mécanique et je suis débutant dans le langage fortran. stp quelqu'un parmi vous pourra m'aider d’écrire un programme sous fortran 77. j'ai le programme principale et ainsi un fichier .txt que je veux insérer dans mon programme.il me reste juste de programmer le contenu du fichier .txt pour que mon programme puisse le lire.ci joint une photo de ce que je cherche programmer

[Sylvain Bergeron]

Pourquoi en Fortran 77 ? Dans les faits, les compilateurs Fortran toujours fonctionnels supportent généralement au moins Fortran 95.

Tu ne décris pas vraiment la structure du fichier, mais je suppose que le 4 à la ligne 1 et le 3 à la ligne 6 sont des nombres d'objets des lignes suivantes.

Les lignes contiennent des nombres séparés par des espaces ou des virgules. Généralement, une lecture en format libre sera donc appropriée. Ex: read(10, *) liste

Si tu maintiens ton critère de Fortran 77, tu n'as pas accès à l'allocation dynamique des tableaux. Tu devras donc les déclarer assez grand pour tous les cas prévus.

Cela dit, la lecture devrait ressembler à ceci :

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
19
20
21
 
integer NbreNode, NbreElement,i,j
real x(100), y(100) ! ou allocatable... si F95
...
open(10,file='...',status='old')
read(10,*) NbreNode
if (NbreNode .gt. 100) then ! Si F95, remplacer par allocate(x(NbreNode),y(NbreNode))
    write(6,*) 'Erreur: Nombre de node trop grand'
    stop
endif
do i = 1, NbreNode
    read(10,*) j,x(i),y(i)
    if (i .ne. j) then
        write(6,*) 'Erreur de sequence'
        stop
    endif
enddo
read(10,*) NbrElement
...
close(10)
...

[oggyogg]

merci pour ta réponse , je veux juste te dire que ça me pose pas de problème d'avoir le programme sous FT95, l'essentiel pour moi c'est de faire tourner le programme vue que je suis nul en programmation :/