Home
last modified time | relevance | path

Searched refs:KLAMP0 (Results 1 – 25 of 26) sorted by relevance

12

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dccsdt_g_noddy.F91 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 Dccsdt_ba_noddy.F101 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 Dccsdt_aa_noddy.F71 & 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 Dcc_hmat.F1265 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 Dcc_famat.F870 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 Dccsdt_f_noddy.F129 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 Dcc3_bfmat.F103 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 Dccsdt_ints_noddy.F429 & 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 Dccsdt_eta_noddy.F116 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 Dcc3_gmatnew.F116 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 Dcc3_hmat.F126 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 Dcc_fbta.F496 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 Dcc3_xi_cont.F89 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 Dcc3_aden_cub_t0.F56 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 Dccsdt_xi_noddy.F1247 & 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 Dccexnorm.F1195 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 Dcc_gmat.F5089 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 Dcc_fmat.F963 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 Dcc3_fmatsd.F67 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 Dcc_bmat.F619 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 Dcc3_aden_cub.F53 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 Dccsdt_eta_cont.F73 * 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 Dcc_xieta.F887 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 Dcc3_etasd.F79 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 Dcc3_aden.F56 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 …]

12