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

123456_123

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

1. 写上 implicit none。
2. 对 U （及一切变量，尤其是数组）进行明确的定义。形如：
real :: U( 300 , 300 )