897616f073
* Update existing 2020.0 version to use tag * Add versions 2018.2 and master * Add patches for GCC/Intel * Use MPI compiler wrappers when +mpi * Constrain CMake build dependency (need >= 3.1) * Add variants for optional components (e.g QFIT library)
58 lines
1.9 KiB
Diff
58 lines
1.9 KiB
Diff
--- 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 --
|