Fortran Coder

标题: 问题报错不知道如何解决 [打印本页]

作者: implicit 时间: 2022-11-9 16:21
标题: 问题报错不知道如何解决
这个是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(*)

作者: 风平老涡 时间: 2022-11-9 20:01
把 ABA_PARAM.INC 文件同时显示出来。

作者: Transpose 时间: 2022-11-9 20:43
本帖最后由 Transpose 于 2022-11-9 20:46 编辑

你这是固定格式

[Fortran] 纯文本查看 复制代码

SUBROUTINE UMESHMOTION(xxxxxx)

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

作者: implicit 时间: 2022-11-10 09:17

风平老涡发表于 2022-11-9 20:01
把 ABA_PARAM.INC 文件同时显示出来。

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

作者: implicit 时间: 2022-11-10 09:18

Transpose 发表于 2022-11-9 20:43
你这是固定格式

这一行超过72个 ...

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

作者: Transpose 时间: 2022-11-10 17:44

implicit 发表于 2022-11-10 09:18
我用*隔出第二行之后还继续报这个错误

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

作者: 风平老涡 时间: 2022-11-11 05:04
本帖最后由风平老涡于 2022-11-11 05:06 编辑

implicit 发表于 2022-11-10 09:17
您的意思是还需要另外一个ABA_PARAM.INC的文件才可以嘛？

你的原始代码中有include语句，表明有一个叫“ABA_PARAM.INC”文件在当前的目录下，该文件可能包函变量定义语句。error #6222可能与该文件有关。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)