module RopMain
    implicit none
    public
    contains
    
    subroutine Rop_Setup()
        use CSimulationVariables
        implicit none
        call OnSimulationInitialization%Add(Rop_Init)
        call OnSimulationStop%Add(Rop_Init)
        call OnRopStep%Add(Rop_Step)
        call OnRopOutput%Add(Rop_Output)
        call OnRopMain%Add(RopMainBody)
    end subroutine
    
    subroutine Rop_Init
        implicit none
    end subroutine Rop_Init
    
    subroutine Rop_Step
        implicit none
    end subroutine Rop_Step
    
    subroutine Rop_Output
        implicit none
    end subroutine Rop_Output
    
    
    subroutine RopMainBody   
        implicit none   
        !loop1: do
        !call sleep(1)
        !call Calculate_ROP
            !write(*,*) 'ROP main reached'
        !end do loop1
    end subroutine RopMainBody
    
end module RopMain