Lines Matching refs:lx

705       parameter (lx=lx1*ly1*lz1,lg=3+3*(ldim-2),lq=lzq**ldim)
712       common /vcrvh/ h1(lt),h2(lx*lelt),pap(3)
713       real*8 coords(ldim*lx*lelt)
741       do i=1,lx
746         coords(i+0*lx+3*j*lx)=x
747         coords(i+1*lx+3*j*lx)=y
748         coords(i+2*lx+3*j*lx)=z
799       call ceedvectorcreate(ceed,ldim*lx*nelt,vec_coords,err)
1014       parameter (lx=lx1*ly1*lz1,lg=3+3*(ldim-2),lq=lzq**ldim)
1022       real*8 coords(ldim*lx*lelt)
1051       do i=1,lx
1056         coords(i+0*lx+3*j*lx)=x
1057         coords(i+1*lx+3*j*lx)=y
1058         coords(i+2*lx+3*j*lx)=z
1118       call ceedvectorcreate(ceed,ldim*lx*nelt,vec_coords,err)
1446       parameter (lx=lx1*ly1*lz1,lg=3+3*(ldim-2))
1447       real*8       gf(lg,lx,lelt)             ! Equivalence new gf() data
1451       real*8   ap1(lx,lelt)
1452       real*8    p1(lx,lelt)
1453       real*8    h1(lx,lelt),h2(lx,lelt)
1473          do i=1,lx
1510       parameter (lx=lx1*ly1*lz1,lg=3+3*(ldim-2))
1511       real*8         gf(lg,lx,lelt)             ! Equivalence new gf() data
1515       real*8 ap1(lx,lelt)
1516       real*8  p1(lx,lelt)
1517       real*8  h1(lx,lelt),h2(lx,lelt)
1519       real*8 ur(lx),us(lx),ut(lx)
1533          do i=1,lx
1584       parameter (lx=lx1*ly1*lz1,lg=3+3*(ldim-2),lq=lzq**ldim)
1588       real*8 ap1(lx,lelt)
1589       real*8  p1(lx,lelt)
1590       real*8  h1(lx,lelt),h2(lx,lelt)
1602          do i=1,lx
1618       parameter (lx=lx1*ly1*lz1)
1620       real*8 pap(3),ap1(lx,lelt),p1(lx,lelt)
1621       real*8 h1(lx,lelt),h2(lx,lelt)