유효한 DO는

Question

이봐, 난 그래서 난 아마도 잘못 몇 가지를이 웹 사이트에 새로운 일을 해요있어

내부 배열 매트릭스와 루프,하지만 내 질문은 :

은 당신이 (다음과 같은 DO LOOP를 만들 수 있습니다 Fortran90) :

program help 
implicit none 

real, dimension (10,10) :: imarc 
integer :: R , j , k 

imarc (1:10,1:10) = 50 
imarc (1:10,1) = 20 
imarc (1,1:10) = 20 
imarc (1:10,10) = 20 
imarc (10,1:10) = 20 
imarc (3,3) = 100 


!!! HERE IS THE DO LOOP THAT GIVES A COMPILE ERROR 

DO R = 1 , 1000 
    DO j = 2 , 9 
    DO k = 2 , 9 

    imarc (j,k) = 0.25(imarc((j-1),k) + imarc((j+1),k) + imarc(j,(k-1)) + imarc(j,(k+1))) 
    imarc (3,3) = 100 

    END DO 
    END DO 
END DO 

WRITE (*,*) "Node (5,5) =", imarc(5,5) 

end program help 

누군가 내 문제를 해결할 수 있기를 바랍니다.

 imarc(j,k) = 0.25(imarc((j-1),k) + imarc((j+1),k) + imarc(j,(k-1)) + 
    1 
Error: Unclassifiable statement at (1) 

글쎄, 나는 누군가가 나를 도울 수있을만큼 적합한, 얻거나, 좋은 모든 것을 한 희망 : 여기

은 내가 오류 메시지입니다.

감사합니다. -marc

Answer 1

산술 연산자가 누락되었습니다. *을 0.25 후에 추측하겠습니다. 곱셈은 ​​대수학에서와 같이 인접한 양에 의해 암시되지 않습니다. 연산자를 사용해야합니다.

P. 잘 질문 ... 문제를 전시 한 작고 전체적인 프로그램.