--- a/DALTON/include/cbiexc.h
+++ b/DALTON/include/cbiexc.h
@@ -1,34 +1,25 @@
!
! cbiexc.h - Control common block for abacus/abaexc.F
!
- LOGICAL SKIP, CUT, DIPSTR, ROTSTR, ROTVEL, FNAC, EXCTRP,
-CPFP
-C & SUMRUL, OOTV
- & SUMRUL, OOTV, MAGPRP,
-Cend-PFP
-CClark:7/1/2016
- & STOPPW
- REAL*8 QMIN,QMAX,QSTEP
- REAL*8 VMIN,VMAX,VSTEP
- INTEGER LQ,LVEL
-CClark:end
- PARAMETER (MAXPP = 200)
- CHARACTER*8 LABAPP
- COMMON /PPLBL / LABAPP(MAXPP), LABSYM(MAXPP)
- COMMON /CBIEXC/ THREXC,
-CClark:7/1/2016
- & QMIN,QMAX,QSTEP,
- & VMIN,VMAX,VSTEP,
- & LQ,LVEL,
-CClark:end
- & NEXCIT(8), MAXITE, MXNEXI, MXRM,
+ INTEGER, PARAMETER :: MAXPP = 200
+ LOGICAL :: SKIP, CUT, DIPSTR, ROTSTR, ROTVEL, FNAC, EXCTRP,
+ & SUMRUL, OOTV, MAGPRP, STOPPW
+ INTEGER :: LQ, LVEL, NEXCIT(8), MAXITE, MXNEXI, MXRM,
+ & MXPHP, NABAPP, IPREXC, IPR1IN
+ REAL*8 :: QMIN, QMAX, QSTEP, VMIN, VMAX, VSTEP, QINP,
+ & THREXC
+ CHARACTER*8 :: LABAPP(MAXPP)
+ INTEGER :: LABSYM(MAXPP)
+!
+!
+ COMMON /PPLBL / LABAPP, LABSYM
+! LOGICAL
+ COMMON /CBIEXC/ SKIP, CUT, DIPSTR, ROTSTR, ROTVEL, FNAC,
+ & EXCTRP, SUMRUL, OOTV, MAGPRP, STOPPW,
+! INTEGER
+ & LQ, LVEL, NEXCIT, MAXITE, MXNEXI, MXRM,
& MXPHP, NABAPP, IPREXC, IPR1IN,
- & SKIP, CUT, DIPSTR, ROTSTR, ROTVEL, FNAC, EXCTRP,
-CPFP
-C & SUMRUL, OOTV
- & SUMRUL, OOTV, MAGPRP,
-Cend-PFP
-CClark:7/1/2016
- & STOPPW
-CClark:end
+! REAL
+ & QINP, THREXC, QMIN, QMAX, QSTEP, VMIN, VMAX,
+ & VSTEP
! -- end of abaexc.h --