Compatibilité de compilateur fortran

Version imprimable

Bonjour à tous.
Si je poste ici c'est pour implorer votre aide :). Non j'exagère un peu. Cependant je vais vous expliquer mon problème. Dans le cadre de mon boulot j'ai écrit un programme en fortran. N'étant pas développeur et fin programmeur j'ai écrit un truc qui ferait se suicider n'importe quelle personne ayant un minimum de feeling pour la programmation. Là n'est pas le problème. J'ai codé ça a l'époque avec Visual Fortran, et le programme tourne nickel. Cependant je suis désormais sous linux et démarrer ma VM pour compiler m'énerve un peu. J'ai donc tout naturellement récupéré le paquet gfortran-4.3. Et là c'est le drame. Plein d'erreurs et d'avertissements ... Que je ne comprend pas pour la plupart.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 15 format('dela=',E9.3,2x,'chiconv=',E9.3,2x,'rho=',F9.7,2x,'IRUN=',I 1 Error: Nonnegative width required in format string at (1) NiH_iso.for:89.72: call CODAGE(tab_J(i),lmda(i),omga(i),nb_v(i),parity(i),x_obs(i) 1 Error: Syntax error in argument list at (1) NiH_iso.for:221.72: 999 PAUSE 1 Warning: Deleted feature: PAUSE statement at (1) NiH_iso.for:77.16:
Bon y'en a encore pleins d'autres, mais voila quoi. Ce que je cherche c'est pas vraiment qu'on corrige mon code, car je sais qu'il peut marcher. L'optimisation ne m'intéresse guère (du moins pour l'instant). Ce que je veux comprendre et résoudre, c'est ce manque de compatibilité. Existe t'il un autre compilateur qui pourrait me rendre service?

Merci d'avoir pris le temps de me lire.

Cordialement.

29/05/2009, 04h01
Sylvain Bergeron
Une piste : tu ne respecte pas le format carte perforée du Fortran 77. Les 2 premières erreurs sont observées sur des lignes coupées (et donc incomplètes) de 72 caractères. Solution ? Les compilateurs ont souvent une option pour supporter des sources de plus de 72 colonnes en format fixe. Je ne connais pas gfortran, je ne peux donc pas t'en dire plus. Quelqu'un sait ? Si gfortran n'a pas une telle option, tu peux :
- soit enregistrer une macro bête dans ton éditeur pour insérer un changement de ligne, 5 espaces et un caractère de continuité à chaque fois que la ligne dépasse 72,
- soit profiter de l'occasion pour sortir du moyen-âge (de l'informatique) et convertir le source en format libre...
La troisième erreur est que tu utilises une extension deleted (?). Comme le message est un warning, tu n'as possiblement pas à la corriger... Une solution simple serait de changer la ligne pour "call pause" et écrire ta routine pause...
29/05/2009, 10h04
lock42

Merci Bien pour la piste. En ce qui concerne le choix du langage, crois bien que si j'avais eu le choix je n'aurai pas pris Fortran :)
Je suis pour l'instant en train de refaire toute l'indentation et de vérifier que cela ne dépasse jamais 72 caractère par ligne.
29/05/2009, 12h33
lock42
Il me semble que j'ai enlevé beaucoup d'erreur :) Cependant il m'en reste certaines.

L'une d'entre elle, est que je défini dans un fichier nommé arraysize.h des paramètres :

Code:

PARAMETER (IHSIZE=20,asize=28,csize=2,fsize=28,bsize=28)

Aucun problème avec Visual, mais la j'ai le droit à ca :
Code:

1 2 3 Error: Implicitly typed PARAMETER 'asize' at (1) doesn't match a later IMPLICIT type arraysize.h:3.59: Included at NiH_iso.for:1275:
Et c'est valable a chaque fois que j'utilise un de ces paramètres dans mon programme. Il faut préciser que je déclare au début :
Code:

1 2 3 4 IMPLICIT REAL*8(a-h,o-z) INCLUDE 'arraysize.h'
Un autre problème, est que je fais des boucles comme ceci :
Code:

1 2 3 4 do nb_J=0.5, 11.5 .... enddo
ou il me répond :

Code:

Warning: Deleted feature: Loop variable at (1) must be integer
29/05/2009, 14h17
Grame

Citation:

Je ne connais pas gfortran, je ne peux donc pas t'en dire plus. Quelqu'un sait ?

