Fortran Coder

查看: 846|回复: 1

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

[复制链接]

3

帖子

3

主题

0

精华

新人

F 币
18 元
贡献
9 点
发表于 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]

2031

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1632 元
贡献
705 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2024-7-17 08:25:07 | 显示全部楼层
1. 写上 implicit none。
2. 对 U (及一切变量,尤其是数组)进行明确的定义。形如:
real :: U( 300 , 300 )
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-9 20:45

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表