- 积分
- 0
- 注册时间
- 2023-5-22
- 仿真币
-
- 最后登录
- 1970-1-1
|
新人写个移动荷载的子程序,用的dload子程序,自己写的部分应该没有问题,却出现这样的报错:DLOAD.for(4): error #5102: Cannot open include file 'ABA_PARAM.INC'
INCLUDE 'ABA_PARAM.INC'
搞不懂是什么原因,大神们帮忙看一看!!!
下面是我的程序
SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,
1 COORDS,JLTYP,SNAME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION TIME(2), COORDS (3)
CHARACTER*80 SNAME
real s,v,x,z
v = 60
s = v*TIME(2)
x = COORDS(1)
z = COORDS(2)
IF ((z.ge.2 .and. z.le.2.2) .or. (z.ge.3.8 .and. z.le.4)) then
F = 0.7d6
if (x>=s-0.2 .and. x<=s) then
F = 0.7d6
else
F = 0
END IF
ELSE
F = 0
END IF
RETURN
END
|
|