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    
        implicit none
        Call Rtable_MainSolver
    end subroutine RotaryTable_Step

    subroutine RotaryTable_Output
        implicit none
    end subroutine RotaryTable_Output
    
    
    subroutine RotaryTableMainBody
        use CDataDisplayConsoleVariables
        use CDrillingConsoleVariables
        use CSimulationVariables
        use RTable_VARIABLES
        use CDrillWatchVariables
        use CWarningsVariables
        use CSounds
    
        implicit none
    
        integer,dimension(8) :: RT_START_TIME, RT_END_TIME
        INTEGER :: RT_SolDuration
    
    
        Call RTable_StartUp
        loopRtablestart : do
            
            CALL DATE_AND_TIME(values=RT_START_TIME)
    
            Call Rtable_MainSolver
            
            if (IsStopped == .true.) then
                exit loopRtablestart
            end if
            
            CALL DATE_AND_TIME(values=RT_END_TIME) 
            RT_SolDuration = 100-(RT_END_TIME(5)*3600000+RT_END_TIME(6)*60000+RT_END_TIME(7)*1000+RT_END_TIME(8)-RT_START_TIME(5)*3600000-RT_START_TIME(6)*60000-RT_START_TIME(7)*1000-RT_START_TIME(8))
            if(RT_SolDuration > 0.0) then
                CALL sleepqq(RT_SolDuration)
            end if
    
        
        end do loopRtablestart
    
    
    end subroutine RotaryTableMainBody



end module RotaryTableMain