Demande d'aide à propos Fortran

[Ghali78]

Salut, j'ai un programme fortran dont je dois faire une modification en changeant la variable "i" par une autre sous forme de "SIN (i)" mais, à chaque fois que je l’exécute un erreur apparaît: "Errors in declarations, no further processing for RESULT, Error executing fl32.exe". Voici le code à traiter:

! streamfunction calculations
	strf(0,0)=0.
	do i=1,n
	rhoav=0.5*(rho(i-1,0)+rho(i,0))
	if(i.ne.0) strf(i,0)=strf(i-1,0)-rhoav*0.5*(v(i-1,0)+v(i,0))
	do j=1,m
	rhom=0.5*(rho(i,j)+rho(i,j-1))
	strf(i,j)=strf(i,j-1)+rhom*0.5*(u(i,j-1)+u(i,j))
	end do
	end do

	do i=0,n
	do j=0,m
	write(2,*)i,j,u(i,j)
	enddo
	enddo

	do i=0,n
	do j=0,m
	write(3,*)i,j,v(i,j)
	enddo
	enddo

	do i=0,n
	do j=0,m
	write(4,*)i,j,th(i,j)
	enddo
	enddo

	do i=0,n
	do j=0,m
	write(5,*)i,j,strf(i,j)
	enddo
	enddo

-----