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

Bugfix for last commit

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