Error 112 "reference to undefined variable, array element or function result"

**feynman** · 05/10/2007, 22h50

Salut,
J ai un probleme de compilation:
j ai ecrit un program en F77, et ca marche, mais sur un compilateur F90 sur mon pc ca donne erreur, alors qu est ce qu il faut rectifier?
merci

**phy4me** · 05/10/2007, 22h59

peut-tu nous ecrire l'erreur ?

**feynman** · 05/10/2007, 23h22

error 112,reference to undefined variable , array element or function result

**Ehouarn** · 06/10/2007, 09h11

Bonjour,

D'après le message d'erreur, tu utilises une variable/un élément de tableau/ une fonction non définie...
Visiblement ton compilateur 77 tolérait celà, mais pas ton compilateur 90 (ce qui est à mon gout plus sain).

As-tu pensé à utiliser un "implicit none" dans ton programme et à compiler avec un maximum d'options de diagnostiques d'erreurs?

**feynman** · 06/10/2007, 13h02

Tu as raison, j oublies tjs le implicit none, j esseyerai et je te dirai si le probleme existe ou pas

**feynman** · 06/10/2007, 13h08

Malheuresement le message existe toujours,
en effet il compile sans erreurs, mais dans apres, dans l affichage, ca me donne ce message

**FR119492** · 06/10/2007, 19h06

Salut !

Une méthode rustique mais souvent efficace, c'est la dichotomie (le nom est affreux, mais la méthode est toute simple):

Tu ajoutes, à peu près au milieu de ton programme, une instruction Print ou Write pour afficher une ou plusieurs variables qui te semblent être intéressantes, puis tu exécutes. Selon qu'une valeur est affichée ou non, tu sais si l'erreur est dans la première moitié ou dans la seconde.

Puis tu ajoutes un Print ou un Write au milieu la moitié qui contient l'erreur, et ainsi de suite, jusqu'à ce que tu saches dans quelle instruction se produit l'erreur. Tu affiches alors successivement toutes les variables utilisées dans cette instruction.

Cette méthode est utilisée surtout pour déverminer de très gros programmes, et, dans ton cas, c'est peut-être utiliser un marteau-pilon pour écraser une mouche, mais ça marche.

Bonne chance
Jean-Marc Blanc

**feynman** · 06/10/2007, 20h47

Slalut ,
Jean Marc, le compilateur F90 me donne l erreur dans un sous program, sans preciser,
malgre que le program marche tres bien en F77

**FR119492** · 07/10/2007, 19h40

Salut!

De deux choses l'une: ou bien tu as le fichier source de ton sous-programme, ou bien tu ne l'as pas.

