Commit 5f27a13c authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix for last commit

parent d6c67ae8
......@@ -65,6 +65,7 @@ CONTAINS
LOGICAL FUNCTION dmi_next_job(this,lastiter,atoms,noco)
USE m_types_setup
USE m_xmlOutput
USE m_constants
IMPLICIT NONE
CLASS(t_forcetheo_dmi),INTENT(INOUT):: this
LOGICAL,INTENT(IN) :: lastiter
......@@ -73,7 +74,7 @@ CONTAINS
TYPE(t_noco),INTENT(INOUT) :: noco
INTEGER :: itype
IF (.NOT.lastiter) THEN
dmi_next_job=this%t_forcetheo%next_job(lastiter,noco)
dmi_next_job=this%t_forcetheo%next_job(lastiter,atoms,noco)
RETURN
ENDIF
!OK, now we start the DMI-loop
......
......@@ -118,7 +118,7 @@ CONTAINS
INTEGER:: n
IF (.NOT.lastiter) THEN
jij_next_job=this%t_forcetheo%next_job(lastiter,noco)
jij_next_job=this%t_forcetheo%next_job(lastiter,atoms,noco)
RETURN
ENDIF
......
......@@ -64,6 +64,7 @@ CONTAINS
LOGICAL FUNCTION mae_next_job(this,lastiter,atoms,noco)
USE m_types_setup
USE m_xmlOutput
USE m_constants
IMPLICIT NONE
CLASS(t_forcetheo_mae),INTENT(INOUT):: this
LOGICAL,INTENT(IN) :: lastiter
......@@ -71,7 +72,7 @@ CONTAINS
!Stuff that might be modified...
TYPE(t_noco),INTENT(INOUT) :: noco
IF (.NOT.lastiter) THEN
mae_next_job=this%t_forcetheo%next_job(lastiter,noco)
mae_next_job=this%t_forcetheo%next_job(lastiter,atoms,noco)
RETURN
ENDIF
!OK, now we start the MAE-loop
......
......@@ -68,6 +68,7 @@ CONTAINS
LOGICAL FUNCTION ssdisp_next_job(this,lastiter,atoms,noco)
USE m_types_setup
USE m_xmlOutput
USE m_constants
IMPLICIT NONE
CLASS(t_forcetheo_ssdisp),INTENT(INOUT):: this
LOGICAL,INTENT(IN) :: lastiter
......@@ -76,7 +77,7 @@ CONTAINS
TYPE(t_noco),INTENT(INOUT) :: noco
INTEGER :: itype
IF (.NOT.lastiter) THEN
ssdisp_next_job=this%t_forcetheo%next_job(lastiter,noco)
ssdisp_next_job=this%t_forcetheo%next_job(lastiter,atoms,noco)
RETURN
ENDIF
!OK, now we start the SSDISP-loop
......
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