新手求助子程序解释

aurberon

本人新手 学习abaqus creep User subroutine 文档中 creep子程序
SUBROUTINE CREEP(DECRA,DESWA,STATEV,SERD,EC,ESW,P,QTILD,
     1 TEMP,DTEMP,PREDEF,DPRED,TIME,DTIME,CMNAME,LEXIMP,LEND,
     2 COORDS,NSTATV,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME
C
      DIMENSION DECRA(5),DESWA(5),STATEV(*),PREDEF(*),DPRED(*),
     1 TIME(2),COORDS(*),EC(2),ESW(2)
C
C DEFINE CONSTANTS
C
      A=1e-11
      SIG0=400
      AN=2.23
C
      T1=EXP(QTILD/SIG0)
      T2=EXP(-QTILD/SIG0)
      DECRA(1)=A*(.5*(T1-T2))**AN*DTIME
      IF(LEXIMP.EQ.1) THEN
       DECRA(5)=AN*A*(0.5*(T1-T2))**(AN-1.0)*DTIME/
     1             SIG0*0.5*(T1+T2)
      END IF
C
      RETURN
      END
其中 DECRA(1)=A*(.5*(T1-T2))**AN*DTIME 的**是什么意思啊 是什么的运算啊