Lines Matching refs:AddIndex

1029   FUNCTION AddIndex(Ind, Harmonic)  function
1032     Integer :: Ind, AddIndex  local
1043       AddIndex = 2 * Ind
1045       AddIndex = Ind
1048   END FUNCTION AddIndex 
1184 …        IF(.NOT.ASSOCIATED(CM % ParallelInfo % NeighbourList(RowId+AddIndex(j-1))%Neighbours)) THEN
1185               ALLOCATE(CM % ParallelInfo % NeighbourList(RowId+AddIndex(j-1)) % Neighbours(nn))
1188             CM % ParallelInfo % NeighbourList(RowId+AddIndex(j-1)) % Neighbours(1)   = CVar % Owner
1195                 CM % ParallelInfo % NeighbourList(RowId+AddIndex(j-1)) % Neighbours(l) = k
1199             CM % RowOwner(RowId + AddIndex(j-1))   = Cvar % Owner
1452             CALL CountMatElement(Rows, Cnts, RowId + AddIndex(j), Cvar % dofs)
1522             CALL CreateMatElement(Rows, Cols, Cnts, VvarId, VvarId + AddIndex(j))
1527               CALL CreateMatElement(Rows, Cols, Cnts, VvarId + AddIndex(j), IvarId)
1529 …                CALL CreateMatElement(Rows, Cols, Cnts, VvarId + AddIndex(j), VvarId + AddIndex(j))
1738       dofIdtest = AddIndex(vpolordtest + 1) + vvarId
1740         dofId = AddIndex(vpolord + 1) + vvarId
1762       dofId = AddIndex(vpolord + 1) + vvarId