人在德国社区 - Powered by Discuz! Board

标题: 问个abaqus里subroutine 的问题？ [打印本页]

作者: muyangren 时间: 2006-3-7 18:11 标题: 问个abaqus里subroutine 的问题？

读出来的数非常小负的230次方，为什么？
   SUBROUTINE USDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT,TIME,DTIME,
   1 CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER,KSPT,KSTEP,KINC,
   2 NDI,NSHR,COORD,JMAC,JMTYP,MATLAYO,LACCFLG)
C
   INCLUDE 'ABA_PARAM.INC'
C
   CHARACTER*80 CMNAME,ORNAME
   CHARACTER*3  FLGRAY(15)
   DIMENSION FIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3),T(3,3),TIME(2),
   * COORD(*),JMAC(*),JMTYP(*)
   DIMENSION ARRAY(15),JARRAY(15)
C
C GET TEMPERATURES FROM PREVIOUS INCREMENT
   CALL GETVRM('S',ARRAY,JARRAY,FLGRAY,JRCD,
   $    JMAC, JMTYP, MATLAYO, LACCFLG)
   STATEV(1) = ARRAY(1)
   WRITE(6,*)'the S11 is:', STATEV(1)
   RETURN
   END
C=======================================================================
   SUBROUTINE FRIC(LM,TAU,DDTDDG,DDTDDP,DSLIP,SED,SPD,
   1 DDTDDT,PNEWDT,STATEV,DGAM,TAULM,PRESS,DPRESS,DDPDDH,
   2 SLIP,KSTEP,KINC,TIME,DTIME,NOEL,CINAME,SLNAME,
   3 MSNAME,NPT,NODE,NPATCH,COORDS,RCOORD,DROT,TEMP,
   4 PREDEF,NFDIR,MCRD,NPRED,NSTATV,CHRLNGTH,PROPS,NPROPS)
C
   INCLUDE 'ABA_PARAM.INC'
C
   CHARACTER*80 CINAME,SLNAME,MSNAME
   DIMENSION TAU(NFDIR),DDTDDG(NFDIR,NFDIR),DDTDDP(NFDIR),
   1          DSLIP(NFDIR),DDTDDT(NFDIR,2),STATEV(*),
   2          DGAM(NFDIR),TAULM(NFDIR),SLIP(NFDIR),TIME(2),
   3          COORDS(MCRD),RCOORD(MCRD),DROT(2,2),TEMP(2),
   4          PREDEF(2,*),PROPS(NPROPS)
C
   CALL SUBROUTINE USDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT,TIME,DTIME,
   1 CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER,KSPT,KSTEP,KINC,
   2 NDI,NSHR,COORD,JMAC,JMTYP,MATLAYO,LACCFLG)

   RETURN
   END

作者: muyangren 时间: 2006-3-7 18:12

高手请帮忙谢谢

作者: 老虾 时间: 2006-3-7 18:26

把inp打包上传,顺便说一下是什么分析.光看user subroutine看不出啥.

作者: 炖锅肉，吃巴顿 时间: 2006-3-7 18:28

原帖由老虾于 2006-3-7 18:26 发表
把inp打包上传,顺便说一下是什么分析.光看user subroutine看不出啥.

据说这位大虾是Aachen算盘界的太抖yes.gif

[ 本帖最后由炖锅肉，吃巴顿于 2006-3-7 18:29 编辑 ]

作者: 老虾 时间: 2006-3-7 18:30

原帖由 炖锅肉，吃巴顿 于 2006-3-7 18:28 发表

据说这位大虾是Aachen算盘界的太抖yes.gif

你谁啊,怎么总和我过不去!
不过倒是挺了解俺,俺一看abaqus就哆嗦.

作者: muyangren 时间: 2006-3-7 18:46

我用的是 abaqus user=xxxx.f
identifer:xxxxxxxxxx(.inp)
还是不行

作者: Flea 时间: 2006-3-7 20:31

楼主是谁啊, 嘿嘿

作者: 老虾 时间: 2006-3-8 12:10

读出来的数非常小负的230次方，为什么？

没明白什么意思,什么叫读出来的数?变量?哪个变量?

另外负的230次方的数,你是在什么平台上作的计算

作者: muyangren 时间: 2006-3-8 17:39

unix 下 abaqus6。4 现在很郁闷，一点办法没有

作者: Flea 时间: 2006-3-8 20:35

甭郁闷, 明天考完试就好了

欢迎光临人在德国社区 (http://csuchen.de/bbs/)