SimulationCore2/Equipments/RotaryTable/RotaryTableMain.i90

# 1 "/home/admin/SimulationCore2/Equipments/RotaryTable/RotaryTableMain.f90"
module RotaryTableMain
    implicit none
    public
    contains
    
    subroutine RotaryTable_Setup()
!use CSimulationVariables
!call OnSimulationInitialization%Add(RotaryTable_Init)
!call OnSimulationStop%Add(RotaryTable_Init)
!call OnRotaryTableStep%Add(RotaryTable_Step)
!call OnRotaryTableOutput%Add(RotaryTable_Output)
!call OnRotaryTableMain%Add(RotaryTableMainBody)
    end subroutine
    
    subroutine RotaryTable_Init
        Call RTable_StartUp            
    end subroutine RotaryTable_Init
    
    subroutine RotaryTable_Step 
        Call Rtable_MainSolver
    end subroutine RotaryTable_Step

    subroutine RotaryTable_Output
        implicit none
    end subroutine RotaryTable_Output
    
    
    subroutine RotaryTableMainBody
    
        use SimulationVariables !@
    
        implicit none
        
    
        Call RTable_StartUp
        
        loopRtablestart : do
                    
            Call RTable_MainSolver
        
        end do loopRtablestart
    
    
    end subroutine RotaryTableMainBody



end module RotaryTableMain