标题: This name has already been used as an external function name. [U] [打印本页] 作者: 123456_123 时间: 2024-7-16 21:11 标题: This name has already been used as an external function name. [U] do mmm111=1,80
do nnn111=ncuty-40,ncuty+40
if ((((mmm111-1)**2+(nnn111-ncuty)**2).le.(nwlength**2)).and.(nnn111.le.(ncuty-ncutdy))) then
u(mmm111,nnn111)=0.0
v(mmm111,nnn111)=0.0
endif
enddo
enddo
求解！！！Error: This name has already been used as an external function name. [U]
Error: This function, which is specified as the left side of an assignment statement, is invalid. [U]
作者: fcode 时间: 2024-7-17 08:25
1. 写上 implicit none。
2. 对 U （及一切变量，尤其是数组）进行明确的定义。形如：
real :: U( 300 , 300 )