Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

23 lines
553 B

  1. Subroutine TopDrive_Outputs
  2. Use TopDrive_VARIABLES
  3. Use CTopDrivePanelVariables
  4. IMPLICIT NONE
  5. TopDrivePanel%TopDriveTdsPowerLed = TDS%PowerLed
  6. TopDrivePanel%TopDriveOperationFaultLed = TDS%OperationFaultLed
  7. !TDS%Speed ! to other modules ![RPM]
  8. TopDrivePanel%TopDriveRpmGauge = TDS%RpmGaugeOutput ![RPM]
  9. TopDrivePanel%TopDriveTorqueGauge = TDS%TorqueGaugeOutput ![ft.lbf]
  10. !TDS%SoundBlower
  11. !TDS%RPMUnityOutput
  12. End Subroutine TopDrive_Outputs