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