/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | ccsdt_fbmat.F | 71 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR, LUDKBCR4 435 LUDKBCR = -1 437 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 449 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 453 CALL WCLOSE2(LUDKBCR,FNDKBCR,'KEEP') 861 LUDKBCR = -1 862 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 876 CALL WCLOSE2(LUDKBCR,FNDKBCR,'KEEP') 1010 LUDKBCR = -1 1011 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) [all …]
|
H A D | cc3_bmatsd.F | 78 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR 207 LUDKBCR = -1 212 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 392 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 619 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI0Y),IOFF, 739 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI8Y),IOFF, 940 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_aabmat_doub.F | 44 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR 177 LUDKBCR = -1 184 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 371 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 777 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI0X),IOFF, 905 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI8X),IOFF, 1129 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_xisd.F | 72 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR, LUDKBCR4 264 LUDKBCR = -1 266 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 278 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 283 CALL WCLOSE2(LUDKBCR,FNDKBCR,'KEEP') 758 LUDKBCR = -1 759 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 767 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KOFF1),IOFF, 773 CALL WCLOSE2(LUDKBCR,FNDKBCR,'KEEP') 935 LUDKBCR = -1 [all …]
|
H A D | ccsdt_eta_cont.F | 711 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR 916 LUDKBCR = -1 918 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 933 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 937 CALL WCLOSE2(LUDKBCR,FNDKBCR,'KEEP') 1250 LUDKBCR = -1 1251 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 1259 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KOFF1),IOFF, 1265 CALL WCLOSE2(LUDKBCR,FNDKBCR,'KEEP') 1699 LUDKBCR = -1 [all …]
|
H A D | cc3_bfmat.F | 84 INTEGER LUDELDR,LUDKBCR,LUDKBCR4,LUCKJDR,LU4V,LU4VB,LU3SRTR 187 LUDKBCR = -1 206 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 511 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 517 * LUDKBCR,FNDKBCR,IDUMMY,CDUMMY,IDUMMY,CDUMMY, 961 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVIR),IOFF, 1503 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_gmat.F | 52 INTEGER LU4VBC,LU4VC,LU4VB,LU3SRTR,LUCKJDR,LUDELDR,LUDKBCR 120 LUDKBCR = -1 138 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 327 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 330 * IDUMMY,CDUMMY,LUDKBCR,FNDKBCR, 717 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI7),IOFF, 1190 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_hmat.F | 116 INTEGER LUDELDR,LUDKBCR,LUDKBCR4,LUCKJDR,LU4VBD,LU4VCD,LU4VBC local 244 LUDKBCR = -1 264 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 584 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 590 * LUDKBCR,FNDKBCR,IDUMMY,CDUMMY,IDUMMY,CDUMMY, 1051 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVIR),IOFF, 1625 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_gmatnew.F | 106 INTEGER LUDELDR,LUDKBCR,LUDKBCR4,LUCKJDR,LU4VB,LU4VC,LU4VBC local 217 LUDKBCR = -1 237 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 532 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 538 * LUDKBCR,FNDKBCR,IDUMMY,CDUMMY,IDUMMY,CDUMMY, 1015 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVIR),IOFF, 1615 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_ft3b.F | 42 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR, LUDKBCR4 161 LUDKBCR = -1 167 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 347 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 350 * IDUMMY,CDUMMY,LUDKBCR,FNDKBCR, 485 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KW3XVDGX1),IOFF, 596 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KW3XVDGX2),IOFF, 724 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | ccexnorm.F | 1204 INTEGER LUCKJDR,LU3SRTR,LUDELDR,LUDKBCR,LUWEB,LUWE 1269 LUDKBCR = -1 1276 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 1441 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 1579 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI0Y),IOFF, 1743 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI8Y),IOFF, 1974 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_fmat.F | 61 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR, LUDKBCR4 108 LUDKBCR = -1 126 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 288 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 291 * IDUMMY,CDUMMY,LUDKBCR,FNDKBCR, 633 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI7),IOFF, 1073 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_abmatt3zu.F | 2208 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR 2363 LUDKBCR = -1 2368 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 2645 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 2959 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI0Z),IOFF, 3113 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI8Z),IOFF, 3330 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_fbmatt3zu.F | 2557 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR 2745 LUDKBCR = -1 2750 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 3032 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 3349 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI0Z),IOFF, 3522 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI8Z),IOFF, 3732 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc_rhtr.F | 171 LUDKBCR = -1 185 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 2778 * FNDELDR,LUCKJDR,FNCKJDR,LUDKBCR,FNDKBCR, 2836 * FNDELDR,LUCKJDR,FNCKJDR,LUDKBCR,FNDKBCR, 3049 * FNDELDR,LUCKJDR,FNCKJDR,LUDKBCR,FNDKBCR, 3260 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | ccsdt_aden_noddy.F | 3511 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR, LUDKBCR4, 3569 LUDKBCR = -1 3575 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 3641 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 3644 * IDUMMY,CDUMMY,LUDKBCR,FNDKBCR, 3831 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI0Y),IOFF, 3960 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KTRVI8Y),IOFF, 4176 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|
H A D | cc3_aden.F | 9166 INTEGER LU3SRTR, LUCKJDR, LUDELDR, LUDKBCR 9263 LUDKBCR = -1 9268 CALL WOPEN2(LUDKBCR,FNDKBCR,64,0) 9534 * LUDELDR,FNDELDR,LUDKBCR,FNDKBCR) 9871 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KW3XVDGX1),IOFF, 10026 CALL GETWA2(LUDKBCR,FNDKBCR,WORK(KW3XVDGX2),IOFF, 10427 CALL WCLOSE2(LUDKBCR,FNDKBCR,'DELETE')
|