Lines Matching refs:ngauss
50 ngauss = nint(lcsyst)
79 dimension ien(npro,nshl), strl(npro,ngauss),
80 & xmudmi(npro,ngauss), cdelsq(nlist),
81 & lfathe(npro,ngauss)
83 do intp = 1, ngauss
99 do int = 1, ngauss
127 do intp = 1, ngauss
222 do intp = 1, ngauss
291 & strl(numel,ngauss),
326 ngauss = nint(lcsyst)
375 ngauss = nint(lcsyst)
418 ngauss = nint(lcsyst)
421 if (ngauss .ne. ngaussf) then
436 ngauss = nint(lcsyst)
457 & xdenli(npro,ngauss), xnumli(npro,ngauss),
463 do intp = 1, ngauss
542 do intp = 1, ngauss