mahmood19227
/
SimulationCore2

subroutine RTable_StartUp

    use CDrillingConsoleVariables
    use RTable_VARIABLES
    
	IMPLICIT NONE
    
    
    
    !RTable%=0.
    
    RTable%Inertia_Moment  = 23.261341                                            ! 23.261341 [kg.m^2] = 552 [lb.ft^2]
    RTable%J_coef          = RTable%Inertia_Moment+(1.*(RTable%Inertia_Moment))   ! [kg.m^2]???????????
    RTable%String_JCoef    = 0.                             !???????????????
    RTable%Mech_Efficiency = 0.930
    RTable%ConstLoad       = 2000.                          ![lb.in]
    RTable%ConstLoad       = 0.112984829*RTable%ConstLoad   ![N.m]
    RTable%Torque          = 0.0
    
    
    RTable%High_Conv_Ratio = 4.8250
    RTable%Low_Conv_Ratio  = 7.310
    RTable%Conv_Ratio      = RTable%Low_Conv_Ratio
    RTable%time_step       = .10
    
    
    RTable%w     = 0.0
    RTable%w_new = 0.0
    
    
    
    
    RT_OldTransMode  = RTTransmissionLever

    
    
    call RTable_OffMode
    
    
    
    
end subroutine RTable_StartUp