User Subroutine Interface
subroutine vdflux (
C Read only (unmodifiable)variables -
1 nblock, ndim, kStep, kIncr, stepTime, totalTime, jUid,
2 amplitude, temp, curCoords, velocity, dirCos, jltyp, sname,
C Write only (modifiable) variable -
1 value )
C
include 'vaba_param.inc'
C
dimension curCoords(nblock,ndim), velocity(nblock,ndim),
1 jUid(nblock), dirCos(nblock,ndim,ndim), temp(nblock),
2 value(nblock)
character*80 sname
C
do 100 km = 1, nblock
user coding to define value
100 continue
return
end