Discussion :

[aurel_ben]

Bonjour,

Je travaille sous Windows et sous Linux. Sous Linux, j'utilise le compilateur GNU Fortran 4.1.3 pour Ubuntu 4.1.2.

J'essaie de compiler un programme avec l'insctruction du style :

Code :

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

1
2
N=1
IF (N==1) WRITE(*,*) 'Ca marche !'

Il me renvoie :

ELSE IF clause at (1) requires a scalar LOGICAL expression

Ce qui veut dire qu'il ne considère par des LOGICAL avec test logique d'un entier. Par contre pour un réel ça marche sans probleme :

Code :

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

1
2
R=1.5
IF (R==1.5) WRITE(*,*) 'Ca marche !'

Y a-t-il une solution ?

[DaZumba]

Quel est le type de N? Si c'est un logical, alors

Code :

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

1
2
3
4
 
logical n
n = .true.
if (n == .true.) write(*,*) 'Ok.'

[FR119492]

Salut !

Une bonne habitude à prendre: mets une instruction Implicit None au début de tous tes programmes et déclare toutes les variables.

Jean-Marc Blanc

[Sylvain Bergeron]

Quel est le type de N? Si c'est un logical, alors

Code :

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

1
2
3
4
 
logical n
n = .true.
if (n == .true.) write(*,*) 'Ok.'

logical == .true., c'est compiler dependant. Pour certains, ça marche, pour d'autre, c'est un bit wise ".and.".

En F95, il faut faire if (logical .eqv. .true.), ou beaucoup plus simplement if (logical) ...

[yann_m]

Peut être vais-je répondre complètement à coté, mais de souvenir lorsque j'ai rencontré ce type de problème, c'était un problème de synthaxe qui en était la cause. Peut-on écrire un IF sans THEN ?

La synthaxe pour que j'utilise pour cette instruction est la suivante :

Code :

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

1
2
3
4
5
6
IF(condition)THEN
 ligne de code
 ...
 ...
 ...
ENDIF