This name has already been used as an external function name. [U]

123456_123 · 发表于 2024-7-16 21:11:22

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]