Pour compiler du FORTRAN77 avec gfortran, il est extrêmement recommandé d'utiliser l'option -ff2c
Pour pouvoir dépasser les fameuses 72 colonnes, ajouter l'option -ffixed-line-length-none

Il peut être profitable à long terme de prendre le temps de lire : man gfortran ;)
29/05/2009, 14h27
Grame
Citation:
Il me semble que j'ai enlevé beaucoup d'erreur :) Cependant il m'en reste certaines.

L'une d'entre elle, est que je défini dans un fichier nommé arraysize.h des paramètres :

Code:

PARAMETER (IHSIZE=20,asize=28,csize=2,fsize=28,bsize=28)

Aucun problème avec Visual, mais la j'ai le droit à ca :

Code:

1 2 3 Error: Implicitly typed PARAMETER 'asize' at (1) doesn't match a later IMPLICIT type arraysize.h:3.59: Included at NiH_iso.for:1275:
Il semblerait que asize soit défini avec un autre type (ou pas de type du tout)
dans arraysize.h
Citation:
Un autre problème, est que je fais des boucles comme ceci :

Code:

1 2 3 4 do nb_J=0.5, 11.5 .... enddo

ou il me répond :

Code:

Warning: Deleted feature: Loop variable at (1) must be integer
Comme indique le message : la variable de boucle (nb_J) doit être un entier en non un réel. Ceci était autorisé dans la norme FORTRAN77 mais n'est plus accepté en Fortran >= 90. Donc tu dois réécrire ton code comme :
Code:

1 2 3 4 5 6 7 integer i real nb_j do i = 0, 11 nb_j = i + 0.5 ... end do
29/05/2009, 14h50
lock42

Merci pour ces réponses très claires, je vais regarder tout ca. Cependant une question me vient a l'esprit. Si j'ai bien compris mon code est compris par des compilateur fortran 77.
Ne serait-ce pas plus simple de récupérer un compilateur comme ca?
En fait ce que j'aurai aimé c'est trouver des options ou un compilateur capable de compiler mon programme comme le fait visual fortran (sans erreur, sans avertissement) ....
29/05/2009, 17h45
Sylvain Bergeron

Fortran 77 est un sous-ensemble de Fortran 90/95/2003, à quelques exceptions près. L'une des exceptions étant justement que les compteurs de boucle réels ne sont plus acceptés par la norme (parce que le résultat est difficilement prévisible).

En théorie, la « migration » de F77 à F95 ne devrait donc pas en être une. Un programme F77 étant par définition un programme F95.

En pratique, le problème est que la norme F77 est assez limitée, de sorte que les développeurs de compilateurs ont intégrés toutes sortes d'extensions, lesquelles n'ont pas nécessairement été intégrées à F90/95.

Dès que tu utilises ces extensions, ton programme devient dépendant du compilateur que tu utilises. Et ton problème, il est là...

La solution pratico-pratique est généralement d'utiliser le compilateur moderne de l'éditeur original (parce que les éditeurs maintiennent les extensions pour être gentils avec leurs clients). Dans ton cas, le compilateur le plus compatible est probablement celui de Intel.
29/05/2009, 18h32
lock42
Encore merci pour vos réponses. Le compilateur d'intel me semble effectivement être quelque chose de pas mal, cependant, il n'est pas libre et est payant je crois ?

J'ai quand même presque éliminé toute les erreurs même si la dernière fait de la résistance. Il me dit qu'il manque une parenthèse alors qu'en fait non ....
J'ai encore plusieurs avertissements notament ceux la :
Code:

1 2 3 4 5 Warning: Extension: REAL array index at (1) NiH_iso.for:1164.28: C(6,i)=maxloc(dabs(A(C(2,i),:)),1)
Sauriez vous me dire ce qu'il en retourne ?
Puis il faut que je trouve une alternative a "Pause" et je pense que j'aurai beaucoup avancé.
Cordialement
29/05/2009, 20h24
lock42

Bon alors je vais me répondre a moi même :)
J'ai donc fouillé du coté du compilateur intel. Il n'est effectivement pas libre mais ... Il est gratuit pour les utilisations non commerciales. Ça tombe bien je ne commerce pas. Je l'ai donc installé (non sans mal) et tenté une compilation. J'ai le droit a plusieurs "remark" mais il compile. Un moment de pure joie. Je profite enfin de mon architecture 64bits pour du calcul pur processeur :)
Merci à vous tous.