| 查看: 1413 | 回复: 3 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
求助：abaqus 子程序问题
|
||
|
刚学abaqus 子程序，下面是子程序： subroutine dload(f, kstep, kinc, time, noel, npt, layer, kspt, 1 coords, jltyp, sname) C include 'aba_param.inc' parameter (zini=10d0, 1 speed=5.5556d0, 1 length=0.22d0, 1 pressure=0.7d6) ) C dimension time(2),coords(3) character*80 sname C -------------------------------------------------------------------- C speed 为车速 C bcmax 和 bcmin 分别为荷载的上下边界 C length 为车轮荷载的长度 C distance 为 time（2）时间内荷载移动的距离 C -------------------------------------------------------------------- distance=speed*time(2) bcmid=zini-distance bcmax= bcmid bcmin=bcmax-length do 100 k=1,npt if(coords(3).lt.bcmax.and.coords(3).ge.bcmin) then f=pressure else f=0 end if 100 continue return end 模拟行车荷载，（注：子程序他人学术文献中的）， 运行时错误：problem during compliation -c:\ljf\temp\dload.for 我想问：是子程序本身的问题？是安装的程序有问题？ 请赐教，将不甚感激！！ |
回复此楼» 猜你喜欢
【复旦大学】二维材料方向招收2026年博士研究生1名
已经有0人回复
-
北京纳米能源与系统研究所 王中林院士/曹南颖研究员课题组2026级硕/博/博后招生
已经有10人回复
-
物理学I论文润色/翻译怎么收费?
已经有260人回复
-
荷兰Utrecht University超快太赫兹光谱王海教授课题招收2026 CSC博士生
已经有23人回复
-
反铁磁体中的磁性切换：两种不同的机制已成功可视化
已经有0人回复
-
求标准粉末衍射卡号 ICDD 01-076-1802
已经有0人回复
-
新西兰Robinson研究所招收全奖PhD
已经有0人回复
-
石墨烯转移--二氧化硅衬底石墨烯
已经有0人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- abaqus教程（加精）
已经有91人回复
- Fortran程序在linux下编译的问题
已经有5人回复
- 杨氏模量、弹性模量、剪切模量、体积模量、强度、刚度
已经有77人回复
- abaqus移动热源加载
已经有4人回复
- Abaqus的子程序问题
已经有5人回复
- 【求助】abaqus并行运算的子程序VUMAT提交模版
已经有3人回复
- 请教各位大侠，关于ABAQUS单位量纲的问题~
已经有13人回复
- 求助abaqus二次开发
已经有4人回复
- abaqus基础视频教程1
已经有70人回复
- 求助}abaqus循环计算问题
已经有4人回复
- 新手如何学习ABAQUS-EXPLICIT
已经有14人回复
- 【资源】SIMULIA ABAQUS 6.7
已经有7人回复
- 【资源】浅谈ABAQUS用户子程序【已搜索无重复】
已经有146人回复
3楼2015-04-25 09:54:59
2楼2014-09-19 11:20:06
4楼2015-10-10 18:13:58