1 !
2 !     cbiexc.h - Control common block for abacus/abaexc.F
3 !
4       INTEGER, PARAMETER :: MAXPP = 200
5       LOGICAL     :: SKIP, CUT, DIPSTR, ROTSTR, ROTVEL, FNAC, EXCTRP,
6      &               SUMRUL, OOTV, MAGPRP, STOPPW
7       INTEGER     :: LQ, LVEL, NEXCIT(8), MAXITE, MXNEXI, MXRM,
8      &               MXPHP, NABAPP, IPREXC, IPR1IN
9       REAL*8      :: QMIN, QMAX, QSTEP, VMIN, VMAX, VSTEP, QINP,
10      &               THREXC
11       CHARACTER*8 :: LABAPP(MAXPP)
12       INTEGER     :: LABSYM(MAXPP)
13 !
14 !
15       COMMON /PPLBL / LABAPP, LABSYM
16 ! LOGICAL
17       COMMON /CBIEXC/ SKIP, CUT, DIPSTR, ROTSTR, ROTVEL, FNAC,
18      &                EXCTRP, SUMRUL, OOTV, MAGPRP, STOPPW,
19 ! INTEGER
20      &                LQ, LVEL, NEXCIT, MAXITE, MXNEXI, MXRM,
21      &                MXPHP, NABAPP, IPREXC, IPR1IN,
22 ! REAL
23      &                QINP, THREXC, QMIN, QMAX, QSTEP, VMIN, VMAX,
24      &                VSTEP
25 ! -- end of abaexc.h --
26