# 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/Notifications/CTdsPowerLedNotification.f90" module CTdsPowerLedNotification use OperationScenariosModule use SimulationVariables implicit none contains subroutine Evaluate_PowerLed() use CCommon implicit none if (data%Configuration%Hoisting%DriveType == TopDrive_DriveType) then # 15 !TOPDRIVE-CODE=63 if (data%Equipments%TopDrivePanel%TopDriveTdsPowerState == TdsPower_OFF) then call Set_PowerLed(.true.) return end if endif if (data%Configuration%Hoisting%DriveType == Kelly_DriveType) then # 35 endif end subroutine ! subroutine Subscribe_PowerLed() ! implicit none ! end subroutine end module CTdsPowerLedNotification