Home
last modified time | relevance | path

Searched refs:WORK (Results 1 – 25 of 7900) sorted by relevance

12345678910>>...316

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dccpt_den.F183 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 Dccsdt_g_noddy.F168 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 Dcc_2eexp_2.F198 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 Dccefffock.F374 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 Dcc_fmattst.F566 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 Dcc_2eexp_1.F187 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 Dccpt_grad0.F203 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 Dcc_grad.F188 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 Dcc_hmat.F384 & 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 Dcc_grad_1.F202 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 Dcc_grad0.F194 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 Dccsdt_ba_noddy.F175 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 Dccsdt_b_noddy.F250 & 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 Dcc_ftst.F724 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 Dcc_grad2e.F169 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 Dccsdt_aa_noddy.F153 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 Dcc_grad2.F294 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 Dcc_rhtr3.F563 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 Dcc_fdfb.F136 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 Dccsdt_f_noddy.F179 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 Dcc3_aden_cub_t0.F89 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 Dcc_xetst.F302 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 Dcc_foppt_sc.F279 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 Dcc_den_rccd.F216 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 Dso_orth_trn.F104 & (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 …]

12345678910>>...316