Commit 53e5fcc9 authored by Gregor Michalicek's avatar Gregor Michalicek

Shortened two lines in the code

parent 1546bf79
......@@ -151,7 +151,8 @@ CONTAINS
WRITE(attributes(4),'(f15.10)') qmtl(1)
WRITE(attributes(5),'(f15.10)') qmtl(2)
WRITE(attributes(6),'(f15.10)') qmtl(3)
CALL writeXMLElementForm('mtCharge',(/'atomType','total','s','p','d','f'/),attributes,reshape((/8,5,1,1,1,1,6,15,15,15,15,15/),(/6,2/)))
CALL writeXMLElementForm('mtCharge',(/'atomType','total','s','p','d','f'/),attributes,&
reshape((/8,5,1,1,1,1,6,15,15,15,15,15/),(/6,2/)))
!+soc
!---> spherical angular component
......
......@@ -456,7 +456,8 @@ SUBROUTINE w_inpXML(&
startCoreStates = 5
ELSE IF ((endCoreStates.GE.1).AND.&
& (ALL(xmlPrintCoreStates(1:1,iAtomType).EQV..FALSE.)).AND.&
& (ALL(xmlElectronStates(1:1,iAtomType).EQ.coreState_const))) THEN coreStatesString = nobleGasConfigList(1)
& (ALL(xmlElectronStates(1:1,iAtomType).EQ.coreState_const))) THEN
coreStatesString = nobleGasConfigList(1)
startCoreStates = 2
END IF
DO i = startCoreStates, endCoreStates
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment