SUBROUTINE vfilm(
C Read only (unmodifiable) variables -
* nblock, ndim, kStep, kIncr, stepTime, totalTime, jElemUid, jNodeUid,
* numExfv, temp, field, curCoords, areaNode, jltyp, sname,
C Write only (modifiable) variables -
* h, sink )
C
include 'vaba_param.inc'
C
dimension curCoords(nblock,ndim), jElemUid(nblock), stepTime(2),
* jNodeUid(nblock), field(nblock,numExfv), areaNode(nblock),
* temp(nblock), h(nblock), sink(nblock)
character*80 sname
C
do 100 km = 1, nblock
user coding to define valueh and valuet
100 continue
return
end