Lines Matching refs:tmp
23 real*8 BC(nshg,ndofBC),y(nshg,ndof),tmp(nsclr) local
29 tmp(j)=y(i,5+j)
31 call Dirichlet2Neumann(nsclr, itype, tmp)
39 BC(i,6+j)=-tmp(j)
46 subroutine Dirichlet2Neumann_faux(nscalar, itype, tmp) argument
64 real*8 tmp(nscalar) local
79 tmp(i) = 0.0d0
91 tmp(i) = D(i) * ( tmp(i) - 0.0 ) / distance * units
92 if(itype.eq.2) tmp(i) = tmp(i) / 2.0d+00
141 subroutine Dirichlet2Neumann(nscalar, itype, tmp) argument
143 real*8 tmp(nscalar),foo local
151 call Dirichlet2Neumann_1(nscalar,itype,tmp)
155 call Dirichlet2Neumann_2(nscalar,itype,tmp)
164 subroutine Dirichlet2Neumann_2(nscalar, itype, tmp) argument
181 real*8 tmp(nscalar) local
214 x = tmp(1)
215 y = tmp(2)
276 tmp(n-2) = (z(2,2) - z(2,1))/dx(2,itype)
383 subroutine Dirichlet2Neumann_1(nscalar, itype, tmp) argument
400 real*8 tmp(nscalar) local
438 conc_BC = tmp(1)
466 tmp(1) = flux_BC