| 查看: 1545 | 回复: 1 | ||
[求助]
abaqus hetval和usdfld二次开发
|
|
大家好，本人在学习abaqus二次开发的时候遇到了一些问题，特来向各位请教一下。 http://blog.sina.com.cn/s/blog_171ccf9230102wvuo.html例子如这个链接中所示，是关于abaqus 的hetval接口和usdfld接口的一个二次开发。 本人程序如下所示 SUBROUTINE HETVAL(CMNAME,TEMP,TIME,DTIME,STATEV,FLUX, 1 PREDEF,DPRED) C INCLUDE 'ABA_PARAM.INC' C CHARACTER*80 CMNAME C DIMENSION TEMP(2),STATEV(*),PREDEF(*),TIME(2),FLUX(2), 1 DPRED(*) C FLUX(1)=STATEV(1) C RETURN END SUBROUTINE USDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT, 1 TIME,DTIME,CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER, 2 KSPT,KSTEP,KINC,NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO,LACCFLA) C INCLUDE 'ABA_PARAM.INC' C CHARACTER*80 CMNAME,ORNAME CHARACTER*3 FLGRAY(15) DIMENSION FIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3), 1 T(3,3),TIME(2) DIMENSION ARRAY(15),JARRAY(15),JMAC(*),JMATYP(*),COORD(*) C STATEV(1)=1e7 C RETURN END 在计算的时候总是无法完成计算，MSG中提示是error;user surbrutine usdfld is missing 不知道各位虫友有什么办法能够解决这个问题呢？十分感谢  |
回复此楼» 猜你喜欢
散金币祈福
已经有187人回复
-
求助，如何提取ELK的rt-TDDFT在某一时刻的自旋密度分布和电子密度分布
已经有1人回复
-
物理学I论文润色/翻译怎么收费?
已经有239人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
深圳大学应用技术学院招聘凝聚态物理博士后
已经有117人回复
-
深圳大学2027级光电信息工程/物理学研究生推免
已经有70人回复
-
求助中医院临床中医中标的青年标书学习，谢谢
已经有4人回复
-
浙大物院表面物理课题组长期招收普博及直博学生
已经有257人回复
-
【征稿】Springer Nature热电专题 Discover Materials / Discover Chemistry
已经有47人回复
| 无 |
2楼2017-12-22 14:26:12