Searched refs:ISINT1RB (Results 1 – 2 of 2) sorted by relevance
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | cc3_gmatnew.F | 121 INTEGER ISINT1RB,ISINT2RB,ISINT1BC local 515 ISINT1RB = MULD2H(ISINT1,ISYMRB) 580 KBIOVVO = KBIOOOO + N3ORHF(ISINT1RB) 581 KBIOOVV = KBIOVVO + NT2SQ(ISINT1RB) 582 KEND0 = KBIOOVV + NT2SQ(ISINT1RB) 589 CALL DZERO(WORK(KBIOVVO),NT2SQ(ISINT1RB)) 590 CALL DZERO(WORK(KBIOOVV),NT2SQ(ISINT1RB)) 593 * ISINT1RB,LU4VB,FN4VB, 1323 * ISINT1RB,WORK(KT2RC),ISYMRC, 1472 * WORK(KBIOOOO),ISINT1RB,
|
H A D | cc3_hmat.F | 131 INTEGER ISINT1RB,ISINT2RB,ISINT1BC,ISINT1RBD,ISINT1BCD local 561 ISINT1RB = MULD2H(ISINT1,ISYMRB)
|