隐式蠕变材料子程序
请问帮助文件当中给出的程序SUBROUTINE UCRPLW(CPA,CFT,CFE,CFTI,CFSTRE,CPTIM,TIMINC,
*EQCP,DT,DTDL,MDUM,NN,KC,MAT)
C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
C user routine to define implicit creep law
C input:
C cptim time at beginning of increment
C timinc time increment
C eqcp creep strain at beginning of increment
C dt temperature at beginning of increment
C dtdl incremental temperature
C mdum(1) user element number
C mdum(2) elsto element number
C nn integration point number
C kc layer number
C mat material number
C output:
C cpa creep constant
C cft temperature factor
C cfe creep strain factor
C cfti time factor
C cfstre stress exponent
C where:
C creep strain rate = cpa*cft*cfe*cfti*(stress**cfstre)
C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
IMPLICIT REAL*8 (A-H,O-Z)
DIMENSION MDUM(7)
DTEND=DT+DTDL
CFTI=1.D0
CFE=1.D0
CFSTRE=3.3D0
C1=16.7D-6
ALP=866.D0
G=(28388.D6-56.D6*DTEND)
CPA=C1*(ALP/G)**CFSTRE
Q=0.548D0
AK=8.617D-5
CFT=DEXP(-Q/AK/DTEND)*G/DTEND
RETURN
END
而我使用的时候去掉了*包括的内容，出错如下：
error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: * <IDENTIFIER>
SUBROUTINE UCRPLW(CPA,CFT,CFE,CFTI,CFSTRE,CPTIM,TIMINC,
-------------------------------------------------------------^
error #5276: Unbalanced parentheses
EQCP,DT,DTDL,MDUM,NN,KC,MAT)
---------------------------------^
小弟菜鸟一只还请高手指教。非常感谢！
子程序括弧未匹配。检查是否有一半括弧被注释掉了。 确实是这个原因，十分感谢！
页:
[1]