Bugfix for last commit

forcetheorem/dmi.F90

@@ -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

forcetheorem/jij.F90

@@ -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
     

forcetheorem/mae.F90

@@ -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

forcetheorem/ssdisp.F90

@@ -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