IF probleme Fortran ou codeblocs ?

Problème avec un IF fortran sous code blocs:
Les faits: J'utilise" Implicit integer(I-N)" omme dans le fortran 77, pour que toutes les variables commençant par les lettres I à N soientdes entiers et non des float.
Dans mon code j'ai prévu 4 intructions if différentes et bloquées en commentaire et nommées CAs 0, ....CAS 3.
Le but final étant le cas 3 qui utilise comme indices dans ICHEC le contenu des cases d'un autre tableau IT.

Les résultats:Bref quand je valide successivement les CAS 1, CAS2, CAS3 j'obtiens toujours "unclassifiable statement"
Sei le CAS 0, heureusement, s'execte le IF étant validé, le résultat de l'exécution montre que les conditions pour les 3 cas litigieux sont pourtant vérifiées.Dans le cas 2, j'ai mis une variable plutot qu'une constante!!
Apparemment je n'ai pas d'erreur de syntaxe dans les "IF", dans le résultat du CAS 0, les nombres me semblent prendre beaucoup de place, est_ce une histoire de "INTEGER"? une histoire de je séche lamentablement§ Je joins le code et l'image de l'exécution du CAS 0

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

program test IMPLICIT integer(i-n) dimension ichec(8,8) dimension it(8,8) ichec=0;it=0 !It est un tableau de travail qui donne les indices dans le tableau ichec lig=1 it(3,1)=5 it(3,2)=6 limit=7   m=it(3,1) !pour tester avec des variables simples et non des postes de tableaux n=it(3,2) !pour tester avec des variables simples et non des postes de tableaux   ichec(it(3,lig),it(3,lig+1))=7 !on force 7 dans la case echiquier(5,6) pour tester ) if(6>5) goto 100 !CAS 0 !if ichec(m,n)=7 goto 100 !CAS 1 indices du tableau avec variables numériques !if ichec(m,n)=limit goto 100 !CAS 2indices du tableau avec variables numériques !if ichec((it(3,lig)),(it(3,lig+1))=7 !CAS 3 Indices du tableau Ichec pris dans tableau IT   100 print *, "ichec(m,n)", ichec(m,n), "it(3,lig) =", it(3,lig), "it(3,lig+1) =",it(3,lig+1) end PROGRAM

---

Pièce jointe 579104

Bonjour @girondin

je vois deux problèmes dans les IF en commentaires :

1. l'expression logique doit être mise entre parenthèses,
2. le test d'égalité en Fortran s'écrit == ou .eq.

On devrait donc par exemple avoir :

Code:

---

if (ichec(m,n) == limit) goto 100

---

Autres remarques :

1. En Fortran moderne, il est déconseillé d'utiliser IMPLICIT integer(i-n). Il est conseillé d'utiliser systématiquement IMPLICIT NONE et de déclarer le type des variables. Un typage fort évite des erreurs.
2. Les goto pourraient être évités. Ils ne facilitent pas la compréhension de la structure du programme.

Bonjour V.agnin et merci,
Il est vrai que je suis nonagénaire, et mes souvenir sont de fortran 66 , je me posais la question du IF logique mais comme (9>5) fonctionne sans utiliser .GT. je n'ai pas poussé plus loin! Je me demandais aussi s(il fallait quelque chose du style INTEGER*1, je suis confus d'alerter le forum pour des erreurs de syntaxe mais enchanté d'avoir des réponses si précises. Dans mon IF j'ai compté les parenthèses ouvertes et fermé. Le message "nclassifiable statement" ne me parlait pas beaucoup. Je vois ici comment utilises la balise LIST Merci

Bonsoir,

Citation:

---

Il est vrai que je suis nonagénaire, et mes souvenirs sont de fortran 66

---

8O Ca fait plaisir à voir ! :ccool:

Les messages des compilateurs ne sont effectivement pas toujours très explicites !

Pour la déclaration d'une variable entière i, vous pouvez écrire en Fortran moderne (c'est-à-dire Fortran>=90) :

Code:

---

integer :: i

---

Sur les PC actuels, ça correspondra à une variable sur 4 octets, donc pouvant coder des entiers entre environ -2 milliards et +2 milliards. On pourrait aussi écrire :

Code:

---

integer(4) :: i

---

ou

Code:

---

integer(kind=4) :: i

---

Toutes ces syntaxes sont l'équivalent d'un "integer*4" en "ancien" Fortran. Sur certains compilateurs, le 4 peut ne pas correspondre au nombre d'octets, mais restons simples.

Merci pour les explications
J'ai programmé sur le 1130 d'IBM dans les années 60, macine à mots de 16 bits et non octets , les integer par défaut était donc de 2 puissance 15 donc 32768 , si j'ai compris cela doit être du "integer*2".Sinon il fallait passer en "double précision".

Quel est l'oérater "::" que je ne trouve pas?, pour le moment j'ai des problàmes "Codeblocks" , je vais poster sur le forum

Citation:

---

Envoyé par girondin

Merci pour les explications
J'ai programmé sur le 1130 d'IBM dans les années 60, macine à mots de 16 bits et non octets , les integer par défaut était donc de 2 puissance 15 donc 32768 , si j'ai compris cela doit être du "integer*2".Sinon il fallait passer en "double précision".

Quel est l'oérater "::" que je ne trouve pas?, pour le moment j'ai des problàmes "Codeblocks" , je vais poster sur le forum

---

Oui, "integer*2", ce serait écrit maintenant "integer(2)" ou "integer(kind=2)".

Le :: est juste un séparateur entre les types de données et les noms des variables. Par exemple, ici je déclare i comme une variable entière (32 bits par défaut sur les machines actuelles), et je déclare j et k comme deux constantes entières :

Code:

---

1 2	integer :: i integer, parameter :: j, k

---

Pour faire "beau" j'ai aligné les :: des deux lignes, mais ce n'est pas du tout obligatoire.