12         subroutine initBCprofileScale(vbc_prof,BC,yold,x)  argument
20         real*8 BC(nshg,ndofBC),yold(nshg,ndof),x(nshg,3)          local
87         call BCprofileScale(vbc_prof,BC,yold)
92         subroutine BCprofileScale(vbc_prof,BC,yold)  argument
100         real*8 BC(nshg,ndofBC),yold(nshg,ndof),mdotNow(3)    local
134                         BC(kk,3)=ctrl_a(3)*vbc_prof(kk,1)
135                         BC(kk,4)=ctrl_a(3)*vbc_prof(kk,2)
139                         BC(kk,3)=ctrl_a(1)*vbc_prof(kk,1)
142                         BC(kk,7) = 0.0d0 ! scalar_1 set to zero for zero flow
147                      BC(kk,4)=ctrl_a(2)*vbc_prof(kk,2)
150                      BC(kk,7) = 0.0d0 ! scalar_1 set to zero for zero flow