Discussion :

[Thorfin]

Bonjour,
J'ai fait un petit programme qui calcul l'énergie d'une molécule et après compilation j'ai 1 erreur que je n'arrive pas à résoudre.

L'erreur est la suivante :

wrong data type for reference to FUNCTION M1 from procedure main

J'utilise dans mon programme principal : M1(beta,gamma)
Définie par la suite :

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
      DOUBLE PRECISION FUNCTION M1(beta,gamma)
      IMPLICIT REAL * 8 (A-H,O-Z)
      common/nombr/nlambda,nmu/dist/R/plus/aincl,aincm
      DIMENSION alam(250),amu(250)
      aincl=19./dfloat(nlambda)
      aincm=2./dfloat(nmu)
      vlambda=1.
      DO 4 i=1.,nlambda+1.
      vmu=-1
      DO 5 j=1.,nmu+1.
      amu(j)=DEXP((-R/2.)*(gamma*(vlambda-vmu)
     1+beta*DSQRT((vlambda**2-1.)*(1.-vmu**2)+vlambda**2*vmu**2)))
     1*(vlambda-vmu)
      vmu=vmu+aincm
  5   CONTINUE
      alam(i)= A01AD(amu,1,1,nmu,aincm)
      vlambda=vlambda+aincl
  4   CONTINUE
      M1=A01AD(alam,1,1,nlambda,aincl)
      RETURN
      END

Je ne comprends pas cette erreur , d'autant plus qu'à l'université (sous Linux), cette erreur n'existe pas et le programme fonctionne.

P.S. : je suis sous windows xp avec microsoft developer studio
P.S.2 : je viens de débuter le Fortran

Merci de votre aide

[feynman]

Je vois bien que tu utilise le gamma mais tu ne l as pas declarer son type au debut (real, doubleprecision , ect).
De plus je te conseil d utiliser le implicit none au debut, comme ca tu sera obliger a declarer tout

[Thorfin]

Euh oui, j'avais oublié de dire que j'ai une boucle sur gamma et une sur beta dans le programme principal donc je n'ai pas besoin de les déclarer ici.

Y a t-il une explication à cette erreur ?

[Thorfin]

Comme je vous l'ai dit je suis débutant, ca ne m'étonnerai pas que l'erreur soit bête.

Si vous voulez des précisions supplémentaires n'hésitez pas à demander.(précisions vitales que j'aurais oublié de donner sur le programme, mais je pense que tout est là)

[feynman]

Il faut mettre implicit none, et a mon avis il faut tout declarer, meme dans les fonctions, pour cela met le implicit none

[Thorfin]

Salut donc si je te suis bien je rentre implicit none (je ne connait pas), et je redéfinit toutes mes variables. Comment ? Peut-tu m'expliciter ce que je dois rajouter a mon prog ? (sachant que gamma et beta varient)

Merci

[Sylvain Bergeron]

Le message d'erreur semble référer au programme principal (main), alors que tu nous fournis le source de la fonction.

As-tu déclaré M1 en real*8 dans le programme principal ? Utilises-tu des arguments real*8 également ?

La validation que les appels de fonction correspondent aux déclarations de ces dernières est facultative. Certains compilateurs le font, d'autre pas. Il est donc possible que ce soit pourquoi tu n'observe pas l'erreur partout.

Finalement, je ne peux que seconder la suggestion de feynman (on a fini par le convaincre !!!) d'utiliser implicit none... Comment faire ? Tu remplaces « implicit real * 8 ... » par « implicit none » et ensuite, tu déclares toutes les variables. C'est un peu long si tu modifie un programme existant, mais tu obtiendras un programme beaucoup plus facile d'entretien. Tu peux (doit) répéter l'opération à chaque fonction / subroutine / program.