问题报错不知道如何解决

implicit · 发表于 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(*)

风平老涡 · 发表于 2022-11-9 20:01:01

把 ABA_PARAM.INC 文件同时显示出来。

Transpose · 发表于 2022-11-9 20:43:08

本帖最后由 Transpose 于 2022-11-9 20:46 编辑

你这是固定格式

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

SUBROUTINE UMESHMOTION(xxxxxx)

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

implicit · 发表于 2022-11-10 09:17:55

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

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

implicit · 发表于 2022-11-10 09:18:55

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

这一行超过72个 ...

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

Transpose · 发表于 2022-11-10 17:44:04

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

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

风平老涡 · 发表于 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可能与该文件有关。

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

规矩勋章