Lines Matching refs:lcsyst
23 lcsyst = lcblk(3,iblk)
28 select case ( lcsyst )
30 maxnint=max(maxnint,nint(lcsyst))
31 do i=1,nint(lcsyst)
34 shgl(1,:,1:nshl,1:nint(lcsyst)) =
35 & shgl(1,:,1:nshl,1:nint(lcsyst))/two
39 maxnint=max(maxnint,nint(lcsyst))
40 do i=1,nint(lcsyst)
47 maxnint=max(maxnint,nint(lcsyst))
48 do i=1,nint(lcsyst)
55 maxnint=max(maxnint,nint(lcsyst))
56 do i=1,nint(lcsyst)