SimulationCore2/Equipments/RotaryTable/Rtable_MainSolver.f90

subroutine RTable_MainSolver
    
    
    Use RTable_VARIABLES
    
	IMPLICIT NONE
    
    
    Call RTable_Inputs
    
    if (RTable%Throttle<=0.d0) then
        RTable%K_throttle = 1
    end if
    
    
    if ( (any(RTable%AssignmentSwitch==(/1,2,3,4,5,8,9,10,11/))) .and. (RTable%Switch==-1) ) then 
        
        RTable%SoundBlower = .true.
        RTable%BLWR        = 1
        !======================= Rotary Table Rate_limit =======================
        if (((RTable%N_new-RTable%N_old)/RTable%time_step)>RTable%RateChange) then
            RTable%N_ref = (RTable%RateChange*RTable%time_step)+RTable%N_old
        else if (((RTable%N_old-RTable%N_new)/RTable%time_step)>RTable%RateChange) then
            RTable%N_ref = (-RTable%RateChange*RTable%time_step)+RTable%N_old
        else
            RTable%N_ref = RTable%N_new
        end if
        !=======================================================================
        CALL RTable_OnModeSolver
        
    else if ( (any(RTable%AssignmentSwitch==(/1,2,3,4,5,8,9,10,11/))) .and. (RTable%Switch==1) .and. (RTable%K_throttle==1) ) then
        
        RTable%SoundBlower = .true.
        RTable%BLWR        = 1
        !======================= Rotary Table Rate_limit =======================
        if (((RTable%N_new-RTable%N_old)/RTable%time_step)>RTable%RateChange) then
            RTable%N_ref = (RTable%RateChange*RTable%time_step)+RTable%N_old
        else if (((RTable%N_old-RTable%N_new)/RTable%time_step)>RTable%RateChange) then
            RTable%N_ref = (-RTable%RateChange*RTable%time_step)+RTable%N_old
        else
            RTable%N_ref = RTable%N_new
        end if
        !=======================================================================
        CALL RTable_OnModeSolver
        
    else
        
        if((any(RTable%AssignmentSwitch==(/1,2,3,4,5,8,9,10,11/))) .and. (RTable%Switch/=0)) then
            RTable%SoundBlower = .true.
            RTable%BLWR        = 1
        else
            RTable%SoundBlower = .false.
            RTable%BLWR        = 0
        end if            
        Call RTable_OffMode
        RTable%K_throttle = 0
        
    end if

    
    Call RTable_Outputs
    
    RTable%N_old = RTable%N_ref

    
    
end subroutine RTable_MainSolver