- 积分
- 0
- 注册时间
- 2017-4-18
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2017-11-18 12:18:44
|
显示全部楼层
来自 山东济南
- SUBROUTINE UTRACLOAD(ALPHA,T_USER,KSTEP,KINC,TIME,NOEL,COORDS,NPT
- 1 DIRCOS,JLTYP,SNAME)
- INCLUDE 'ABA_PARAM.INC'
- DIMENSION T_USER(3),TIME(2),COORDS(3),DIRCOS(3,3)
- CHARACTER*80 SNAME
- PARAMETER(PY=1027.3d0,V=200.0d0,ZERO=0.0d0,
- 1 L0=34.0d0,L1=10.0d0,L2=14.0d0)
- C
- VEL=10.d0
- x1min=1.d0
- x1max=2.d0
- x2min=-3.d0
- x2max=-2.d0
- ymin=0.5d0-VEL*TIME(1)
- ymax=-0.5d0-VEL*TIME(1)
- if(COORDS(1).<=.x1max.and.COORDS(1).>=.x1min.and.
- 1COORDS(2).<=.ymin.and.COORDS(2).>=.ymax) then
- ALPHA=3*PY
- T_USER(1)=0.0
- T_USER(2)=0.0
- T_USER(3)=-1.0
- ELSE
- ALPHA=ZERO
- T_USER(1)=0.0
- T_USER(2)=0.0
- T_USER(3)=-1.0
- endif
- RETURN
- END
复制代码 |
|