Discussion :

[userB]

Bonjour tout le monde,
Je suis malheureusement contraint de vous faire part de l'acte II des "mysterieuses et fabuleuses peripeties de userB au pays Fortran"

Je continue mon petit bonhomme de chemin dans ce monde etrange peuplé d'etiquettes, de labels et de bien d'autres choses.

Cette fois c'est un veritable mystere ( enfin au vue de mes maigres connaissances ) qui s'offre a moi.
Treve de blabla, place au code.
Voici le message d'erreur que j'ai lors de l'execution

Code :

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

1
2
3
4
5
6
7
8
 
C:\f\G77>TESTv1.exe
open: illegal unit number
apparent state: unit 10 named inputpgm
last format: list io
lately reading sequential formatted external IO
 
abnormal program termination

Cette fois, je me suis pas laissé demonté et j ai suivi les conseils de maitre daZumba.
De ce que je comprend qd le program veut ouvrir mon unit numero 10 et bien .... et bien il ne l a trouve pas pour des raisons X ( jusque la ai je raison ? )
Il apparait que l unit 10 nommé inputpgm ne soit pas disponible.

Bon maintenant le probleme c'est que j ai bien un fichier inputpgm qui stock 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
 
COD inputarb.001
IDC inputcnd.001
INI inipotrs.001
0 86400
I CPC VGN inputprs.001
5 7
I POT PTS inputpot.001
1 4 6
O POT PTS temps1.001
1 2 3 4 5 6 7
O FLU PTS temps2.001
2 3 4 5 6 7


note : je ne remarque que maintenant le caractere en derniere ligne

donc on remarque qu'inputpgm existe bien et qu il stock des information.
Maintenant le code de l'unit 10 :

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
 
    OPEN (UNIT=10,FILE=FICOM)
         NLHEAD=4
         REWIND (10)
         READ (10,1002) ARC,FIARC
         READ (10,1002) CND,FICND
         READ (10,1002,ERR=2) INI,FINICP
         GOTO 3
2        NLHEAD=3
3        REWIND(10)
         DO 6,I = 1, NLHEAD-1
6           READ(10,*)
         READ (10,*,ERR=4) T0,TFINAL,T0GRA,DTGRA
4     CLOSE (10)
      CALL LITARC(NMAX,ARC,FIARC,NPT,IFIS)

note 2 : FICOM est une variable de type character qui stocke a l'initialisation le nom du fichier qui contiendra les variables de commandes ( donc ici inputpgm )

Voila, je pense avoir fait le tour du probleme, si une ame charitable voulait bien eclairer ma lanterne je lui en serait reconnaissant

[YOY205]

Je suis loin d'avoir les connaissances de maître DaZumba... mais ce que je comprends c'est que tu tentes d'utiliser l'unité 10 alors que ce n'est pas permis. Est-ce que tu es sûr que tu n'as pas utilisé cette même unité pour ouvrir un autre fichier?

[DaZumba]

Est-ce que tu es sûr que tu n'as pas utilisé cette même unité pour ouvrir un autre fichier?

Oui, c'est une bonne hypothese, mais en testant vite fait avec quelques compilateurs, aucun ne cree d'echec lorsqu'on associe deux fichiers a la meme unite... Le dernier fichier ouvert ecrase les precedents, il semblerait.

[JFortranDoc]

ca ne pourrait pas etre l unite liee a l entree standard ou a la sortie standard?

j avais personnellement eu des problemes avec cette unitee la aussi sur le ifort (intel fortran) a une epoque. En passant au dela de 20 ca change ou pas?

[fafaro]

Je ne me souviens pas avoir rencontré de compilateurs utilisant d'autres unités que 5 et 6 pour les entrées et sorties standard (clavier et écran).
Quel compilateur utilises-tu d'ailleurs ?

[DaZumba]

Je ne me souviens pas avoir rencontré de compilateurs utilisant d'autres unités que 5 et 6 pour les entrées et sorties standard

Moi non plus (c'est peut etre meme une exigence de la norme du langage). En tout cas, je ne vois pas ce que l'unite 10 peut avoir de special...

[DaZumba]

Quel compilateur utilises-tu d'ailleurs ?

Vu la facon dont les erreurs sont rapportees (style libg2c), je dirais que c'est g77. Donc l'unite 10 n'a rien de special, a priori.

[DaZumba]

De ce que je comprend qd le program veut ouvrir mon unit numero 10 et bien .... et bien il ne l a trouve pas pour des raisons X ( jusque la ai je raison ? )
Il apparait que l unit 10 nommé inputpgm ne soit pas disponible.

Non, si le fichier n'etait pas disponible, il renverrait un 'unexpected EOF' ou un truc comme cela. Ici, il dit que 10 n'est pas un numero d'unite legal. Cela me surprend. La plupart des compilateurs reservent les unites 0, 5 et 6 et se plaignent lorsque le numero d'unite est negatif ou plus grand que 99 (typiquement). 10 ne devrait pas poser de probleme... Tu utilises bien 10, n'est-ce pas? Tu n'ouvres pas un fichier sur l'unite 10 alors qu'un autre est encore associe a cette unite?
Sinon, ton code est etrange. Pourquoi rewind()-tu le fichier - tu le lis deux fois de deux facons differentes, ce qui est inattendu. Egalement, evites les goto et ferme les boucle do par un enddo plutot qu'indiquer un label de fin. Cela facilite grandement la lecture...