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]