Searched refs:KECONS (Results 1 – 2 of 2) sorted by relevance
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
| H A D | cc_sop.F | 97 INTEGER KXETRAN, KXDOTS, KXCONS, KEDOTS, KECONS
191 KECONS = KEDOTS + MXXEDOTS
192 KEND0 = KECONS + MXXEDOTS
212 & WORK(KXCONS), WORK(KECONS),NXETRAN,
253 CALL DZERO(WORK(KECONS),MXVEC*NXETRAN)
259 & 'R1 ',WORK(KEDOTS),WORK(KECONS),
322 & WORK(KXCONS), WORK(KECONS),NXETRAN,
|
| H A D | cc_hyppol.F | 88 INTEGER KXETRAN, KEDOTS, KECONS, NXETRAN, MXXETRAN, MXXEDOTS local
206 KECONS = KEDOTS + MXXEDOTS
207 KAATRAN = KECONS + MXXEDOTS
406 CALL DZERO(WORK(KECONS),MXXEDOTS)
412 & 'R1 ',WORK(KEDOTS),WORK(KECONS),
665 E2CON1 = WORK(KECONS-1 + (ITRAN-1)*MXVEC + IVEC)
682 E2CON2 = WORK(KECONS-1 + (ITRAN-1)*MXVEC + IVEC)
699 E2CON3 = WORK(KECONS-1 + (ITRAN-1)*MXVEC + IVEC)
|