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?
me rend a la compilation: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 ...
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![]()
-----