Home
last modified time | relevance | path

Searched refs:ISINT1BC (Results 1 – 2 of 2) sorted by relevance

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dcc3_gmatnew.F121 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 Dcc3_hmat.F131 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 …]