Erreurs sur instruction Write

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

Code:

---

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

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

Code:

---

100 Format ...

---

Jean-Marc Blanc

Citation:

---

Envoyé par FR119492

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

Code:

---

100 Format ...

---

Jean-Marc Blanc

---

Je vous remércie infiniment

SVP
aidez moi à corriger ces erreurs aussi

Citation:

---

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

---

Citation:

---

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 .

---

Citation:

---

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

---

Citation:

---

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

---

Salut!

Citation:

---

WRITE(*,(A))

---

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

Code:

---

WRITE(*,'(A)')

---

Jean-Marc Blanc

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

Citation:

---

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

---

Citation:

---

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

---

Citation:

---

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

---

Citation:

---

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

---

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

Salut!

Code:

---

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:

---

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:

---

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

---

Code:

---

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

---

Cette instruction devrait s'écrire

Code:

---

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

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

qu'est ce que vous pourrez dire concernant:

Citation:

---

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

---

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

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

Code:

---

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

---

c bon j'ai trouvé la solution
Merci