| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/ |
| H A D | cc_bamat.F | 243 ISYMO = ILSTSYM(LISTO,IDLSTO)
246 ISYMAO = MULD2H(ISYMTA,ISYMO)
247 ISYMBO = MULD2H(ISYMTB,ISYMO)
296 KOO = KPERT + N2BST(ISYMO)
297 KOV = KOO + NMATIJ(ISYMO)
298 KVV = KOV + NT1AM(ISYMO)
299 KAOO = KVV + NMATAB(ISYMO)
338 IF (IERR.NE.0 .OR. IRREP.NE.ISYMO) THEN
344 & WORK(KEND2),LEND2,ISYMO,1,1)
347 CALL CC_GATHEROO(WORK(KPERT),WORK(KOO),ISYMO)
[all …]
|
| H A D | cc_cphf.F | 22 & ISYMO,FREQS,ICAU,NVEC,MAXVEC,
70 INTEGER ISYMS(MAXVEC,*), ISYMO(MAXVEC,*)
251 ISYM = MULD2H(ISYM,ISYMO(IVEC,IDX))
268 CALL CC_GETHFGD(IVEC,TYPE,LABEL,ISYMS,ISTAT,EIGV,ISYMO,
|
| H A D | ccxopa_eomsetup.F | 95 & ISTISY, ISTFSY, IOP, IOPER, ISYMO, ISYME, ITURN,
227 ISYMO = ISYOPR(IOPER)
235 IF (ISYMO.EQ.ISYME) THEN
|
| H A D | cc_soldrv.F | 23 & ISYMO, LABEL, FREQS, ICAU,
95 INTEGER ISYMO(MAXVEC,ORDER), ICAU(MAXVEC,ORDER)
152 WRITE (LUPRI,*) 'ISYMO :',((ISYMO(I,J),J=1,ORDER),I=1,NVEC)
492 & ISYMO,DUMMY,LDUMMY,
529 & (LABEL(IR,I),ICAU(IR,I),ISYMO(IR,I),I=1,ORDER)
532 & (LABEL(IR,I),FREQS(IR,I),ISYMO(IR,I),I=1,ORDER)
|
| H A D | cc_xopa.F | 351 & ISTISY, ISTFSY, IOP, IOPER, ISYMO, ISYME, ITURN,
441 ISYMO = ISYOPR(IOPER)
449 IF (ISYMO.EQ.ISYME) THEN
|
| H A D | cc_opa.F | 313 INTEGER IRSD, ISTATE, ISYME, IMULE, ISTSY, IOPER, ISYMO, ISAMO,
422 ISYMO = ISYOPR(IOPERAT)
847 INTEGER ITRAN, I, IRSD, ISTATE, ISYME, ISTSY, IOP, IOPER, ISYMO,
905 ISYMO = ISYOPR(IOPER)
914 IF (ISYMO.EQ.ISYME) THEN
|
| H A D | cc_util.F | 3805 DO ISYMO = 1,NSYM
3807 ISYAO = MULD2H(ISYMO,ISYCMO)
3809 KOFF1 = ICMO(ISYAO,ISYMO) + NBAS(ISYAO)*NRHFFR(ISYMO) + 1
3810 KOFF2 = IGLMRH(ISYAO,ISYMO) + 1
3814 KOFF2 = IGLMVI(ISYAO,ISYMO) + 1
3825 DO ISYMO = 1,NSYM
3826 ISYAO = MULD2H(ISYMO,ISYCMO)
3828 IF (NORBS(ISYMO) .NE. 0) THEN
3831 KOFF1 = ICMO(ISYAO,ISYMO) + 1
3836 KOFF2 = IGLMRH(ISYAO,ISYMO) + 1
[all …]
|
| H A D | cc_etadrv1.F | 22 & ISYMO,FREQS,LORX,ICAU,NVEC,MAXVEC, argument
67 INTEGER ISYMO(MAXVEC,*), ICAU(MAXVEC,*) local
196 & ISYMO,FREQS,LORX,ICAU,
459 IF (ISYMO(IVEC,1).EQ.1 .AND. FREQS(IVEC,1).EQ.ZERO) THEN
493 & EIGV,ISYMO,FREQ,LORX,ICAU, argument
544 INTEGER ISTAT(MAXVEC,*), ICAU(MAXVEC,*), ISYMO(MAXVEC,*) local
|
| H A D | cc_21i2.F | 304 SUBROUTINE CC_T1AM(RHO1MO,ISYMO,RHO1AO,ISYAO,XLAMD,ISYLAM,FAC) argument
322 IF (MULD2H(ISYAO,ISYLAM).NE.ISYMO ) THEN
328 ISYMI = MULD2H(ISYMO,ISYMA)
|
| H A D | cc_getgp.F | 21 SUBROUTINE CC_GETHFGD(IVEC,TYPE,LABEL,ISYMS,ISTAT,EIGV,ISYMO, argument
57 INTEGER ISYMS(MAXVEC,*), ISYMO(MAXVEC,*)
|
| H A D | ccrspsym.F | 1536 IF (IROPER(LABEL,ISYMO) .LT. 0) THEN
1597 ISYMO = ISYOPR(ILRSOP(IOPER))
1598 IF (ISYME.EQ.ISYMO) THEN
1662 IF (IROPER(LABEL,ISYMO) .LT. 0) THEN
1746 ISYMO = ISYOPR(IQR2OP(IOPER))
1747 IF (ISYMO.EQ.ISYMFI) THEN
5571 IF ( ISYMO(IVEC,IDX) .GT. ISYMO(IVEC+1,IDX) ) THEN
5576 ELSE IF ( ISYMO(IVEC,IDX) .LT. ISYMO(IVEC+1,IDX) ) THEN
5747 INTEGER ISYMO(MXVEC,ORDER)
5760 ISYMO(IVEC,IDX) = ISYMO(IVEC+1,IDX)
[all …]
|
| H A D | ccrhsvec.F | 21 SUBROUTINE CCRHSVEC(TYPE,LABEL,ISYMS,ISTAT,EIGV,ISYMO, argument
70 INTEGER ISYMS(MAXVEC,*), ISYMO(MAXVEC,*)
228 CALL CC_RHS_SETUP(TYPE,NSTAT,ORDER,LABEL,ISTAT,EIGV,ISYMO,FREQS,
642 IF (ISYMO(IVEC,1).EQ.1 .AND. FREQS(IVEC,1).EQ.ZERO) THEN
675 & EIGV,ISYMO,FREQ,LORX,ICAU,
727 INTEGER ISTAT(MAXVEC,*), ICAU(MAXVEC,*), ISYMO(MAXVEC,*)
|
| H A D | cc_etadrv.F | 22 & ISYMO,FREQS,ICAU,NVEC,MAXVEC, argument
65 INTEGER ISYMO(MAXVEC,*), ICAU(MAXVEC,*) local
496 IF (ISYMO(IVEC,1).EQ.1 .AND. FREQS(IVEC,1).EQ.ZERO) THEN
|
| H A D | cc3_lhtr.F | 6077 INTEGER ISYMO,ISINM,ISYMM,ISIN,ISYMN,ISNM
6784 INTEGER ISANMO,ISYMO,ISANM,ISAN,ISYMN
7290 DO ISYMO = 1,NSYM
7291 ISANM = MULD2H(ISANMO,ISYMO)
7295 ISON = MULD2H(ISYMO,ISYMN)
7296 DO IO = 1,NRHF(ISYMO)
7304 * + NRHF(ISYMO)*(N-1)
7419 DO ISYMO = 1,NSYM
7420 ISANM = MULD2H(ISANMO,ISYMO)
7424 ISON = MULD2H(ISYMO,ISYMN)
[all …]
|
| H A D | ccexpfck.F | 1310 INTEGER I, INUM, ISYMO
1349 ISYMO = 0
1350 INUM = IROPER(LABELX,ISYMO)
|
| H A D | cc_solrsp.F | 1720 & ISYMO, LABEL, FREQS, ICAU,
1756 INTEGER ISYMO(MAXVEC,ORDER), ICAU(MAXVEC,ORDER)
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
| H A D | abaopg.F | 485 ISYMO = IREPO + 1
488 ISYMB = MULD2H(ISYMA,ISYMO)
494 WRITE (LUPRI,'(A,3I3)') ' ISYMA/B/O',ISYMA,ISYMB,ISYMO
519 IF (ISYMO .GT. 1) CALL TRANSX(SQMO,SQMO,NORBT,NORBT,D1,IPRINT)
|
| H A D | her1int.F | 8110 SUBROUTINE SYMUPK(AINT,WORK,ISYMO,NELMNT)
8141 IF (ISYMO .EQ. 1) THEN
8158 ISYMA = IEOR(ISYMO - 1,ISYMB - 1) + 1
8163 IOFF = NPARNU(ISYMO,ISYMA)
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/choles/ |
| H A D | cc_cyi.F | 1692 DO ISYMO = 1,NSYM
1693 ISYMB = MULD2H(ISYMO,ISYMBJ)
1694 ISYMA = MULD2H(ISYMO,ISYMAI)
1695 ICOUBJ = ICOUBJ + LVIRB(ISYMB)*NRHF(ISYMO)
1696 ICOUAI = ICOUAI + LVIRA(ISYMA)*NRHF(ISYMO)
|
| H A D | cc_chocc2.F | 1831 DO ISYMO = 1,NSYM
1833 ISYMV = MULD2H(ISYMO,ISYMBJ)
1835 IBJF = IT1AM(ISYMV,ISYMO) + 1
1836 IBJL = IBJF + NVIR(ISYMV)*NRHF(ISYMO) - 1
1842 DO IJ = 1,NRHF(ISYMO)
1849 ISYMJ = ISYMO
|