Lines Matching defs:Bflux
1 subroutine Bflux ( y, ac, u, x, subroutine
27 character*10 cname2
29 real*8 y(nshg,ndof), ac(nshg,ndof),
30 & u(nshg,nsd), x(numnp,nsd)
41 real*8 flxres(nshg,nflow),
42 & flxLHS(nshg,1), flxnrm(nshg,nsd),
43 & temp(nshg), rtmp(nshg,ndof),
44 & flxTot(nflow), wallssVec(nshg,3)
46 real*8 qres(nshg,nsd*nsd)
49 integer ilwork(nlwork),
50 & invflx(nshg), nodflx(nshg)
52 character*60 fname1, fmt1, fmt2, fnamer, fname2
53 character*13 fieldbflux
54 character*19 fieldwss
55 integer irstin, isize, nitems, ndofwss
56 integer iarray(50) ! integers read from headers
58 real*8, allocatable, dimension(:,:,:,:) :: xKebe, xGoC
59 integer, allocatable, dimension(:,:) :: ien2
60 integer, allocatable, dimension(:) :: map
61 real*8, allocatable, dimension(:,:) :: xmu2
399 997 call error ('bflux ','opening ', iflux)
402 2000 format(i6,i6,10(2x,E12.5e2))