我有一个简单的 Fortran 代码,但我遇到了一个我找不到解决方案的错误。有谁知道如何解决这一问题?
subroutine sort(A,A_done,N,P)
! Sort a real array by algebraically increasing value and return the permutation that
! rearranges the array
implicit none
Integer N, TEMP1, K, L, P(N), TEMP2
real(8), dimension(:) :: A_done
real(8), dimension(:) :: A
DO K=1, N-1
DO L=K+1, N
if A(K)>A(L)
TEMP1=A(K)
TEMP2=P(K)
A(K)=A(L)
P(K)=P(L)
A(L)=TEMP1
P(L)=TEMP2
end if
END DO
END DO
A_done=A
RETURN
END
gfortran -Wall -Werror -fbounds-check -w -L -lm -o 模拟 readinput.for nooutfile.for mean.for covariance.for correlation.for rperm.for simmain.for sort.for In file sort.for:13
if A(K)>A(L)
1
错误: (1) 在文件 sort.for:20 中的不可分类语句
end if
1
错误:在 (1) 处需要 END DO 语句 make: * [Simulation] 错误 1
谢谢您的帮助