bonjour a tous,
je débute avec le fortran et j'ai une erreur dont je ne trouve pas la cause, quelqu'un aurait une solution pour moi plz?

Code:
...
        implicit none
	complex*16 k,zeff,zpm,x,T,R
        real*8 Pi,amu,p,f,rho,h,z
	dimension rho(0:1000),h(0:1000),k(0:1000),x(0:1000)
	dimension zpm(1000),zeff(1000),T(0:1000),R(0:1000),z(1000)
        integer m,i,n,j
        open(1,file='cond3.dat',status='old')
	open(3,file='temp.dat',status='unknown')
	Pi = 3.14592654d0
        amu = 4*Pi*1.D-7
	p = 0.d0
        f = 1.D-7

	write(*,*)'how many layers?'
	read(*,*) n
	do i = 1,n
         read(1,*)rho(i)
	 write(*,*)'rho',i,rho(i)
	enddo
        do i = 1,n
	m = n-i
	j = n-i+1
            call srand(seed)
            h(m) = nint(10000.d0*rand()+10000.d0*m)
	write(*,*)'int',m,h(m)
	  k(m) = ((0.d0,1.d0)*f*amu*(1.d0/rho(j)))**(1.d0/2.d0)
          x(m) = (0.d0,1.d0)*k(m)*h(m)
	  z(m) = (0.d0,1.d0)*x(m)
	if (i.eq.1) then
	Zeff(j) = sqrt(f*amu/rho(j))
	zpm(j) = zeff(j)
	zpm(m) = sqrt(f*amu/rho(m))

	T(m) = zeff(j)+zpm(m)*tanh(z(m))
	R(m) = zpm(m)+zeff(j)*tanh(z(m))

	zeff(m) = zpm(m)*[T(n)/R(n)]

	else
	zeff(j) = zeff(m)
	zpm(m) = sqrt(f*amu/rho(m))

	T(m) = zeff(j)+zpm(m)*tanh(z(m))
	R(m) = zpm(m)+zeff(j)*tanh(z(m))

	zeff(m) = zpm(j)*[T(n)/R(n)]

	endif
	write(*,*)'imp eff',m,Zeff(m)
	enddo
...
me rend a la compilation:

zeff(m) = zpm(j)*[T(n)/R(n)]
1
Error: Incompatible ranks 0 and 1 in assignment at (1)


donc je lance une p'tit ...
Merci d'avance