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................