问题报错不知道如何解决
这个是umeshmotion的子程序：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(*)
DIMENSIONTIME(2)
DIMENSIONARRAY(15)
DIMENSIONJELEMLIST(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.
DIMENSION JMATYP(*),JGVBLOCK(*)
把 ABA_PARAM.INC 文件同时显示出来。 本帖最后由 Transpose 于 2022-11-9 20:46 编辑
你这是固定格式
SUBROUTINE UMESHMOTION(xxxxxx)
这一行超过72个字符了，需要续行(或者你通过编译器选项设置了132字符，第一个错误指的字符刚好132)
风平老涡 发表于 2022-11-9 20:01
把 ABA_PARAM.INC 文件同时显示出来。
您的意思是 还需要另外一个ABA_PARAM.INC的文件才可以嘛？ Transpose 发表于 2022-11-9 20:43
你这是固定格式
这一行超过72个 ...
我用*隔出第二行之后还继续报这个错误:'( implicit 发表于 2022-11-10 09:18
我用*隔出第二行之后还继续报这个错误
继续给出新的报错信息和代码信息 本帖最后由 风平老涡 于 2022-11-11 05:06 编辑
implicit 发表于 2022-11-10 09:17
您的意思是 还需要另外一个ABA_PARAM.INC的文件才可以嘛？
你的原始代码中有include语句，表明有一个叫“ABA_PARAM.INC”文件在当前的目录下，该文件可能包函变量定义语句。error #6222可能与该文件有关。
页:
[1]