Fortran Coder

查看: 125|回复: 6

[求助] 问题报错不知道如何解决

[复制链接]

3

帖子

1

主题

0

精华

新人

F 币
16 元
贡献
7 点
发表于 2022-11-9 16:21:55 | 显示全部楼层 |阅读模式
这个是umeshmotion的子程序:
[Fortran] 纯文本查看 复制代码
C        USER INPUT FOR ADAPTIVE MESH CONSTRAINT
           SUBROUTINE UMESHMOTION(UREF,ULOCAL,NODE,NNDOF,LNODETYPE,ALOCAL,NDIM,TIME,DTIME,PNEWDT,KSTEP,KINC,KMESHSWEEP,JMATYP,JGVBLOCK,LSMOOTH)
          INCLUDE 'ABA_PARAM.INC'
C      USER DEFINED DIMENSION STATEMENTS
        DIMENSION ULOCAL(*)   
        DIMENSION ALOCAL(NDIM,*)
        DIMENSION JGVBLOCK(*),JMATYP(*)
        DIMENSION  TIME(2)        
        DIMENSION  ARRAY(15)
        DIMENSION  JELEMLIST(10),JELEMTYPE(10)

        double precision k,PEEQ
C      
        NELEMS=10
        k=1.0
C      
       CALL GETNODETOELEMCONN(NODE,NELEMS,JELEMLIST,JELEMTYPE,JRCD,JGVBLOCK)
C     
       CALL GETVRMAVGATNODE(NODE,JTYP,'PE',ARRAY,JRCD,JELEMLIST,NELEMS,JMATYP,JGVBLOCK)
C     
       PEEQ=ARRAY(7)
C     
       if(PEEQ.GT.0.0) then
          ULOCAL(NDIM)=-k*PEEQ
       end if

       RETURN
       END


以下是报错内容,求教各位大神这是什么问题。初学者比较菜
umeshmotion.for(1): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ) ,
           SUBROUTINE UMESHMOTION(UREF,ULOCAL,NODE,NNDOF,LNODETYPE,ALOCAL,NDIM,TIME,DTIME,PNEWDT,KSTEP,KINC,KMESHSWEEP,JMATYP,JGVBLO
------------------------------------------------------------------------------------------------------------------------------------^
.\ABA_PARAM.INC(8): error #6222: This IMPLICIT statement is not positioned correctly within the scoping unit.
      implicit real*8(a-h,o-z)
------^
umeshmotion.for(7): error #6221: The assumed-size array must be a dummy argument.   [JGVBLOCK]
        DIMENSION JMATYP(*),JGVBLOCK(*)

180

帖子

2

主题

0

精华

宗师

F 币
1751 元
贡献
812 点

规矩勋章

发表于 2022-11-9 20:01:01 | 显示全部楼层
把 ABA_PARAM.INC 文件同时显示出来。

82

帖子

2

主题

1

精华

大师

Vim

F 币
657 元
贡献
325 点

规矩勋章

发表于 2022-11-9 20:43:08 | 显示全部楼层
本帖最后由 Transpose 于 2022-11-9 20:46 编辑

你这是固定格式
[Fortran] 纯文本查看 复制代码
SUBROUTINE UMESHMOTION(xxxxxx)

这一行超过72个字符了,需要续行(或者你通过编译器选项设置了132字符,第一个错误指的字符刚好132)

3

帖子

1

主题

0

精华

新人

F 币
16 元
贡献
7 点
 楼主| 发表于 2022-11-10 09:17:55 | 显示全部楼层
风平老涡 发表于 2022-11-9 20:01
把 ABA_PARAM.INC 文件同时显示出来。

您的意思是 还需要另外一个ABA_PARAM.INC的文件才可以嘛?

3

帖子

1

主题

0

精华

新人

F 币
16 元
贡献
7 点
 楼主| 发表于 2022-11-10 09:18:55 | 显示全部楼层
Transpose 发表于 2022-11-9 20:43
你这是固定格式

这一行超过72个 ...

我用*隔出第二行之后还继续报这个错误

82

帖子

2

主题

1

精华

大师

Vim

F 币
657 元
贡献
325 点

规矩勋章

发表于 2022-11-10 17:44:04 | 显示全部楼层
implicit 发表于 2022-11-10 09:18
我用*隔出第二行之后还继续报这个错误

继续给出新的报错信息和代码信息

180

帖子

2

主题

0

精华

宗师

F 币
1751 元
贡献
812 点

规矩勋章

发表于 2022-11-11 05:04:23 | 显示全部楼层
本帖最后由 风平老涡 于 2022-11-11 05:06 编辑
implicit 发表于 2022-11-10 09:17
您的意思是 还需要另外一个ABA_PARAM.INC的文件才可以嘛?

你的原始代码中有include语句,表明有一个叫“ABA_PARAM.INC”文件在当前的目录下,该文件可能包函变量定义语句。error #6222可能与该文件有关。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2022-12-9 03:56

Powered by Tencent X3.4

© 2013-2022 Tencent

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