Searched refs:N1FATRAN (Results 1 – 4 of 4) sorted by relevance
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
H A D | cc_etadrv.F | 89 INTEGER N0KTRAN, N1GTRAN, N2FTRAN, N1FATRAN local 201 & WORK(K1FATRAN),N1FATRAN, 662 N1FATRAN = 0 895 N1FATRAN = N1FATRAN + 1 899 I1FATRAN(4,N1FATRAN) = IVEC 900 I1FATRAN(5,N1FATRAN) = 0 901 N1FATRAN = N1FATRAN + 1 905 I1FATRAN(4,N1FATRAN) = IVEC 906 I1FATRAN(5,N1FATRAN) = 0 1113 IF (N1FATRAN.GT.0) [all …]
|
H A D | cc_etadrv1.F | 91 INTEGER N0KTRAN, N1GTRAN, N2FTRAN, N1FATRAN local 204 & WORK(K1FATRAN),N1FATRAN, 630 N1FATRAN = 0 895 N1FATRAN = N1FATRAN + 1 899 I1FATRAN(4,N1FATRAN) = IVEC 900 I1FATRAN(5,N1FATRAN) = 0 901 N1FATRAN = N1FATRAN + 1 905 I1FATRAN(4,N1FATRAN) = IVEC 906 I1FATRAN(5,N1FATRAN) = 0 1110 IF (N1FATRAN.GT.0) [all …]
|
H A D | cc_3hyp.F | 241 & WORK(K1FATRAN),WORK(K1FADOTS),WORK(K1FACONS),N1FATRAN, 313 CALL CCQR_FADRV('L1 ','o1 ','R1 ','R2 ',N1FATRAN, MXVEC2, 542 & I1FATRAN,I1FADOTS,W1FA,N1FATRAN, 621 INTEGER N1HTRAN, N1GTRAN, N1FTRAN, N1FATRAN 701 N1FATRAN = 0 960 N1FATRAN = MAX(N1FATRAN,ITRAN) 966 N1FATRAN = MAX(N1FATRAN,ITRAN) 972 N1FATRAN = MAX(N1FATRAN,ITRAN) 978 N1FATRAN = MAX(N1FATRAN,ITRAN) 1193 & ' - ',N1FATRAN, ' F^A{O} matrix transformations ', [all …]
|
H A D | cc_4hyp.F | 58 INTEGER K1FATRAN,K1FADOTS,K1FACONS,N1FATRAN,MX1FATRAN,MX1FADOTS 233 & WORK(K1FATRAN),WORK(K1FADOTS),WORK(K1FACONS),N1FATRAN, 271 CALL CCQR_FADRV('L1 ','o1 ','R2 ','R2 ',N1FATRAN, MXVEC2, 332 & WORK(K1FATRAN),WORK(K1FADOTS),WORK(K1FACONS),N1FATRAN, 481 & I1FATRAN, I1FADOTS, W1FA, N1FATRAN, 570 INTEGER N1HTRAN, N1GTRAN, N1FATRAN 627 N1FATRAN = 0 804 N1FATRAN = MAX(N1FATRAN,ITRAN) 810 N1FATRAN = MAX(N1FATRAN,ITRAN) 1056 & ' - ',N1FATRAN, ' F^A{O} matrix transformations ', [all …]
|