Discussion :

[girondin]

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 :

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

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

[vmagnin]

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 :

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

 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.

[girondin]

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

[vmagnin]

Bonsoir,

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

Ca fait plaisir à voir !

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 :

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

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 :

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

integer(4) :: i

ou

Code :

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

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.

[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

[vmagnin]

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 :

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

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.