Lines Matching refs:IKEEP
48 INTEGER IKEEP, FILS, FRERE, NFSIZ local
459 IKEEP = id%N + 1
461 IKEEP = 1
463 NA = IKEEP + id%N
464 NE = IKEEP + 2 * id%N
465 FILS = IKEEP + 3 * id%N
479 id%IS1( IKEEP + I - 1 ) = id%PERM_IN( I )
489 & LIW8, id%IS1(IKEEP),
529 & id%IS1(IKEEP),
564 IKEEP = 1
565 NA = IKEEP + id%N
566 NE = IKEEP + 2 * id%N
567 FILS = IKEEP + 3 * id%N
590 WORK1PTR => id%IS1(IKEEP : IKEEP + 3*id%N-1)
666 SSARBR => id%IS1(IKEEP:IKEEP+id%N-1)
738 & id%IS1(IKEEP+id%N), id%IS1(IKEEP+2*id%N), XNODEL,
1853 IKEEP = id%N + 1
1855 IKEEP = 1
1857 FILS = IKEEP + 3 * id%N
1858 NE = IKEEP + 2 * id%N
1859 NA = IKEEP + id%N