Discussion :

[Nulysses]

Bonjour,

j'ai le programme suivant qui lit un fichier dat et le range dans 1 matrice A(7x2) et je veux mettre dans la matrice C (7) le quotient de la division (à chaque ligne ) de A(i,1)/A(i,2), cependant lorsque je veux compiler le programme, je reçois le message d'erreur suivant :

exo3333.for:16.20:

PARAMETER (m=7)
1
Error: PARAMETER attribute conflicts with DUMMY attribute in 'm' at (1)

Voici le programme :

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
PROGRAM linearleast
      IMPLICIT NONE
      INTEGER i,n,j
      PARAMETER (n=7)
      REAL A(n,2)
      OPEN (33,FILE='xydata.dat',form='formatted',status='old')
      DO i=1,n
         READ (33,*) (A(i,j),j=1,2)
      END DO
      CALL coef (A,n)
      END
 
      SUBROUTINE coef (B,m)
      IMPLICIT NONE
      INTEGER i,m,j
      PARAMETER (m=7)
      REAL B(m,2),C(m),av(m)
      DO i=1,m
         C(i)=0
      END DO
      j=1
      DO i=1,m
         C(i)=B(i,j)/B(i,j+1)
      END DO
      av=0.
      DO i=1,m
         av=av+C(i)
      END DO
      PRINT *,C
      END

Qu'ai-je mal fait ?

Merci d'avance, Nulysses

[doguette]

Bonjour,
Ton conflit vient probablement du fait que m est un paramètre entrant mais aussi un paramètre interne fixe pour ta subroutine. De manière générale, essaie de mieux distinguer ce qui ne te sers que pour les calculs (donc éléments purement internes à ta subroutine) ou qui relève du programme général. Sinon, pourquoi déclares-tu av comme un tableau alors qu'il semble s'agir d'un simple réel?
Bon courage.