setvtz()

subroutine module_mp_nssl_2mom::setvtz ( integer  ngscnt, real, dimension(ngs,lv:lhab)  qx, real, dimension(lc:lhab)  qxmin, real, dimension(ngs,ls:lhab)  qxw, real, dimension(ngs,lc:lhab)  cx, real, dimension(ngs)  rho0, real, dimension(ngs)  rhovt, real, dimension(ngs,lc:lhab,3)  xdia, real, dimension(lc:lhab)  cno, real, dimension(ngs)  cnostmp, real, dimension(ngs,lc:lhab)  xmas, real, dimension(ngs,lc:lhab,3)  vtxbar, real, dimension(ngs,lc:lhab)  xdn, real, dimension(lc:lhab)  xvmn0, real, dimension(lc:lhab)  xvmx0, real, dimension(ngs,lc:lhab)  xv, real, dimension(lc:lhab)  cdx, real, dimension(ngs,lc:lhab)  cdxgs, integer  ipconc1, integer  ndebug1, integer  ngs, integer  nz, integer, dimension(ngs)  kgs, real, dimension(ngs)  fadvisc, real  cwmasn, real  cwmasx, real  cwradn, real, dimension(ngs)  cnina, real  cimna, real  cimxa, integer, intent(in)  itype1a, integer, intent(in)  itype2a, real, dimension(ngs)  temcg, integer, intent(in)  infdo, real, dimension(ngs,lc:lhab)  alpha, integer, intent(in)  ildo, real, dimension(ngs,lh:lhab)  axx, real, dimension(ngs,lh:lhab)  bxx  )

private

References gamma_sp().

Referenced by nssl_2mom_gs(), and ziegfall1d().

Here is the call graph for this function:

Here is the caller graph for this function: