Home
last modified time | relevance | path

Searched refs:N1FATRAN (Results 1 – 4 of 4) sorted by relevance

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dcc_etadrv.F89 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 Dcc_etadrv1.F91 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 Dcc_3hyp.F241 & 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 Dcc_4hyp.F58 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 …]