Lines Matching refs:igp
51 integer :: ii,jj,kk,ll,nold,gg(3),ngt,nmtxmax0,nmtxmax1,nmtxt,j,i, igp, igp_loc
388 do igp =1,nmtx
393 if (igp .eq. 1) then
409 igp_loc = INDXG2L(igp, xct%nb, peinf%inode, 0, peinf%npes)
410 iowner = INDXG2P(igp, xct%nb, peinf%inode, 0, peinf%npes)
412 xct%epscol_bg(1:nmtx,igp,1) = epscol(:)
414 xct%epscol(1:nmtx,igp,1) = epscol(:)
423 xct%epsdiag_bg(igp,1) = epscol(igp)
425 xct%epsdiag(igp,1) = epscol(igp)
598 do igp=1,nmtx
602 xct%epsdiag_bg(igp,irq+1)=epscol(igp)
604 xct%epsdiag(igp,irq+1)=epscol(igp)
610 igp_loc = INDXG2L(igp, xct%nb, peinf%inode, 0, peinf%npes)
611 iowner = INDXG2P(igp, xct%nb, peinf%inode, 0, peinf%npes)
613 xct%epscol_bg(1:nmtx,igp,irq+1) = epscol(:)
615 xct%epscol(1:nmtx,igp,irq+1) = epscol(:)
684 igp = INDXL2G(igp_loc, xct%nb, peinf%inode, 0, peinf%npes)
686 tempepsdiag(igp, irq) = xct%epscol(igp, igp_loc, irq)