This subroutine is used for user-defined boundary values, characterized by the parameter USER on the *BOUNDARY card. The header and variable description is as follows:
subroutine uboun(boun,kstep,kinc,time,node,idof,coords,vold) ! ! 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 ! ! OUTPUT: ! ! boun boundary value for degree of freedom idof ! in node "node" !