Bonjour
J'ai un petit souci de compilation
(passage du compilateur compaq fortran VC6 au dernier de chez intel)

Voila le message d'erreur :

error #7836: If the actual argument is scalar, the corresponding dummy argument shall be scalar unless the
actual argument is an element of an array that is not an assumed-shape or pointer array, or a substring of such an element. [Q]
error #7836: If the actual argument is scalar, the corresponding dummy argument shall be scalar unless the
actual argument is an element of an array that is not an assumed-shape or pointer array, or a substring of such an element. [BB_BC]
error #7836: If the actual argument is scalar, the corresponding dummy argument shall be scalar unless the
actual argument is an element of an array that is not an assumed-shape or pointer array, or a substring of such an element. [RIGK]
error #7836: If the actual argument is scalar, the corresponding dummy argument shall be scalar unless the
actual argument is an element of an array that is not an assumed-shape or pointer array, or a substring of such an element. [RIGM]

Dans une subroutine j'appelle :
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
 
subroutine test 
 
 implicit real*8(a-h)
 implicit real*8(o-z)
 implicit integer*4(i-n)
 
  real*8, POINTER :: bb(:)
  integer, POINTER :: ibb(:)
 
....
call mest(bb(ibq),bb(ibbc),bb(irigk),bb(irigm),ind,nprofil,t_lines,nbcont)
....
end subroutine test
 
 
avec 
 subroutine mest(q,bb_bc,rigk,rigm,ind,nprofil,t_lines,nbcont)
 
 implicit real*8(a-h)
 implicit real*8(o-z)
 implicit integer*4(i-n)
 
  dimension rigk(*), rigm(*), ind(*)
  dmension q(*), bb_bc(*)
.....
end subroutine mest
Merci d'avance pour votre aide