segfault étrange en fortran

Bonjour le forum,
en fortran, j'ai une "segmentation fault" que je n'arrive pas à comprendre :
Celà se passe lors d'un opération de lecture, dans une ligne qui contient du texte ascii (provenant d'un fichier d'entrée) :

Voici l'instruction qui plante :

Code:

---

1 2	read(line, *, err=804, end=805) +EIDrpt(IDrpt), SClu, Srpt(DIR, IDrpt, K, Z)

---

Quand je remplace la variable qui fait planter la lecture, Srpt(... ), par un réel temporaire que j'appelle Stmp, ça marche, et cette variable est correctement remplie :

Code:

---

1 2	read(line, *, err=804, end=805) +EIDrpt(IDrpt), SClu, Stmp

---

Par contre quand j'essaye d'affecter cette valeur, qui a été correctement lue et placée dans le réel temporaire, vers la variable dans laquelle j'aurais voulu l'affecter dès la première opération, hébin ça plante à nouveau :

Code:

---

Srpt(DIR, IDrpt, K, Z)=Stmp (BOUM !)

---

Ce qui me fait penser que ce sont les indices de ce tableau qui ne sont pas bons.
Donc évidemment j'ai vérifié la dimension du tableau que j'essaye de remplir :

Code:

---

real Srpt(0:3, MAXelt, 6, 2) ! S(DIR, IDrpt, K, Z)

---

-avec une définition préalable :

Code:

---

PARAMETER (MAXelt=11000)

---

Et j'ai vérifié aussi les valeurs des indices au moment de la tentative de lecture :
-DIR vaut 1,
-IDrpt vaut 1,
-K vaut 1,
-Z vaut 1.
Ils sont tous à 1 puisque c'est la première tentative d'écriture dans ce tableau.

Que cela vous inspire t'il; pouvez vous m'aider ?
David

De mon expérience, je dirais que la mémoire est corrompue par un débordement ou par un appel de fonction/routine avec le mauvais nombre ou type de paramètres. Tu dois donc commencer par activer toutes les switches de vérification du compilateur.

Si tu as accès à un débogueur symbolique, tu peux vérifier l'adresse de la variable au début de l'exécution, et juste avant la lecture. L'adresse devrait avoir changée. Tu peux ensuite essayer de trouver quand elle change par une exécution pas à pas.

Bonjour,
bon, alors il se trouve que la machine que j'utilise est une red-hat qui a 32 proc's sous linux, donc j'utilise gfortran, et les switches de vérification à la compilation sont :

Warning Options
-fsyntax-only -pedantic -pedantic-errors -w -Wall -Waliasing -Wampersand -Wconversion -Wimplicit-interface -Wnonstd-intrinsics -Wsurprising -Wunderflow -Wunused-labels -Wline-truncation -W

-w Inhibit all warning messages.

-Wall
Enables commonly used warning options pertaining to usage that we recommend avoiding and that we believe are easy to avoid. This currently includes
-Wunused-labels, -Waliasing, -Wampersand, -Wsurprising, -Wnonstd-intrinsic, and -Wline-truncation.

donc je vais utiliser -pedantic-errors -Wall -Wconversion -Wimplicit-interface -Wsurprising -Wunderflow -Wunused-labels -Wline-truncation -W

Donc ma commande de compilation, qui était :

$ gfortran $BN/S.f -fdefault-real-8 -g -o ./S

devient :

$ gfortran $BN/S.f -fdefault-real-8 -g -pedantic-errors -Wall -Wconversion -Wimplicit-interface -Wsurprising -Wunderflow -Wunused-labels -Wline-truncation -W -o ./S


Et ça me donne plein d'erreurs, alors que je pensais avoir pondu du code vraiment tout propre; mébon, il y en a des faciles à corriger, les variables ou labels inutilisés, il y en a des moins faciles qui nécessitent l'intervention du physicien quand il y a des conversions integer-real entre des grandeurs dont je sais à peine de quel type elle sont physiquement, et il y en a que je ne comprends méme pas, et c'est lâ que j'aurais besoin de ton aide : que signifie "Warning: Procedure 'foo-bar' called with an implicit interface at (1)." Je ne sais pas ce qu'est une "implicit interface".
Merci de m'éclairer sur ce point pour que je puisse continuer à avancer,
David