mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
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.
6 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: e0184c4093
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'e0184c4093'
${ noResults }
SimulationCore2/CSharp/OperationScenarios/Notifications/CTdsIbopLedNotification.f90

72 lines
1.3 KiB
Raw Blame History 

  1. module CTdsIbopLedNotification

  2.     use COperationScenariosVariables

  3.     implicit none

  4.     contains

  5.     

  6.     subroutine Evaluate_IbopLed()

  7.         use CCommon

  8.         implicit none

  9.         

  10.         

  11.         if (DriveType == TopDrive_DriveType) then

  12. #ifdef OST

  13.             print*, 'Evaluate_IbopLed=TopDrive'

  14. #endif

  15. 

  16. 

  17. 

  18. 

  19.             !TOPDRIVE-CODE=61

  20.             if (Get_IbopLed() == .false. .and.&

  21.                 TopDriveTdsPowerState == TdsPower_OFF .and.&

  22.                 TopDriveIbop == .false.) then

  23.             

  24.                 call Set_IbopLed(.true.)

  25.                 TopDriveLinkTiltLed = LED_OFF

  26.                 return

  27.             end if

  28. 

  29. 

  30. 

  31. 

  32.             !TOPDRIVE-CODE=62

  33.             if (Get_IbopLed() .and.&

  34.                 TopDriveTdsPowerState == TdsPower_OFF .and.&

  35.                 TopDriveIbop) then

  36.             

  37.                 call Set_IbopLed(.false.)

  38.                 TopDriveLinkTiltLed = LED_ON

  39.                 return

  40.             end if

  41. 

  42. 

  43. 

  44. 

  45. 

  46.         endif

  47.         

  48.         

  49.         

  50.         

  51.         

  52.         

  53.         

  54.         

  55. !        if (DriveType == Kelly_DriveType) then

  56. !#ifdef OST

  57. !            print*, 'Evaluate_IbopLed=Kelly'

  58. !#endif

  59. !

  60. !        endif

  61.         

  62.         

  63.         

  64.         

  65.         

  66.     end subroutine

  67.     

  68.     ! subroutine Subscribe_IbopLed()

  69.     !     implicit none

  70.     ! end subroutine

  71.     

  72. end module CTdsIbopLedNotification