Commit c558fbfd authored by Matthias Redies's avatar Matthias Redies

Merge branch 'develop' of iffgit.fz-juelich.de:fleur/fleur into develop

parents 8ea33017 49a4d9aa
...@@ -84,7 +84,7 @@ CONTAINS ...@@ -84,7 +84,7 @@ CONTAINS
IF (.NOT.this%l_io) RETURN IF (.NOT.this%l_io) RETURN
IF (this%q_done.NE.1) CALL closeXMLElement('Forcetheorem_Loop_DMI') IF (this%q_done.NE.1) CALL closeXMLElement('Forcetheorem_Loop_DMI')
CALL openXMLElementPoly('Forcetheorem_Loop_DMI',(/'Q-vec:'/),(/this%q_done/)) CALL openXMLElementPoly('Forcetheorem_Loop_DMI',(/'Q-vec'/),(/this%q_done/))
END FUNCTION dmi_next_job END FUNCTION dmi_next_job
SUBROUTINE dmi_postprocess(this) SUBROUTINE dmi_postprocess(this)
......
...@@ -86,7 +86,7 @@ CONTAINS ...@@ -86,7 +86,7 @@ CONTAINS
noco%qss=this%qvec(:,this%q_done) noco%qss=this%qvec(:,this%q_done)
IF (.NOT.this%l_io) RETURN IF (.NOT.this%l_io) RETURN
IF (this%q_done.NE.1) CALL closeXMLElement('Forcetheorem_Loop_SSDISP') IF (this%q_done.NE.1) CALL closeXMLElement('Forcetheorem_Loop_SSDISP')
CALL openXMLElementPoly('Forcetheorem_Loop_SSDISP',(/'Q-vec:'/),(/this%q_done/)) CALL openXMLElementPoly('Forcetheorem_Loop_SSDISP',(/'Q-vec'/),(/this%q_done/))
END FUNCTION ssdisp_next_job END FUNCTION ssdisp_next_job
SUBROUTINE ssdisp_postprocess(this) SUBROUTINE ssdisp_postprocess(this)
......
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