module CUnityOutputs implicit none type :: UnityOutputsType real(8) :: KellyHoseVibrationRate real(8) :: BlowoutFromStringPercent real(8) :: Pedal real(8) :: FlowRate real(8) :: RotaryRpm logical :: BlowoutFromString logical :: BlowoutFromAnnular logical :: FlowFromReturnLine real :: FlowFromKelly real :: FlowFromFillupHead logical :: FlowKellyDisconnect logical :: FlowPipeDisconnect end type UnityOutputsType contains ! subroutine Setup() ! use CDataDisplayConsole ! use ConfigurationVariables ! implicit none ! ! PumpsSpmChanges => Calc_KellyHoseVibrationRate ! ! call data%Equipments%DataDisplayConsole%OnRotaryRpmChange%Add(Set_RotaryRpm) ! end subroutine end module CUnityOutputs