epsi
/
msspec_python3
3
0
Fork 0
Code Issues 6 Pull Requests Releases Wiki Activity

Fixed some minor bugs.
epsi-builds/msspec_python3/pipeline/head There was a failure building this commit Details 

Fixed some bugs. The correlation expansion version now compiles!
The shared object is imported in the calculator.py module.
This commit is contained in:
Sylvain Tricot 2022-02-09 19:08:22 +01:00
parent 6986dde636
commit 39074f75b6
6 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/msspec/calculator.py
View File

@ -17,8 +17,8 @@
# along with this msspec. If not, see <http://www.gnu.org/licenses/>.
#
# Source file : src/msspec/calculator.py
# Last modified: Mon, 27 Sep 2021 17:49:48 +0200
# Committed by : sylvain tricot <sylvain.tricot@univ-rennes1.fr>
# Last modified: Wed, 09 Feb 2022 19:08:22 +0100
# Committed by : Sylvain Tricot <sylvain.tricot@univ-rennes1.fr>
"""
@ -97,6 +97,7 @@ from msspec.spec.fortran import _eig_mi
from msspec.spec.fortran import _eig_pw
from msspec.spec.fortran import _phd_mi_noso_nosp_nosym
from msspec.spec.fortran import _phd_se_noso_nosp_nosym
from msspec.spec.fortran import _phd_ce_noso_nosp_nosym
from msspec.spec.fortran import _comp_curves
from msspec.utils import get_atom_index
@ -405,6 +406,8 @@ class _MSCALCULATOR(Calculator):
do_spec = _phd_se_noso_nosp_nosym.run
elif self.global_parameters.algorithm == 'inversion':
do_spec = _phd_mi_noso_nosp_nosym.run
elif self.global_parameters.algorithm == 'correlation':
do_spec = _phd_ce_noso_nosp_nosym.run
else:
LOGGER.error("\'{}\' spectroscopy with \'{}\' algorithm is not "
"an allowed combination.".format(self.global_parameters.spectroscopy,

8
src/msspec/spec/fortran/Makefile
View File

@ -1,6 +1,6 @@
.PHONY: all phd_se phd_mi eig_mi eig_pw comp_curve clean
.PHONY: all phd_se phd_mi phd_ce eig_mi eig_pw comp_curve clean
all: phd_se phd_mi eig_mi eig_pw comp_curve
all: phd_se phd_mi phd_ce eig_mi eig_pw comp_curve
phd_se:
@+$(MAKE) -f phd_se_noso_nosp_nosym.mk all
@ -8,6 +8,9 @@ phd_se:
phd_mi:
@+$(MAKE) -f phd_mi_noso_nosp_nosym.mk all
phd_ce:
@+$(MAKE) -f phd_ce_noso_nosp_nosym.mk all
eig_mi:
@+$(MAKE) -f eig_mi.mk all
@ -20,6 +23,7 @@ comp_curve:
clean::
@+$(MAKE) -f phd_se_noso_nosp_nosym.mk $@
@+$(MAKE) -f phd_mi_noso_nosp_nosym.mk $@
@+$(MAKE) -f phd_ce_noso_nosp_nosym.mk $@
@+$(MAKE) -f eig_mi.mk $@
@+$(MAKE) -f eig_pw.mk $@
@+$(MAKE) -f comp_curve.mk $@

2
src/msspec/spec/fortran/memalloc/allocation.f
View File

@ -25,6 +25,8 @@
USE OUTUNITS_MOD
USE PARCAL_MOD
USE PARCAL_A_MOD
USE CORREXP_MOD
USE GAUNT_C_MOD
USE Q_ARRAY_MOD
USE RELADS_MOD
USE RELAX_MOD

2
src/msspec/spec/fortran/phd_ce_noso_nosp_nosym/coefpq.f
View File

@ -13,7 +13,7 @@ C
C H.-F. Zhao 2007
C
USE DIM_MOD
USE Q_ARRAY
USE Q_ARRAY_MOD
C
INTEGER NAT,NGR
C

2
src/msspec/spec/fortran/phd_ce_noso_nosp_nosym/gaunt_st.f
View File

@ -14,11 +14,11 @@ C This is the double precision version where the values are stored
C
C Last modified : 14 May 2009
C
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
USE DIM_MOD
USE LOGAMAD_MOD
USE GAUNT_C_MOD
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
INTEGER LMAX_T
C

13
src/msspec/spec/fortran/phd_ce_noso_nosp_nosym/main_phd_ns_ce.f
View File

@ -577,8 +577,9 @@ C
ELSEIF(IFTHET_A.EQ.1) THEN
c CALL PLOTFD_A(A,LMAX_A,ITL_A,NL1_A,NAT2_A,NE_A)
ENDIF
WRITE(IUO1,57)
STOP
WRITE(IUO1,57)
CST STOP
GO TO 999
C
8 IF(IBAS.EQ.0) THEN
C
@ -1325,7 +1326,8 @@ c ENDIF
C
IF((ISOM.NE.0).OR.(NFICHLEC.EQ.1)) CLOSE(IUO1)
IF(ISOM.NE.0) CLOSE(IUO2)
STOP
CST STOP
GO TO 999
C
1 WRITE(IUO1,60)
STOP
@ -1392,7 +1394,8 @@ C
C
3 FORMAT(5(5X,I4))
7 FORMAT(3X,F9.4,1X,F9.4,5X,F12.9,5X,F12.9)
9 FORMAT(3X,F9.4,1X,F9.4,5X,E12.6,5X,E12.6)
CST 9 FORMAT(3X,F9.4,1X,F9.4,5X,E12.6,5X,E12.6)
9 FORMAT(3X,F9.4,1X,F9.4,E18.6,5X,E18.6)
17 FORMAT(12X,'ATOM NUMBER ',I4,10X,'CORRESPONDING TRANSLATIONS ',
1': (',I3,',',I3,',',I3,')')
18 FORMAT(' ',/)
@ -1694,4 +1697,4 @@ C
1 ' ATOMS >>>>>>>>>>',/,10X,'<<<<<<<<<< ATOMS ',I4,
2 ' AND ',I4,' ARE IDENTICAL >>>>>>>>>>')
C
END
999 END