abaqus子程序disp
时间: 2023-08-30 11:05:11 浏览: 95
Abaqus的子程序disp是用于输出节点的位移和速度信息的子程序。它可以在Abaqus模拟过程中被调用,以在每个时间步长结束时输出节点的位移和速度信息。以下是一个简单的disp子程序示例:
```
subroutine disp(step, time, noel, npt, coord, displ)
implicit none
integer, intent(in) :: step, noel, npt
real*8, intent(in) :: time
real*8, intent(in) :: coord(3,*)
real*8, intent(in) :: displ(3,*)
integer :: i
write(*,*) 'STEP:', step, 'TIME:', time
write(*,*) 'NODE COORDINATES:'
do i=1,npt
write(*,*) i, coord(1,i), coord(2,i), coord(3,i)
end do
write(*,*) 'NODE DISPLACEMENTS:'
do i=1,npt
write(*,*) i, displ(1,i), displ(2,i), displ(3,i)
end do
return
end subroutine disp
```
该子程序将输出每个时间步的节点坐标和节点位移信息。在输出文件中,每个时间步的信息将附加到文件末尾。在Abaqus输入文件中,可以使用以下语句来调用该子程序:
```
*Output, field
*Node Output
U
*Element Output, directions=YES
COORD
*Node Output, user subroutine=disp, frequency=1
U
```
这将使Abaqus输出节点的位移信息,并在每个时间步结束后调用disp子程序以输出节点的位移和速度信息。