subroutine DISP的错误
浏览：5053 回答：1
我希望用subroutine来定义物体进行一个线性移动和简谐运动，写了如下的subroutine DISP，但是一直提示Error in job Process_static_DISP: Problem during compilation。我的IVF和VS安装并没有错误，因为之前用其他subroutine运行的好好的
SUBROUTINE DISP(U,KSTEP,KINC,TIME,NODE,NOEL,JDOF,COORDS)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION U(3),TIME(2),COORDS(3)
C
IF (JDOF==1) THEN
U(1)=2*TIME(1)+0.1*SIN(20000*2*3.14*TIME(1))
ELSE
U(1)=0
ENDIF
RETURN
END
SUBROUTINE DISP(U,KSTEP,KINC,TIME,NODE,NOEL,JDOF,COORDS)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION U(3),TIME(2),COORDS(3)
C
IF (JDOF==1) THEN
U(1)=2*TIME(1)+0.1*SIN(20000*2*3.14*TIME(1))
ELSE
U(1)=0
ENDIF
RETURN
END
![[免费案例]Ensight案例教程分享](https://img.jishulink.com/cimage/245b3ca9e2c939e40491a25edae94515.jpeg?image_process=resize,fw_576,fh_320,)
另外，JDOF==1不知道会不会出问题，我习惯用JDOF.EQ.1代替。
在另外，最好不要有空行，加长C或者直接删掉，你的程序这么作，应该没问题，但是如果多重嵌套循环，可能就会出问题。