/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | ccpt_den.F | 183 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 297 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 353 CALL CCDINTMO(WORK(KINTIJ),WORK(KINTIA),WORK(KINTAB), 411 & WORK(KINTIA),WORK(KINTAB),WORK(KONEIJ), 412 & WORK(KONEAI),WORK(KONEIA),WORK(KONEAB), 418 & WORK(KINTIA),WORK(KINTAB),WORK(KONEIJ), 419 & WORK(KONEAI),WORK(KONEIA),WORK(KONEAB), 429 * WORK(KINTAB),WORK(KONEIJ),WORK(KONEAI), 430 * WORK(KONEIA),WORK(KONEAB),WORK(KINIJT), 431 * WORK(KINABT),WORK(KD1IJT),WORK(KD1ABT), [all …]
|
H A D | ccsdt_g_noddy.F | 168 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 177 & WORK(KT1AMPB),WORK(KDUM)) 179 CALL CCLR_LAMTRA(WORK(KLAMP0),WORK(KLAMPB), 180 & WORK(KLAMH0),WORK(KLAMHB),WORK(KT1AMPB),ISYMB) 185 & WORK(KT1AMPC),WORK(KDUM)) 188 & WORK(KLAMH0),WORK(KLAMHC),WORK(KT1AMPC),ISYMC) 369 CALL CCSDT_L3AM(WORK(KL3AM),WORK(KINT1T0),WORK(KINT2T0), 370 * WORK(KXIAJB),WORK(KFOCK0),WORK(KL1AM), 371 * WORK(KL2AM),WORK(KSCR1),WORK(KFOCKD)) 408 & WORK(KDUM),WORK(KEND1)) [all …]
|
H A D | cc_2eexp_2.F | 198 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 254 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 264 CALL CC_DENAO(WORK(KAODEN),ISDEN,WORK(KONEAI),WORK(KONEAB), 377 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 468 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 554 CALL CC_D1FCB(WORK(KAODEN),WORK(KOFFIJ),WORK(KOFFJI), 555 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 560 CALL CC_D1FCB(WORK(KKABAO),WORK(KOFFIJ),WORK(KOFFJI), 561 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 690 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KONEAI), [all …]
|
H A D | ccefffock.F | 374 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 429 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 541 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 630 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 700 CALL CC_D1FCB(WORK(KAODEN),WORK(KOFFIJ),WORK(KOFFJI), 701 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 706 CALL CC_D1FCB(WORK(KKABAO),WORK(KOFFIJ),WORK(KOFFJI), 707 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 776 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KONEAI), 863 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), [all …]
|
H A D | cc_fmattst.F | 566 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM), 667 CALL CC_YD(WORK(KYDENB),WORK(KYMAT),ISYML,WORK(KLAMDH), 670 CALL CC_YD(WORK(KYDENX),WORK(KYMATX),ISYRES,WORK(KLAMDH), 741 CALL CC_C1T2C(WORK(KL1R2),WORK(KL1AM),WORK(KC2AM), 1567 CALL CC_FCKMO(WORK(KFOCK),WORK(KLAMDP),WORK(KLAMDH), 1593 CALL CC_11A(WORK(KRHO1),WORK(KFCKLR),ISYRES,WORK(KLAMDH), 1793 CALL CC_22EC(WORK(KRHO2),WORK(KC2AM),WORK(KXIM), 1944 CALL CC_FCKMO(WORK(KFOCKC),WORK(KLAMDP),WORK(KLAMDH), 1974 CALL CC_FCKMO(WORK(KFCKAO),WORK(KLAMPC),WORK(KLAMDH), 1992 CALL CC_FCKMO(WORK(KFCKAO),WORK(KLAMDP),WORK(KLAMHC), [all …]
|
H A D | cc_2eexp_1.F | 187 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 243 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 253 CALL CC_DENAO(WORK(KAODEN),ISDEN,WORK(KONEAI),WORK(KONEAB), 281 CALL CC_DENAO(WORK(KKABAO),ISDEN,WORK(KOFDAI),WORK(KOFDAB), 362 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 453 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 533 CALL CC_D1FCB(WORK(KAODEN),WORK(KOFFIJ),WORK(KOFFJI), 534 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 539 CALL CC_D1FCB(WORK(KKABAO),WORK(KOFFIJ),WORK(KOFFJI), 540 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), [all …]
|
H A D | ccpt_grad0.F | 203 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 257 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 267 CALL CC_DENAO(WORK(KAODEN),ISDEN,WORK(KONEAI),WORK(KONEAB), 378 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 468 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 550 CALL CC_D1FCB(WORK(KAODEN),WORK(KOFFIJ),WORK(KOFFJI), 551 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 556 CALL CC_D1FCB(WORK(KKABAO),WORK(KOFFIJ),WORK(KOFFJI), 557 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 706 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KONEAI), [all …]
|
H A D | cc_grad.F | 188 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 242 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 252 CALL CC_DENAO(WORK(KAODEN),ISDEN,WORK(KONEAI),WORK(KONEAB), 359 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 450 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 527 CALL CC_D1FCB(WORK(KAODEN),WORK(KOFFIJ),WORK(KOFFJI), 528 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 533 CALL CC_D1FCB(WORK(KKABAO),WORK(KOFFIJ),WORK(KOFFJI), 534 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 607 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KONEAI), [all …]
|
H A D | cc_hmat.F | 384 & WORK(KEPSI1),WORK(KEPSI2),WORK(KEND0),LEND0) 392 & WORK(KEPSI1),WORK(KEPSI2),WORK(KEND0),LEND0) 956 CALL CCRHSN(WORK(KRHO1D),WORK(KRHO2D),WORK(KC1AM), 1055 CALL CCRHSN(WORK(KRHO1D),WORK(KRHO2D),WORK(KC1AM), 1176 CALL CCRHSN(WORK(KRHO1D),WORK(KRHO2D),WORK(KC1AM), 1345 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 1385 CALL CC_FCKMO(WORK(KFOCK0),WORK(KLAMP0),WORK(KLAMH0), 1569 CALL CCSDT_L03AM(WORK(KL3AM),WORK(KINT1T0),WORK(KINT2T0), 1570 * WORK(KXIAJB),WORK(KFOCK0),WORK(KL1AM), 1571 * WORK(KL2AM),WORK(KSCR1),WORK(KFOCKD), [all …]
|
H A D | cc_grad_1.F | 202 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 256 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 266 CALL CC_DENAO(WORK(KAODEN),ISDEN,WORK(KONEAI),WORK(KONEAB), 370 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 461 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 538 CALL CC_D1FCB(WORK(KAODEN),WORK(KOFFIJ),WORK(KOFFJI), 539 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 544 CALL CC_D1FCB(WORK(KKABAO),WORK(KOFFIJ),WORK(KOFFJI), 545 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 674 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KONEAI), [all …]
|
H A D | cc_grad0.F | 194 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 248 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 258 CALL CC_DENAO(WORK(KAODEN),ISDEN,WORK(KONEAI),WORK(KONEAB), 362 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 454 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 533 CALL CC_D1FCB(WORK(KAODEN),WORK(KOFFIJ),WORK(KOFFJI), 534 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 539 CALL CC_D1FCB(WORK(KKABAO),WORK(KOFFIJ),WORK(KOFFJI), 540 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 613 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KONEAI), [all …]
|
H A D | ccsdt_ba_noddy.F | 175 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 186 & WORK(KLAMH0),WORK(KLAMHC),WORK(KTC1AM),ISYMC) 193 & WORK(KLAMH0),WORK(KLAMHD),WORK(KTD1AM),ISYMD) 205 CALL CC_FCKMO(WORK(KFOCK0),WORK(KLAMP0),WORK(KLAMH0), 219 CALL CC_FCKMO(WORK(KFIELD),WORK(KLAMP0),WORK(KLAMH0), 237 CALL CC_FCKMO(WORK(KFOCKB),WORK(KLAMP0),WORK(KLAMH0), 314 CALL CC_FCKMO(WORK(KFCKBUF),WORK(KLAMPD),WORK(KLAMH0), 316 CALL CC_FCKMO(WORK(KFOCKBD),WORK(KLAMP0),WORK(KLAMHD), 323 CALL CCSDT_XKSI3_2(WORK(KOMEGA3),WORK(KFOCKBD),WORK(KT3AM)) 346 CALL CC_FCKMO(WORK(KFCKBUF),WORK(KLAMPC),WORK(KLAMH0), [all …]
|
H A D | ccsdt_b_noddy.F | 250 & WORK(KLAMPA),WORK(KLAMHA),WORK(KFOCKA), 300 & WORK(KLAMPB),WORK(KLAMHB),WORK(KFOCKB), 470 CALL CCSDT_FCK_R(WORK(KFCKAR),WORK(KXIAJB),WORK(KTA1AM)) 474 CALL CCSDT_FCK_R(WORK(KFCKBR),WORK(KXIAJB),WORK(KTB1AM)) 479 CALL CCSDT_OMEGA2(WORK(KOMEGA2),WORK(KINT1TA),WORK(KINT2TA), 539 & WORK(KINT1SA),WORK(KINT2SA),WORK(KT2AMB), 553 & WORK(KINT1SB),WORK(KINT2SB),WORK(KT2AMA), 595 CALL CCSDT_XKSI3_2(WORK(KB3AM),WORK(KFLDA1),WORK(KT3AM)) 619 CALL CCSDT_XKSI3_2(WORK(KB3AM),WORK(KFLDB1),WORK(KT3AM)) 629 & WORK(KINT1SAB),WORK(KINT2SAB),WORK(KFOCKD), [all …]
|
H A D | cc_ftst.F | 724 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM), 893 CALL CC_C1T2C(WORK(KL1R2),WORK(KL1AM),WORK(KC2AM), 1687 CALL CC_FCKMO(WORK(KFOCK),WORK(KLAMDP),WORK(KLAMDH), 1864 CALL CC_22EC(WORK(KRHO2),WORK(KC2AM),WORK(KXIM), 2004 CALL CC_FCKMO(WORK(KFOCKC),WORK(KLAMDP),WORK(KLAMDH), 2034 CALL CC_FCKMO(WORK(KFCKAO),WORK(KLAMPC),WORK(KLAMDH), 2052 CALL CC_FCKMO(WORK(KFCKAO),WORK(KLAMDP),WORK(KLAMHC), 2321 CALL CCRHS_A(WORK(KRHO2),WORK(KL2AM),WORK(KGAMMC), 3069 CALL CCRHSN(WORK(KRHO1D),WORK(KRHO2D),WORK(KC1AM), 3287 CALL CCRHSN(WORK(KRHO1D),WORK(KRHO2D),WORK(KC1AM), [all …]
|
H A D | cc_grad2e.F | 169 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 259 CALL CC_EITR(WORK(KONEAB),WORK(KONEIJ),WORK(KEND1),LWRK1,1) 261 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 340 CALL CC_D1FCB(WORK(KAODEN),WORK(KOFFIJ),WORK(KOFFJI), 341 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 346 CALL CC_D1FCB(WORK(KKABAO),WORK(KOFFIJ),WORK(KOFFJI), 347 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), 425 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KONEAI), 511 CALL CC_D1FCB(WORK(KAODEN),WORK(KOFFIJ),WORK(KOFFJI), 512 * WORK(KOFFAI),WORK(KOFFIA),WORK(KEND1), [all …]
|
H A D | ccsdt_aa_noddy.F | 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), 269 CALL CCSDT_T03AM(WORK(KT3AM),WORK(KINT1S),WORK(KINT2S), 270 & WORK(KT2AM0),WORK(KSCR1),WORK(KFOCKD), 278 CALL CC_FCKMO(WORK(KFCKBUF),WORK(KLAMPC),WORK(KLAMH0), 280 CALL CC_FCKMO(WORK(KFOCKBC),WORK(KLAMP0),WORK(KLAMHC), 292 CALL CCSDT_XKSI3_2(WORK(KOMEGA3),WORK(KFOCKBC),WORK(KT3AM)) 356 CALL CCSDT_XKSI2_2(WORK(KOMEGA2),WORK(KFOCKB),WORK(KT3AM)) [all …]
|
H A D | cc_grad2.F | 294 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 350 CALL CC_XI(WORK(KXMAT),WORK(KZ2AM),ISYMTR,WORK(KT2AM),ISYMOP, 357 CALL CC_YI(WORK(KYMAT),WORK(KZ2AM),ISYMTR,WORK(KT2AM),ISYMOP, 365 CALL CC_EITR(WORK(KONEAB),WORK(KONEIJ),WORK(KEND1),LWRK1,1) 367 CALL DIAGEN(WORK(KONEIA),WORK(KT2AMT),WORK(KONEAI)) 375 CALL CC_EITR(WORK(KD1ABT),WORK(KD1IJT),WORK(KEND1),LWRK1,1) 416 CALL CC_DENAO(WORK(KKABAO),ISDEN,WORK(KOFDAI),WORK(KOFDAB), 417 * WORK(KOFDIJ),WORK(KOFDIA),ISDEN,WORK(KCMO),1, 435 CALL CC_DENAO(WORK(KAODEN),ISDEN,WORK(KONEAI),WORK(KONEAB), 436 * WORK(KONEIJ),WORK(KONEIA),ISDEN,WORK(KLAMDP),1, [all …]
|
H A D | cc_rhtr3.F | 563 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM), 580 CALL CC_AODENS(WORK(KLAMDP),WORK(KLAMDH),WORK(KDENS0),ISYMH, 1484 CALL CC_FCKMO(WORK(KFOCK0),WORK(KLAMDP),WORK(KLAMDH), 1661 CALL CC_FCKMO(WORK(KFCKC1),WORK(KLAMDP),WORK(KLAMDH), 1720 CALL CC_FCKMO(WORK(KFCKAO),WORK(KLPC1),WORK(KLAMDH), 1738 CALL CC_FCKMO(WORK(KFCKAO),WORK(KLAMDP),WORK(KLHC1), 1799 CALL CCRHS_EFCK(WORK(KEI1),WORK(KEI2),WORK(KLAMDH), 1818 CALL CCLR_E1C1(WORK(KOFF1),WORK(KAMC1),WORK(KEI1),WORK(KEI2), 1919 CALL CCRHS_A(WORK(KRHO2),WORK(KC2AM),WORK(KGAMI),WORK(KEND2), 1961 CALL CCRHS3_CIO(WORK(KRHO2),WORK(KC2AM),WORK(KLAMDH), [all …]
|
H A D | cc_fdfb.F | 136 CALL CCRHSN(WORK(KOMEGA1),WORK(KOMEGA2), 137 & WORK(KT1AMP0),WORK(KT2AMP0), 202 CALL CCRHSN(WORK(KRHO1),WORK(KRHO2), 440 & WORK(KT1AMP0),WORK(KT2AMP0),WORK(KEND1A),LWRK1A) 443 CALL CCRHSN(WORK(KOMEGA1),WORK(KOMEGA2),WORK(KT1AMP0), 501 & WORK(KT1AMP0),WORK(KT2AMP0),WORK(KEND1A),LWRK1A) 505 & WORK(KT1AMP0),WORK(KT2AMP0),WORK(KEND1A),LWRK1A,'XXX') 569 & WORK(KT1AMP0),WORK(KT2AMP0),WORK(KEND1A),LWRK1A,'XXX') 766 & WORK(KT1AMP0),WORK(KT2AMP0),WORK(KEND1A),LWRK1A) 770 & WORK(KT1AMP0),WORK(KT2AMP0),WORK(KEND1A),LWRK1A,'XXX') [all …]
|
H A D | ccsdt_f_noddy.F | 179 Call LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP0), 306 CALL T3_LEFT1(WORK(KOME1),WORK(KYIAJB),WORK(KXIAJB), 309 CALL T3_LEFT2(WORK(KOME1),WORK(KYIAJB),WORK(KXIAJB), 312 CALL T3_LEFT3(WORK(KOME1),WORK(KXIAJB),WORK(KL2AM),WORK(KTB3AM)) 430 * WORK(KL2AM),WORK(KSCR1),WORK(KFOCKD), 582 CALL CC_FCKMO(WORK(KFLDB1),WORK(KLAMP0),WORK(KLAMHB), 592 CALL CCSDT_E3AM(WORK(KF3AM),WORK(KDUM),WORK(KL3AM), 924 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM), 982 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM), 1002 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM), [all …]
|
H A D | cc3_aden_cub_t0.F | 89 CALL LAMMAT(WORK(KLAMP0),WORK(KLAMH0),WORK(KT1AMP), 642 * WORK(KT3BOL1),WORK(KT3BOG2),WORK(KT3BOL2), 1733 CALL GET_LAMBDA0(WORK(KLAMP0),WORK(KLAMH0),WORK(KEND1),LWRK1) 1740 CALL GET_FOCK0(WORK(KFOCK0),WORK(KLAMP0),WORK(KLAMH0),WORK(KEND1), 1774 * ISYMRZ,WORK(KLAMP0),WORK(KLAMH0),WORK(KEND1), 1789 * ISYMRU,WORK(KLAMP0),WORK(KLAMH0),WORK(KEND1), 1928 * WORK(KLAMP0),WORK(KLAMH0),WORK(KEND1),LWRK1, 2076 * WORK(KLAMP0),WORK(KLAMH0),WORK(KEND2),LWRK2) 2087 CALL CC3LR_MFOCK(WORK(KFOCKL1RCK),WORK(KT1L1R),WORK(KXIAJB), 2099 * WORK(KT3BOL1),WORK(KT3BOG2),WORK(KT3BOL2), [all …]
|
H A D | cc_xetst.F | 302 WORK(KEND1-1) = WORK(IDUM) 390 CALL CCRHSN(WORK(KOMEGA1),WORK(KOMEGA2),WORK(KT1AMP0), 414 CALL CC_FDXI(WORK(KCMOHQ),WORK(KOMEGA1),WORK(KEND1),LWRK1) 450 & WORK(KRHS1),WORK(KRHS2)) 511 CALL CCRHSN(WORK(KOMEGA1),WORK(KOMEGA2),WORK(KT1AMP0), 545 & WORK(KLEFT1),WORK(KLEFT2)) 591 CALL CC_FDETA(WORK(KCMOHQ),LISTL,WORK(KLEFT1),WORK(KLEFT2), 629 & WORK(KETA1),WORK(KETA2)) 1094 CALL CCRHSN(WORK(KRHO1),WORK(KRHO2), 1164 CALL CCRHSN(WORK(KRHO1),WORK(KRHO2), [all …]
|
H A D | cc_foppt_sc.F | 279 CALL CC_FCKMO(WORK(KFCKBA),WORK(KLAMDP),WORK(KLAMDH), 282 CALL CC_FCKMO(WORK(KFCKBA),WORK(KCMO),WORK(KCMO), 462 CALL CC3_TROCC(WORK(KINTOC),WORK(KTROC0),WORK(KLAMDP), 465 CALL CCSDT_TROCC(WORK(KINTOC),WORK(KTROC0),WORK(KCMO), 491 CALL CC3_TROCC(WORK(KINTOC),WORK(KTROC01),WORK(KLAMDH), 685 CALL CCSDT_TRVIR(WORK(KINTVI),WORK(KTRVI0),WORK(KCMO), 706 CALL CCSDT_TRVIR(WORK(KINTVI),WORK(KTRVI4),WORK(KCMO), 731 CALL CCSDT_SRTVIR(WORK(KTRVI0),WORK(KTRVI2),WORK(KEND4), 734 CALL CCSDT_SRTVIR(WORK(KTRVI4),WORK(KTRVI5),WORK(KEND4), 785 CALL CCSDT_TRVIR(WORK(KINTVI),WORK(KTRVI1),WORK(KCMO), [all …]
|
H A D | cc_den_rccd.F | 216 CALL LAMMAT(WORK(KLAMDP),WORK(KLAMDH),WORK(KT1AM),WORK(KEND1), 393 CALL CCDINTMO(WORK(KINTIJ),WORK(KINTIA),WORK(KINTAB), 394 * WORK(KINTAI),WORK(KONINT),WORK(KLAMDP), 404 CALL CCIFROMO(WORK(KFROIJ),WORK(KFROJI),WORK(KFROAI), 439 & WORK(KINTIA),WORK(KINTAB),WORK(KONEIJ), 440 & WORK(KONEAI),WORK(KONEIA),WORK(KONEAB), 450 & WORK(KINTIA),WORK(KINTAB),WORK(KONEIJ), 451 & WORK(KONEAI),WORK(KONEIA),WORK(KONEAB), 465 * WORK(KINTAB),WORK(KONEIJ),WORK(KONEAI), 466 * WORK(KONEIA),WORK(KONEAB),WORK(KINIJT), [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/soppa/ |
H A D | so_orth_trn.F | 104 & (I,WORK(K1TR1E+I-1),WORK(K1TR1D+I-1),I=1,LTR1E) 158 DOTP = DDOT(LTR1E,WORK(K1TR1E),1,WORK(KRSO1E),1) 159 & + DDOT(LTR1D,WORK(K1TR1D),1,WORK(KRSO1D),1) 191 DOTP = DDOT(LTR1E,WORK(K1TR1E),1,WORK(KRSO1D),1) 192 & + DDOT(LTR1D,WORK(K1TR1D),1,WORK(KRSO1E),1) 230 DNORM = DDOT(LTR1E,WORK(K1TR1E),1,WORK(KRSO1E),1) 231 & + DDOT(LTR1D,WORK(K1TR1D),1,WORK(KRSO1D),1) 267 WORK(K1TR1E+ITR1E-1) = WORK(K1TR1D+ITR1E-1) 273 WORK(K1TR2E+ITR2E-1) = WORK(K1TR2D+ITR2E-1) 295 DNORM = DDOT(LTR1E,WORK(K1TR1E),1,WORK(KRSO1E),1) [all …]
|