Lines Matching refs:lcsyst
114 lcsyst = lcblk(3,iblk)
122 ngauss = nint(lcsyst)
123 ngaussf = nintf(lcsyst)
126 & shglf(lcsyst,:,1:nshl,:),
127 & shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
238 lcsyst = lcblk(3,iblk)
246 ngauss = nint(lcsyst)
247 ngaussf = nintf(lcsyst)
250 & fres, hfres, shgl(lcsyst,:,1:nshl,:),
251 & shp(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
257 lcsyst = lcblk(3,iblk)
265 ngauss = nint(lcsyst)
266 ngaussf = nintf(lcsyst)
269 & strl(iel:inum,:), shgl(lcsyst,:,1:nshl,:),
270 & shp(lcsyst,1:nshl,:))
552 lcsyst = lcblk(3,iblk)
558 ngauss = nint(lcsyst)
561 & mxmudmi(iblk)%p,cdelsq,shp(lcsyst,1:nshl,:))
907 wght=Qwt(lcsyst,intp) ! may be different now
1140 wght=Qwt(lcsyst,intp)