Searched refs:IKDOTS (Results 1 – 3 of 3) sorted by relevance
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
| H A D | cc_setk11.F | 2 SUBROUTINE CC_SETK11(IKTRAN,IKDOTS,MXTRAN,MXVEC, argument
30 INTEGER IKDOTS(MXVEC,MXTRAN)
67 DO WHILE (IKDOTS(IVEC,ITRAN).NE.IZETV .AND.
68 & IKDOTS(IVEC,ITRAN).NE.0 .AND. IVEC.LE.MXVEC)
72 IKDOTS(IVEC,ITRAN) = IZETV
82 & (IKTRAN(I,IDX),I=1,3),(IKDOTS(I,IDX),I=1,MXVEC)
|
| H A D | cc_kmat.F | 24 & FILKMA, IKDOTS, KCONS, MXVEC, WORK, LWORK) argument
49 INTEGER IKDOTS(MXVEC,NKTRAN) local
82 & IKDOTS(1,ISTART), KCONS(1,ISTART),
|
| H A D | ccqr_setup.F | 25 & IKTRAN, IKDOTS, NKTRAN,
78 INTEGER IKDOTS(MXVEC,MXTRAN)
170 IKDOTS(IVEC,ITRAN) = 0
328 CALL CC_SETB11(IKTRAN,IKDOTS,MXTRAN,MXVEC,
332 CALL CC_SETB11(IKTRAN,IKDOTS,MXTRAN,MXVEC,
336 CALL CC_SETB11(IKTRAN,IKDOTS,MXTRAN,MXVEC,
541 & (IKDOTS(I,ITRAN),I=1,MXVAK)
|