24小时热门版块排行榜    

查看: 1589  |  回复: 0

wangx208

新虫 (初入文坛)

[求助] 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
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 wangx208 的主题更新
信息提示
请填处理意见