Problème fortran 90

Bonjour,

j'ai un petit soucis avec un programme écrit en fortran 90. Ce problème tourne sans soucis sous UNIX (HP). Je tente de le compiler sous linux à l'aide de gfortran (GNU Fortran 95 compiler).


J'ai deux types d'erreur liées d'une part à un format d'entier (I), d'autre part à un format de réel (F) :

Erreur (une seule erreur) et warning (plusieurs warnings) sur le format d'entier :

Error: Nonnegative width required in format string at (1)
In file sigma.f:102

read(lint(1:4), '(I)', end=101)FScvt(Lcvt)

Warning: Nonnegative width required in format string at (1)
In file sigma.f:103

read(lint(5:5), '(I)', end=101)Pcvt(Lcvt)

Warning (un seul warning) sur le format de réel :

Warning: Nonnegative width required in format string at (1)
In file sigma.f:134

read(lint(15:20), '(F)', end=101)Ccvt(Lcvt)

J'ai réussi à compiler mon programme à l'aide des solutions trouvées sur le net:

Remplacement de I par I0
Remplacement de F par F1.4 (qui correspond au format de mes nombres réels positifs et négatifs)

Exécution du programme

J'obtiens une seule erreur liée à la seule Erreur présentée plus haut:

At line 102 of file sigma_linux.f
Fortran runtime error: Positive width required in format
(I0)

Quelqu'un a t il une idée pour résoudre ce problème ?

Merci d'avance pour votre aide!

Salut,
Il faut préciser dans le format, le nombre de caractères à prendre en compte pour lire la variable :

Code:

---

1 2	read(lint(1:4), '(I4)', end=101)FScvt(Lcvt) read(lint(5:5), '(I1)', end=101)Pcvt(Lcvt)

---

Il est plus simple de laisser le format libre à la lecture :

Code:

---

1 2	read(lint(1:4), *, end=101)FScvt(Lcvt) read(lint(5:5), *, end=101)Pcvt(Lcvt)

---

Citation:

---

Envoyé par __dardanos__

... Il est plus simple de laisser le format libre à la lecture :

Code:

---

1 2	read(lint(1:4), *, end=101)FScvt(Lcvt) read(lint(5:5), *, end=101)Pcvt(Lcvt)

---

---

Dans sa tentative avec F1.4, Cruz_Castillo voulait probablement dire F4.1, soit Flongueur.décimales

Il y a 2 différences entre la lecture avec le format F4.1 et en format libre * :

• S'il n'y a pas de point explicite dans la chaîne (ex:1234), F4.1 retournera 123,4 alors que le format libre retournera 1234,0
• S'il y a un mauvais caractère dans la chaîne, le format explicite produira une erreur alors que le format libre lira jusqu'au mauvais caractère sans retourner d'erreur

Pour ces raisons, il est généralement préférable d'utiliser un format explicite, surtout si on connait facilement la largeur à lire.

Merci pour votre aide!

@__dardanos__

Concernant les entiers, j'ai effectivement précisé le 'w' adéquat. Impeccable!

@Sylvain Bergeron

Effectivement je m'étais trompé. Je devais écrire F4.1.

Le programme tourne sans erreurs (enfin à l'exception de celles prévues dans mon code, mais ça c'est une autre histoire :) )

Merci encore!

Cédric