/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | ccsdt_g_noddy.F | 91 KLAMP0 = KT1AMP0 + NT1AMX 92 KLAMH0 = KLAMP0 + NLAMDT 168 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 179 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPB), 187 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPC), 254 & WORK(KLAMP0),WORK(KLAMH0), 258 & WORK(KLAMP0),WORK(KLAMH0), 264 & WORK(KLAMP0),WORK(KLAMH0), 266 & WORK(KLAMP0),WORK(KLAMH0), 272 & WORK(KLAMP0),WORK(KLAMH0), [all …]
|
H A D | ccsdt_ba_noddy.F | 101 KLAMP0 = KFOCKD + NORBT 102 KLAMH0 = KLAMP0 + NLAMDT 175 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 185 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPC), 192 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPD), 205 CALL CC_FCKMO(WORK(KFOCK0),WORK(KLAMP0),WORK(KLAMH0), 237 CALL CC_FCKMO(WORK(KFOCKB),WORK(KLAMP0),WORK(KLAMH0), 250 & WORK(KLAMP0),WORK(KLAMH0), 316 CALL CC_FCKMO(WORK(KFOCKBD),WORK(KLAMP0),WORK(KLAMHD), 348 CALL CC_FCKMO(WORK(KFOCKBC),WORK(KLAMP0),WORK(KLAMHC), [all …]
|
H A D | ccsdt_aa_noddy.F | 71 & LWRK1, KDUM, LWRK2, KT1AMP0, KLAMP0, KLAMH0 99 KLAMP0 = KFOCKD + NORBT 100 KLAMH0 = KLAMP0 + NLAMDT 153 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 178 CALL CC_FCKMO(WORK(KFOCK0),WORK(KLAMP0),WORK(KLAMH0), 192 CALL CC_FCKMO(WORK(KFIELD),WORK(KLAMP0),WORK(KLAMH0), 210 CALL CC_FCKMO(WORK(KFOCKB),WORK(KLAMP0),WORK(KLAMH0), 225 & WORK(KLAMP0),WORK(KLAMH0), 255 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPC), 280 CALL CC_FCKMO(WORK(KFOCKBC),WORK(KLAMP0),WORK(KLAMHC), [all …]
|
H A D | cc_hmat.F | 1265 KLAMP0 = KT1AMP0 + NT1AMX 1266 KLAMH0 = KLAMP0 + NLAMDT 1356 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPB), 1364 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPC), 1372 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPD), 1442 & WORK(KLAMP0),WORK(KLAMH0), 1446 & WORK(KLAMP0),WORK(KLAMH0), 1452 & WORK(KLAMP0),WORK(KLAMH0), 1460 & WORK(KLAMP0),WORK(KLAMH0), 1468 & WORK(KLAMP0),WORK(KLAMH0), [all …]
|
H A D | cc_famat.F | 870 KLAMP0 = KT1AMP0 + NT1AMX 871 KLAMH0 = KLAMP0 + NLAMDT 1019 & WORK(KLAMP0),WORK(KLAMH0), 1023 & WORK(KLAMP0),WORK(KLAMH0), 1031 & WORK(KLAMP0),WORK(KLAMH0), 1032 & WORK(KLAMP0),WORK(KLAMH0), 1149 & WORK(KLAMP0),WORK(KLAMH0), 1267 & WORK(KLAMP0),WORK(KLAMH0), 1595 KLAMP0 = KT1AM + NT1AMX 1596 KLAMH0 = KLAMP0 + NLAMDT [all …]
|
H A D | ccsdt_f_noddy.F | 129 KLAMP0 = KT1AMP0 + NT1AMX 130 KLAMH0 = KLAMP0 + NLAMDT 179 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 272 & WORK(KLAMP0),WORK(KLAMH0), 386 & WORK(KLAMP0),WORK(KLAMH0), 392 & WORK(KLAMP0),WORK(KLAMH0), 394 & WORK(KLAMP0),WORK(KLAMH0), 440 & WORK(KLAMP0),WORK(KLAMH0), 709 & WORK(KLAMP0),WORK(KLAMH0), 1589 KLAMP0 = KT1AMP0 + NT1AMX [all …]
|
H A D | cc3_bfmat.F | 103 INTEGER ISINT2,KRBJIA,KLAMP0,KLAMH0,KFOCKD,KFOCK0CK,KT2TP,KL1AM 375 KLAMP0 = KRBJIA + NT2SQ(ISYRES) 376 KLAMH0 = KLAMP0 + NLAMDT 449 * WORK(KLAMP0),ISYM0, 502 CALL CC3_BARINT(WORK(KT1R1),ISYMR1,WORK(KLAMP0), 768 CALL CC3_TROCC(WORK(KINTOC),WORK(KTROCR),WORK(KLAMP0), 950 * DUMMY,IDUMMY,WORK(KLAMP0), 1393 * WORK(KLAMP0),WORK(KLAMH0), 1417 * WORK(KLAMP0),1, 1445 * WORK(KLAMP0),1, [all …]
|
H A D | ccsdt_ints_noddy.F | 429 & KLAMP0, KLAMH0, KINT1T0, KINT2T0, KINT1S0, KINT2S0, 456 KLAMP0 = KEND1 457 KLAMH0 = KLAMP0 + NLAMDT 507 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT01AM), 520 CALL CC_FCKMO(WORK(KFOCK0),WORK(KLAMP0),WORK(KLAMH0), 535 CALL CC_FCKMO(WORK(KFIELD),WORK(KLAMP0),WORK(KLAMH0), 564 & WORK(KLAMP0),WORK(KLAMH0), 652 & WORK(KLAMP0),WORK(KLAMH0), 653 & WORK(KLAMP0),WORK(KLAMH0), 654 & WORK(KLAMP0),WORK(KLAMH0),
|
H A D | ccsdt_eta_noddy.F | 116 KLAMP0 = KT1AMP0 + NT1AMX 117 KLAMH0 = KLAMP0 + NLAMDT 153 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 242 & WORK(KLAMP0),WORK(KLAMH0), 376 & WORK(KLAMP0),WORK(KLAMH0), 792 KLAMP0= KFOCKA + NORBT*NORBT 793 KLAMH0= KLAMP0 + NLAMDT 839 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AM), 842 CALL CC_FCKMO(WORK(KFOCKA),WORK(KLAMP0),WORK(KLAMH0), 853 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AM), [all …]
|
H A D | cc3_gmatnew.F | 116 INTEGER ISINT2,KRBJIA,KLAMP0,KLAMH0,KFOCKD,KFOCK0CK,KT2TP,KL1AM local 379 KLAMP0 = KRBJIA + NT2SQ(ISYRES) 380 KLAMH0 = KLAMP0 + NLAMDT 442 CALL GET_LAMBDA0(WORK(KLAMP0),WORK(KLAMH0),WORK(KEND0),LWRK0) 459 * WORK(KLAMP0),ISYM0, 802 CALL CC3_TROCC(WORK(KINTOC),WORK(KTROCR),WORK(KLAMP0), 1004 * DUMMY,IDUMMY,WORK(KLAMP0), 1459 * WORK(KLAMP0),WORK(KLAMH0), 1483 * WORK(KLAMP0),1, 1493 * WORK(KLAMP0),WORK(KLAMH0), [all …]
|
H A D | cc3_hmat.F | 126 INTEGER ISINT2,KRBJIA,KLAMP0,KLAMH0,KFOCKD,KFOCK0CK,KT2TP,KL1AM local 413 KLAMP0 = KRBJIA + NT2SQ(ISYRES) 414 KLAMH0 = KLAMP0 + NLAMDT 480 CALL GET_LAMBDA0(WORK(KLAMP0),WORK(KLAMH0),WORK(KEND0),LWRK0) 497 * WORK(KLAMP0),ISYM0, 576 * WORK(KLAMP0),WORK(KLAMH0),WORK(KEND0),LWRK0, 845 CALL CC3_TROCC(WORK(KINTOC),WORK(KTROCR),WORK(KLAMP0), 1187 * WORK(KT3BVBL3),WORK(KLAMP0), 1460 * WORK(KLAMP0),WORK(KLAMH0), 1465 * WORK(KLAMP0),WORK(KLAMH0), [all …]
|
H A D | cc_fbta.F | 496 INTEGER ICORE, KLAMH0, KLAMP0, KDENS0, KT1AMP0 819 KLAMP0 = KT1AMP0 + NT1AMX 820 KLAMH0 = KLAMP0 + NLAMDT 1160 CALL CC_AODENS2(WORK(KLAMP0),WORK(KLAMH0),ISYM0, 1185 CALL CC_LAMTRA(WORK(KLAMP0),ISYM0, 1205 CALL CC_AODENS2(WORK(KLAMP0),WORK(KLAMH0),ISYM0, 1217 CALL CC_AODENS3(WORK(KLAMP0), ISYM0, 1759 CALL CCTRBT(WORK(K0XINT),WORK(KD0SRHF),WORK(KLAMP0), 1939 & WORK(KLAMP0),WORK(KLAMH0), 1972 & WORK(KLAMP0), WORK(KLAMH0), [all …]
|
H A D | cc3_xi_cont.F | 89 INTEGER KLAMP0,KLAMH0,KEND1,LWRK1,KDIJ,KDAB,KDIA,KT1AMP local 234 KLAMP0 = KT1AMP + NT1AM(ISYM0) 235 KLAMH0 = KLAMP0 + NLAMDT 249 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP), 286 & WORK(KLAMP0),WORK(KLAMH0), 373 INTEGER KLAMP0,KLAMH0,KFOCKD,KFCKBA,KT2TP,KL1AM,KL2TP local 565 KLAMP0 = 1 566 KLAMH0 = KLAMP0 + NLAMDT 590 CALL GET_LAMBDA0(WORK(KLAMP0),WORK(KLAMH0),WORK(KEND1),LWRK1) 908 * WORK(KLAMPY),ISYMY,WORK(KLAMP0), [all …]
|
H A D | cc3_aden_cub_t0.F | 56 INTEGER ISYM0,KT1AMP,KLAMP0,KLAMH0,KEND1,LWRK1,IOPT 74 KLAMP0 = KT1AMP + NT1AM(ISYM0) 75 KLAMH0 = KLAMP0 + NLAMDT 89 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP), 1675 KLAMP0 = 1 1676 KLAMH0 = KLAMP0 + NLAMDT 1750 * WORK(KLAMP0),ISYM0, 1757 * WORK(KLAMP0),ISYM0, 1764 * WORK(KLAMP0),ISYM0, 1887 CALL CC3_BARINT(WORK(KT1RZ),ISYMRZ,WORK(KLAMP0), [all …]
|
H A D | ccsdt_xi_noddy.F | 1247 & KLAMP0, KLAMH0, KT1AMP, KLC2AM, KLC1AM, KDIA2, KFIELD, 1276 KLAMP0 = 1 1277 KLAMH0 = KLAMP0 + NLAMDT 1308 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP), 1333 CALL CC_FCKMO(WORK(KFOCK0),WORK(KLAMP0),WORK(KLAMH0), 1345 CALL CC_FCKMO(WORK(KFIELD),WORK(KLAMP0),WORK(KLAMH0), 1387 & WORK(KLAMP0),WORK(KLAMH0), 1391 & WORK(KLAMP0),WORK(KLAMH0), 1395 & WORK(KLAMP0),WORK(KLAMH0), 1494 & WORK(KLAMP0),WORK(KLAMH0), [all …]
|
H A D | ccexnorm.F | 1195 INTEGER KFOCKD,KT2TP,KEB1,KEB2TP,KE1,KE2TP,KLAMP0 1312 KLAMP0 = KE2TP + NT2SQ(ISYME) 1313 KLAMH0 = KLAMP0 + NLAMDT 1382 CALL GET_LAMBDA0(WORK(KLAMP0),WORK(KLAMH0),WORK(KEND1),LWRK1) 1430 CALL CC3_BARINT(WORK(KE1),ISYME,WORK(KLAMP0), 1456 CALL CC3_TROCC(WORK(KINTOC),WORK(KTROC0),WORK(KLAMP0), 1472 CALL CC3_TROCC(WORK(KINTOC),WORK(KTROC0Y),WORK(KLAMP0), 1600 * WORK(KLAMP0),ISYM0, 1619 * WORK(KLAMP0),ISYM0, 1637 * WORK(KLAMP0),ISYM0, [all …]
|
H A D | cc_gmat.F | 5089 KLAMP0 = KT1AMP0 + NT1AMX 5090 KLAMH0 = KLAMP0 + NLAMDT 5176 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPB), 5184 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPC), 5270 & WORK(KLAMP0),WORK(KLAMH0), 5274 & WORK(KLAMP0),WORK(KLAMH0), 5280 & WORK(KLAMP0),WORK(KLAMH0), 5282 & WORK(KLAMP0),WORK(KLAMH0), 5288 & WORK(KLAMP0),WORK(KLAMH0), 5296 & WORK(KLAMP0),WORK(KLAMH0), [all …]
|
H A D | cc_fmat.F | 963 KLAMP0 = KT1AMP0 + NT1AMX 964 KLAMH0 = KLAMP0 + NLAMDT 1044 & DDOT(NLAMDT,WORK(KLAMP0),1,WORK(KLAMP0),1) 1079 & WORK(KLAMP0),WORK(KLAMH0), 1156 & WORK(KLAMP0), WORK(KLAMH0), 1167 & WORK(KLAMP0),WORK(KLAMH0), 1497 & WORK(KLAMP0), WORK(KLAMH0), 1535 & WORK(KLAMH0), WORK(KLAMP0), 1689 & WORK(KLAMP0),WORK(KLAMP0),1,WORK(KEND2),LWRK2, 2113 & WORK(KLAMP0), WORK(KLAMH0), [all …]
|
H A D | cc3_fmatsd.F | 67 INTEGER KRBJIA,KLAMP0,KLAMH0,KFOCKD,KT2TP,KL2TP 203 KLAMP0 = KRBJIA + NT2SQ(ISYRES) 204 KLAMH0 = KLAMP0 + NLAMDT 238 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 248 CALL CC3_TCME(WORK(KLAMP0),ISINT1,WORK(KEND1),LWRK1,IDUMMY,CDUMMY, 407 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPY),WORK(KLAMH0), 463 CALL CC3_TROCC(WORK(KINTOC),WORK(KTROC),WORK(KLAMP0), 839 * WORK(KLAMP0),1, 840 * WORK(KLAMP0),1,
|
H A D | cc_bmat.F | 619 KLAMP0 = KT1AMP0 + NT1AMX 620 KLAMH0 = KLAMP0 + NLAMDT 709 & DDOT(NLAMDT,WORK(KLAMP0),1,WORK(KLAMP0),1) 813 & WORK(KLAMP0), WORK(KLAMH0), 819 & WORK(KLAMP0),WORK(KLAMH0), 1118 & WORK(KLAMP0), WORK(KLAMH0), 1359 & WORK(KLAMP0),WORK(KLAMP0),1,WORK(KEND2),LWRK2, 1426 & WORK(KLAMP0), WORK(KLAMH0), 1945 & WORK(KLAMP0), WORK(KLAMH0), 1977 & WORK(KLAMP0), WORK(KLAMH0), [all …]
|
H A D | cc3_aden_cub.F | 53 INTEGER ISYM0,KT1AMP,KLAMP0,KLAMH0,KEND1,LWRK1,IOPT 70 KLAMP0 = KT1AMP + NT1AM(ISYM0) 71 KLAMH0 = KLAMP0 + NLAMDT 85 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP), 2747 KLAMP0 = 1 2748 KLAMH0 = KLAMP0 + NLAMDT 2830 * WORK(KLAMP0),ISYM0, 2837 * WORK(KLAMP0),ISYM0, 2844 * WORK(KLAMP0),ISYM0, 2863 * WORK(KLAMP0), [all …]
|
H A D | ccsdt_eta_cont.F | 73 * KLAMP0, KLAMH0, KFOCK0, KEND0, LWRK0, KT1AMP0, KEND1, 101 KLAMP0 = 1 102 KLAMH0 = KLAMP0 + NLAMDT 116 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 127 CALL CC_FCKMO(WORK(KFOCK0),WORK(KLAMP0),WORK(KLAMH0), 177 * WORK(KLAMP0),WORK(KLAMH0),WORK(KFOCK0), 188 * WORK(KLAMP0),WORK(KLAMH0),WORK(KFOCK0), 198 * WORK(KLAMP0),WORK(KLAMH0),WORK(KFOCK0), 209 * WORK(KLAMP0),WORK(KLAMH0),WORK(KFOCK0), 283 & WORK(KLAMP0),WORK(KLAMH0),
|
H A D | cc_xieta.F | 887 KLAMP0 = KT1AMP0 + NT1AMX 888 KLAMH0 = KLAMP0 + NLAMDT 917 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 921 CALL CC_AODENS(WORK(KLAMP0),WORK(KLAMH0),WORK(KDENS0), 1236 CALL CC_AODENS2(WORK(KLAMP0),WORK(KLAMH0),ISYM0, 1576 & WORK(KLAMP0), WORK(KLAMH0), ISYM0, 1993 & WORK(KLAMP0),WORK(KLAMH0), 2029 & WORK(KLAMP0), WORK(KLAMH0), 2734 * WORK(KLAMP0),WORK(KLAMH0), 2754 & WORK(KLAMP0),WORK(KLAMH0), [all …]
|
H A D | cc3_etasd.F | 79 INTEGER KLAMP0,KLAMH0,KFOCKD,KFCKBA,KT2TP,KL1AM,KL2TP 195 KLAMP0 = KRAIJB + NT2SQ(ISYRES) 196 KLAMH0 = KLAMP0 + NLAMDT 234 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 246 CALL CC3_TCME(WORK(KLAMP0),ISINT1,WORK(KEND1),LWRK1,IDUMMY,CDUMMY, 450 CALL CC3_TROCC(WORK(KINTOC),WORK(KTROC),WORK(KLAMP0), 674 CALL CCSDT_TRVIR(WORK(KINTVI),WORK(KTRVI19),WORK(KLAMP0), 819 * WORK(KLAMP0),ISYMB,B,ISYM0, 1068 * WORK(KLAMP0),1, 1069 * WORK(KLAMP0),1,
|
H A D | cc3_aden.F | 56 INTEGER ISYM0,KT1AMP,KLAMP0,KLAMH0,KEND1,LWRK1,IOPT 75 KLAMP0 = KT1AMP + NT1AM(ISYM0) 76 KLAMH0 = KLAMP0 + NLAMDT 90 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP), 9393 KLAMP0 = 1 9394 KLAMH0 = KLAMP0 + NLAMDT 9444 * WORK(KLAMP0),ISYM0, 9450 * WORK(KLAMP0),ISYM0, 9525 CALL CC3_BARINT(WORK(KT1R1),ISYMR1,WORK(KLAMP0), 9728 CALL INTOCC_T3X(LUCKJDR,FNCKJDR,WORK(KLAMP0),ISINT2R1, [all …]
|