24小时热门版块排行榜

返回列表

wangx208

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 166.5
帖子: 4
在线: 4.3小时
虫号: 4254382
注册: 2015-11-29
性别: MM
专业: 交通工程

[求助] abaqus子程序编译错误

各位大神，想用子程序模拟车辆动荷载，子程序如下，但是子程序调试出现Syntax error, found END-OF-STATEMENT when expecting one of: ) ，abaqus调用时一直出现编译错误，求帮忙，多谢！
   subroutine dload(f,kstep,kinc,time,noel,npt,layer,kspt,coords,jltyp,sname)
C
   include 'aba_param.inc'
   parameter(zini=1,speed=0.2,length=0.2,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(2).lt.bcmax.and.coords(2).ge.bcmin) then
               f=pressure
   else
               f=0
   end if
100 continue
   return
   end

回复此楼

» 猜你喜欢

求助中医院临床中医中标的青年标书学习，谢谢已经有6人回复
浙大物院表面物理课题组长期招收普博及直博学生已经有259人回复
物理学I论文润色/翻译怎么收费? 已经有158人回复
【征稿】Springer Nature热电专题 Discover Materials / Discover Chemistry 已经有47人回复
25届硕士申请，材料计算方向已经有2人回复
课题组招1-2名硕士已经有1人回复
机时越来越贵之后，我把一部分 DFT 流程搬到了 AI 计算平台上已经有0人回复
斯坦福大学与Elsevier世界前2%学者新排名查询已经有1人回复
27申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！已经有19人回复
华南师范大学+双一流学科物理学+广东省杰青团队2027年博士招生+机器学习驱动材料设计已经有1人回复
apl投稿状态已经有2人回复

1楼 2015-12-03 16:46:35

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 wangx208 的主题更新

返回列表