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