Discussion :

[taoufiq07]

SVP
j'ai du mal à corriger les erreur que je trouve dans des programmes de fortran
par exemple:

Code :

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

1
2
3
4
5
This label has not been defined as a FORMAT label.   [100]
 WRITE(*,100) (Z(I),I=1,N)
 
This label is undefined.   [100]
 WRITE(*,100) (Z(I),I=1,N)

Merci

[FR119492]

Salut!
Et pourtant tes messages d'erreur sont clairs: il manque dans ton programme une instruction de la forme

Code :

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

  100 Format ...

Jean-Marc Blanc

[taoufiq07]

Salut!
Et pourtant tes messages d'erreur sont clairs: il manque dans ton programme une instruction de la forme

Code :

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

  100 Format ...

Jean-Marc Blanc

Je vous remércie infiniment

[taoufiq07]

SVP
aidez moi à corriger ces erreurs aussi

1)Error: Unrecognized token '#17' skipped
WRITE(*,(A)) . DONNEZ :Q,B,FM,S0,FN,XL,Y1,Y2,Z1 .

2)Error: Syntax error, found '(' when expecting one of: * <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
WRITE(*,(A)) . DONNEZ :Q,B,FM,S0,FN,XL,Y1,Y2,Z1 .

3)Error: Unrecognized token '#18' skipped
IF(IPR.EQ.1) WRITE(2,.(2F10.4).) X,Y

4)Error: Syntax error, found '(' when expecting one of: * <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
IF(IPR.EQ.1) WRITE(2,.(2F10.4).) X,Y

[FR119492]

Salut!

WRITE(*,(A))

Tout format, comme (A) doit être compris comme une chaîne de caractères. Tu dois donc écrire

Code :

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

      WRITE(*,'(A)')

Jean-Marc Blanc

[taoufiq07]

salut
je les ai ajouté ,mais pas de résultats
voilà ce qui est donné

Unrecognized token '#17' skipped
WRITE(*,'(A)') . DONNEZ :Q,B,FM,S0,FN,XL,Y1,Y2,Z1 .

Error: Syntax error, found ':' when expecting one of: , <END-OF-STATEMENT> ;
WRITE(*,'(A)') . DONNEZ :Q,B,FM,S0,FN,XL,Y1,Y2,Z1 .

Error: This label has not been defined as a FORMAT label. [100]
WRITE(*,100) (Z(I),I=1,N)

Error: Unrecognized token '#18' skipped
IF(IPR.EQ.1) WRITE(2,.(2F10.4).) X,Y

etc................

[FR119492]

Salut!

Code :

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

WRITE(*,'(A)') . DONNEZ :Q,B,FM,S0,FN,XL,Y1,Y2,Z1 .

1. Qu'est-ce que cette instruction est censée faire?
2. Que fait le '.' au milieu de l'instruction?
3. Que fait le ':' ?
4. Que fait le '.' à la fin de l'instruction?

Code :

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

WRITE(*,100) (Z(I),I=1,N)

Voir message précédent: y a-t-il dans ton programme une instruction de la forme

Code :

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

  100 FORMAT ..........

Code :

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

IF(IPR.EQ.1) WRITE(2,.(2F10.4).) X,Y

Cette instruction devrait s'écrire

Code :

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

IF(IPR.EQ.1) WRITE(2,'(2F10.4)') X,Y

SVP, à l'avenir, un peu plus de rigueur dans la syntaxe de ton code.

Jean-Marc Blanc

[taoufiq07]

je vous remércie encore une fois professeur,le programme a été compilé

[taoufiq07]

qu'est ce que vous pourrez dire concernant:

Error: Syntax error, found IDENTIFIER 'DEBIT' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) + . - (/ [ ] /) ** / > // .LT. ...
* 'CANAL ','HAUTEUR D''EAU.,'DEBIT'

[john stedd]

sans doute le "point" après 'HAUTEUR D''EAU.
je pense qu'il doit s'agir de 'HAUTEUR D''EAU'

[taoufiq07]

mais c'est le correcteur qui affiche cette écriture
dans le programme voilà ce qui est écrit:

Code :

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

1
2
   WRITE(*,'(10X,A10,2X,A20,5X,A8)')
     *     ' CANAL ',' HAUTEUR D''EAU’,'DEBIT'

[taoufiq07]

c bon j'ai trouvé la solution
Merci