Dans le premier cas, c'est très simple: tu appliques la méthode de la dichotomie à l'intérieur de ton sous-programme. Tu peux aussi vérifier (à l'intérieur du sous-programme), si tous les paramètres ont des valeurs correctes.

Dans le second cas, c'est un peu moins simple: tu vérifies les valeurs de tous les paramètres juste avant l'instruction d'appel de ton sous-programme. Maintenant, le plus ennuyeux pour toi serait qu'il y ait une erreur dans un sous-programme qui n'est pas de toi.

Bonne chance
Jean-Marc Blanc

**feynman** · 11/10/2007, 13h20

Je pense que j ai trouver le truc
Le compilateur F77 est sur lunix, tant que le compilateur F90 est sur windows.
Alors est ce que c est le vrai probleme?
si oui comment regler ce cas?
merci

**Sylvain Bergeron** · 11/10/2007, 13h41

C'est probablement un appel à une fonction ou routine propriétaire du compilateur F77 et elle n'existe pas dans ton compilateur F95. Normalement, le message d'erreur doit être accompagné du nom de la fonction ou de la routine problématique.

**feynman** · 11/10/2007, 15h30

Tu as raison,
J ai fait appelle a une subroutine, et elle me donne erreur ( c est moi qui a construit cette subroutine)

**Sylvain Bergeron** · 11/10/2007, 17h19

Est-ce une erreur de compilation ou de link ?

Je ne vois pas le lien entre le fait que ce soit une de tes routines et le fait que ce soit sensible à la plateforme / compilateur.

Peux-tu nous fournir une copie de l'affichage au moment où l'erreur se produit ? Avec quelques lignes avant le message ?

**feynman** · 11/10/2007, 20h49

Voila exactemenr ce que j obtient apres compilation (pas d erreurs dans la compilation)

Run-time Error
*** Error 112, Reference to undefined variable, array element or function result (/UNDEF)

MATMULL - in file gggggggg.f95 at line 88 [+01ce]

main - in file gggggggg.f95 at line 41 [+0909]

**Sylvain Bergeron** · 11/10/2007, 21h14

Dans mon manuel Compaq, on dit qu'une variable est defined when you give it a value.

Donc, l'erreur est que tu n'as pas assigné de valeur à la variable MALMULL (?) à la ligne 88 (?)

**feynman** · 11/10/2007, 23h22

Si j ai donne' une valeur a la subroutine Matmull, et cela ce voit clairement avec les resultats de F77.
Pour voir plus le probleme acceptez vous que je vous donne le programme?

**Ehouarn** · 12/10/2007, 08h17

C'est de loin la chose à faire; sinon on peut supputer à volonté (et pendant longtemps)...

Montre donc la source, ou si il y en a des tonnes, au moins les parties concernées (c.-à-d. les blocs de code aux alentours des lignes 41 et 88).

**feynman** · 13/10/2007, 01h41

Voila le code,
en fait Si tu a une matrice A et tu la decompose par A=C_1+C_2 (C1 et C2 sont des matrices superieures et nferieures)
ce program resoud le systeme lineaire AX=b par une methode iterative C1X^n+1+C2 X^n=b

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
 
 
 
             program ligne
              real A(3,3),B(3),C1(3,3),C2(3,3),X(3),Xold(3),M2(3)
     &           , normee, norme
     &           , verif, sm(3)
              integer i,j, num_iter
              read*,((A(i,j),j=1,3),i=1,3)
              print 10,((A(i,j),j=1,3),i=1,3)
10           format('A=',3(/,1X,3(F4.1,1X)))
              read*,(B(i),i=1,3)
              print 20,(B(i),i=1,3)
20           format('B=',5(F4.1,1X))
 
              do i=1,3
                 do j=1,3
                   if(i.LE.j) then
                     C1(i,j)=A(i,j)
                   else
                     C1(i,j)=0.0
                   endif
                 enddo
              enddo
              print 30,((C1(i,j),j=1,3),i=1,3)
30           format('C1=',3(/,1X,3(F4.1,1X)))
               do i=1,3
                 do j=1,3
                   if(i.GT.j) then
                     C2(i,j)=A(i,j)
                   else
                     C2(i,j)=0.0
                   endif
                 enddo
              enddo
               do i =1,3
                  X(i)=2.
               end do
 
              print 40,((C2(i,j),j=1,3),i=1,3)
40           format('C2=',3(/,1X,3(F4.1,1X)))
             norme = 1.
             num_iter = 0
              do while(norme.GT.0.01)
                 num_iter = num_iter + 1
                 Call  matmull(C2,Xold,M2)
                 do i = 1, 3
                   sm(i)=B(i)-M2(i)
                   end do
                 Call  triangle(C1,sm,X)
                 norme = normee(X,Xold)
                 print *, norme
                   do j=1,3
                        Xold(j) = X(j)
                   enddo
               print *, num_iter
               do i = 1, 3
                  print *, 'X',i,' = ',X(i)
                end do
              if (num_iter.gt.10) stop
              enddo
               do i = 1, 3
                  print *, 'X',i,' = ',X(i)
                end do
c
c   ***  verification de la solution
c
       do i = 1, 3
         verif = -B(i)
         do j = 1, 3
           verif = verif + A(i,j)*X(j)
         end do
         print *, '*** verification ligne ',i, verif
       end do
       end
                subroutine triangle(C,D,Y)
                real C(3,3),D(3),Y(3),S
                integer n,i
                Y(3)=D(3)/C(3,3)
                   do i=2,1,-1
                      S = 0.
                      do n=i+1,3
                          S=S+C(i,n)*Y(n)
                      enddo
                    Y(i)=(D(i)-S)/C(i,i)
                    enddo
                return
                end
 
               subroutine matmull(R,S,T)
               real R(3,3),S(3),T(3)
               do i=1,3
                  T(i)=0.0
                  do j=1,3
                     T(i)=T(i)+R(i,j)*S(j)
                  enddo
               enddo
               return
               end
 
               function normee(G,H)
               implicit none
               integer i
               real G(3),H(3),normee
               normee = 0.0
                  do i=1,3
                     normee = normee+(G(i)-H(i))**2
                  enddo
               normee = sqrt(normee)
               return
               end

**Ehouarn** · 13/10/2007, 10h30

Bonjour,

Je pense entrevoir le problème: Lors du tout premier appel à ta routine 'matmull', le vecteur 'Xold', utilisé par cette même routine pour calculer 'M2' n'est pas initialisé (les valeurs des éléments de 'Xold' sont donc indéterminés/dépendants d'éventuels comportement par défaut sur l'initialisation des variables propre à chaque compilateur).

Il faut initialiser proprement 'Xold' avant la boucle 'do while'.