Temperature (utemp.f)

With this subroutine the user can define a temperature field. It is triggered bythe parameter USER on the *TEMPERATURE card. The header and variable description is as follows:

      subroutine utemp(temp,msecpt,kstep,kinc,time,node,coords,vold)
!
!     user subroutine utemp
!
!
!     INPUT:
!
!     msecpt             number of temperature values (for volume elements:1)
!     kstep              step number
!     kinc               increment number
!     time(1)            current step time
!     time(2)            current total time
!     node               node number
!     coords(1..3)       global coordinates of the node
!     vold(0..3,1..nk)   solution field in all nodes
!                        0: temperature
!                        1: displacement in global x-direction
!                        2: displacement in global y-direction
!                        3: displacement in global z-direction
!
!     OUTPUT:
!
!     temp(1..msecpt)    temperature in the node
!