Hi
I have a problem compiling
Error is :
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.
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]
my code :
in first file :
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
Second file :
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
thank you for your help
