cflux.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cflux (flux, msecpt, kstep, kinc, time, node, coords, vold, mi)

Function/Subroutine Documentation

cflux()

subroutine cflux	(	real*8, dimension(msecpt)	flux,
		integer	msecpt,
		integer	kstep,
		integer	kinc,
		real*8, dimension(2)	time,
		integer	node,
		real*8, dimension(3)	coords,
		real*8, dimension(0:mi(2),*)	vold,
		integer, dimension(*)	mi
	)

!
!     user subroutine cflux
!
!
!     INPUT:
!
!     msecpt             number of flux 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..4,1..nk)   solution field in all nodes
!                        (not available for CFD-calculations)
!                        0: temperature
!                        1: displacement in global x-direction
!                        2: displacement in global y-direction
!                        3: displacement in global z-direction
!                        4: not used
!     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:
!
!     flux(1..msecpt)   concentrated flux in the node
!           
      implicit none
!
      integer msecpt,kstep,kinc,node,mi(*) 
      real*8 flux(msecpt),time(2),coords(3),vold(0:mi(2),*)
!
      flux(1)=10.d0
!
      return