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

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.   
                Error: This function, which is specified as the left side of an assignment statement, is invalid.   

fcode 发表于 2024-7-17 08:25:07

1. 写上 implicit none。
2. 对 U （及一切变量，尤其是数组）进行明确的定义。形如：
real :: U( 300 , 300 )
页: [1]
查看完整版本: This name has already been used as an external function name. [U]