|
- module CTdsTorqueWrenchLedNotification
- use COperationScenariosVariables
- implicit none
- contains
-
- subroutine Evaluate_TorqueWrenchLed()
- implicit none
-
- if (DriveType == TopDrive_DriveType) then
- #ifdef OST
- print*, 'Evaluate_TorqueWrenchLed=TopDrive'
- #endif
-
- !TOPDRIVE-CODE=81
- if((Get_TdsBackupClamp() == BACKUP_CLAMP_OFF_BEGIN .or.&
- Get_TdsBackupClamp() == BACKUP_CLAMP_FW_BEGIN) .and.&
- TopDriveTdsPowerState /= TdsPower_OFF) then
- call Set_TorqueWrenchLed(LED_BLINK)
- return
- endif
-
- !TOPDRIVE-CODE=81
- if(Get_TdsBackupClamp() == BACKUP_CLAMP_FW_END .and.&
- TopDriveTdsPowerState /= TdsPower_OFF) then
- call Set_TorqueWrenchLed(LED_ON)
- return
- endif
-
-
- call Set_TorqueWrenchLed(LED_OFF)
-
- endif
-
-
-
-
-
-
-
-
-
- if (DriveType == Kelly_DriveType) then
- #ifdef OST
- print*, 'Evaluate_SwingLed=Kelly'
- #endif
-
-
- endif
-
-
-
- end subroutine
-
- ! subroutine Subscribe_TorqueWrenchLed()
- ! implicit none
-
- ! end subroutine
-
- end module CTdsTorqueWrenchLedNotification
|
