Lines Matching refs:lcsyst
42 lcsyst = lcblk(3,iblk)
50 ngauss = nint(lcsyst)
52 call getylist( ylist, ifathe(iel:inum,:), shp(lcsyst,1:nshl,:),
318 lcsyst = lcblk(3,iblk)
326 ngauss = nint(lcsyst)
327 ngaussf = nintf(lcsyst)
330 & shglf(lcsyst,:,1:nshl,:),
331 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
369 lcsyst = lcblk(3,iblk)
375 ngauss = nint(lcsyst)
377 & shp(lcsyst,1:nshl,:), ifathe(iel:inum,:))
410 lcsyst = lcblk(3,iblk)
418 ngauss = nint(lcsyst)
419 ngaussf = nintf(lcsyst)
423 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
424 & shp(lcsyst,1:nshl,:))
430 lcsyst = lcblk(3,iblk)
436 ngauss = nint(lcsyst)