This subroutine is used for user-defined boundary values, characterized by the parameter USER on the *BOUNDARYQ card. The header and variable description is as follows:
subroutine uboun(boun,kstep,kinc,time,node,idof,coords,vold,mi)
!
! user subroutine uboun
!
!
! INPUT:
!
! kstep step number
! kinc increment number
! time(1) current step time
! time(2) current total time
! node node number
! idof degree of freedom
! coords (1..3) global coordinates of the node
! vold(0..4,1..nk) solution field in all nodes
! 0: temperature
! 1: displacement in global x-direction
! (or mass flow rate for fluid nodes)
! 2: displacement in global y-direction
! 3: displacement in global z-direction
! 4: static pressure
! mi(1) max # of integration points per element (max
! over all elements)
! mi(2) max degree of freedomm per node (max over all
! nodes) in fields like v(0:mi(2))...
!
! OUTPUT:
!
! boun boundary value for degree of freedom idof
! in node "node"
!