Searched refs:ISINT1BC (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 520 ISINT1BC = MULD2H(ISINT1,ISYMBC) 631 KBCIOVVO = KBCIOOOO + N3ORHF(ISINT1BC) 632 KBCIOOVV = KBCIOVVO + NT2SQ(ISINT1BC) 633 KEND0 = KBCIOOVV + NT2SQ(ISINT1BC) 645 * ISINT1BC,LU4VBC,FN4VBC, 697 KTROCR = KINTOC + NTOTOC(ISINT1BC) 698 KTROCR1 = KTROCR + NTRAOC(ISINT1BC) 699 KEND0 = KTROCR1 + NTRAOC(ISINT1BC) 798 IF (NTOTOC(ISINT1BC) .GT. 0) THEN [all …]
|
H A D | cc3_hmat.F | 131 INTEGER ISINT1RB,ISINT2RB,ISINT1BC,ISINT1RBD,ISINT1BCD local 571 ISINT1BC = MULD2H(ISINT1,ISYMBC) 683 KBCIOVVO = KBCIOOOO + N3ORHF(ISINT1BC) 684 KBCIOOVV = KBCIOVVO + NT2SQ(ISINT1BC) 685 KEND0 = KBCIOOVV + NT2SQ(ISINT1BC) 692 CALL DZERO(WORK(KBCIOOOO),N3ORHF(ISINT1BC)) 693 CALL DZERO(WORK(KBCIOVVO),NT2SQ(ISINT1BC)) 694 CALL DZERO(WORK(KBCIOOVV),NT2SQ(ISINT1BC)) 697 * ISINT1BC,LU4VBC,FN4VBC, 861 ISYCKBDRBC = MULD2H(ISYMD,ISINT1BC) [all …]
|