mahmood19227
/
SimulationCore2
1
0
Rozštěpit 0
Zdrojový kód Úkoly 0 Požadavky na natažení 0 Vydání 0 Wiki Aktivita
Simulation Core
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
37 Revize
2 Větve
136 MiB
 
 
 
 
 
 
Strom: dee71ed0d6
Větve Značky
${ item.name }
Vytvořit větev ${ searchTerm }
z „dee71ed0d6“
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CDrillingConsole.f90

969 řádky
38 KiB
Surový Blame Historie 

  1. module CDrillingConsole

  2.     use CDrillingConsoleVariables

  3.     use SimulationVariables

  4.     use SimulationVariables 

  5.     ! use CSimulationVariables

  6.     use CLog4

  7.     use CLog3

  8.     implicit none    

  9.     public    

  10.     contains  

  11. 

  12. 

  13.     subroutine CDrillingToJson(parent)

  14. 

  15.         type(json_value),pointer :: parent

  16.         type(json_core) :: json

  17.         type(json_value),pointer :: p

  18. 

  19.         ! 1. create new node

  20.         call json%create_object(p,'CDrilling')

  21.         call json%add(p,"AssignmentSwitch",data%Equipments%ControlPanel%CDriling%AssignmentSwitch)

  22.         call json%add(p,"EmergencySwitch",data%Equipments%ControlPanel%CDriling%EmergencySwitch)

  23.         call json%add(p,"RTTorqueLimitKnob",data%Equipments%ControlPanel%CDriling%RTTorqueLimitKnob)

  24.         call json%add(p,"MP1CPSwitchI",data%Equipments%ControlPanel%CDriling%MP1CPSwitchI)

  25.         call json%add(p,"MP1CPSwitchT",data%Equipments%ControlPanel%CDriling%MP1CPSwitchT)

  26.         call json%add(p,"MP1CPSwitch",data%Equipments%ControlPanel%CDriling%MP1CPSwitch)

  27.         call json%add(p,"MP1ThrottleUpdate",data%Equipments%ControlPanel%CDriling%MP1ThrottleUpdate)

  28.         call json%add(p,"MP1Throttle",data%Equipments%ControlPanel%CDriling%MP1Throttle)

  29.         call json%add(p,"MP2SwitchI",data%Equipments%ControlPanel%CDriling%MP2SwitchI)

  30.         call json%add(p,"MP2SwitchT",data%Equipments%ControlPanel%CDriling%MP2SwitchT)

  31.         call json%add(p,"MP2Switch",data%Equipments%ControlPanel%CDriling%MP2Switch)

  32.         call json%add(p,"MP2ThrottleUpdate",data%Equipments%ControlPanel%CDriling%MP2ThrottleUpdate)

  33.         call json%add(p,"MP2Throttle",data%Equipments%ControlPanel%CDriling%MP2Throttle)

  34.         call json%add(p,"DWSwitch",data%Equipments%ControlPanel%CDriling%DWSwitch)

  35.         call json%add(p,"DWThrottle",data%Equipments%ControlPanel%CDriling%DWThrottle)

  36.         call json%add(p,"RTSwitch",data%Equipments%ControlPanel%CDriling%RTSwitch)

  37.         call json%add(p,"RTThrottle",data%Equipments%ControlPanel%CDriling%RTThrottle)

  38.         call json%add(p,"DWBreak",data%Equipments%ControlPanel%CDriling%DWBreak)

  39.         call json%add(p,"PreviousDWBreak",data%Equipments%ControlPanel%CDriling%PreviousDWBreak)

  40.         call json%add(p,"ForceBreak",data%Equipments%ControlPanel%CDriling%ForceBreak)

  41.         call json%add(p,"DWAcceleretor",data%Equipments%ControlPanel%CDriling%DWAcceleretor)

  42.         call json%add(p,"DWTransmisionLever",data%Equipments%ControlPanel%CDriling%DWTransmisionLever)

  43.         call json%add(p,"DWPowerLever",data%Equipments%ControlPanel%CDriling%DWPowerLever)

  44.         call json%add(p,"TongLever",data%Equipments%ControlPanel%CDriling%TongLever)

  45.         call json%add(p,"RTTransmissionLever",data%Equipments%ControlPanel%CDriling%RTTransmissionLever)

  46.         call json%add(p,"DWClutchLever",data%Equipments%ControlPanel%CDriling%DWClutchLever)

  47.         call json%add(p,"EddyBreakLever",data%Equipments%ControlPanel%CDriling%EddyBreakLever)

  48.         call json%add(p,"AutoDW",data%Equipments%ControlPanel%CDriling%AutoDW)

  49.         call json%add(p,"GEN1",data%Equipments%ControlPanel%CDriling%GEN1)

  50.         call json%add(p,"GEN2",data%Equipments%ControlPanel%CDriling%GEN2)

  51.         call json%add(p,"GEN3",data%Equipments%ControlPanel%CDriling%GEN3)

  52.         call json%add(p,"GEN4",data%Equipments%ControlPanel%CDriling%GEN4)

  53.         call json%add(p,"Permission_OpenKellyCock",data%Equipments%ControlPanel%CDriling%Permission_OpenKellyCock)

  54.         call json%add(p,"OpenKellyCock",data%Equipments%ControlPanel%CDriling%OpenKellyCock)

  55.         call json%add(p,"Permission_CloseKellyCock",data%Equipments%ControlPanel%CDriling%Permission_CloseKellyCock)

  56.         call json%add(p,"CloseKellyCock",data%Equipments%ControlPanel%CDriling%CloseKellyCock)

  57.         call json%add(p,"Permission_OpenSafetyValve",data%Equipments%ControlPanel%CDriling%Permission_OpenSafetyValve)

  58.         call json%add(p,"OpenSafetyValve",data%Equipments%ControlPanel%CDriling%OpenSafetyValve)

  59.         call json%add(p,"Permission_CloseSafetyValve",data%Equipments%ControlPanel%CDriling%Permission_CloseSafetyValve)

  60.         call json%add(p,"CloseSafetyValve",data%Equipments%ControlPanel%CDriling%CloseSafetyValve)

  61.         call json%add(p,"Permission_IRSafetyValve",data%Equipments%ControlPanel%CDriling%Permission_IRSafetyValve)

  62.         call json%add(p,"IRSafetyValve",data%Equipments%ControlPanel%CDriling%IRSafetyValve)

  63.         call json%add(p,"Permission_IRIBop",data%Equipments%ControlPanel%CDriling%Permission_IRIBop)

  64.         call json%add(p,"IRIBop",data%Equipments%ControlPanel%CDriling%IRIBop)

  65.         call json%add(p,"LatchPipe",data%Equipments%ControlPanel%CDriling%LatchPipe)

  66.         call json%add(p,"UnlatchPipe",data%Equipments%ControlPanel%CDriling%UnlatchPipe)

  67.         call json%add(p,"Swing",data%Equipments%ControlPanel%CDriling%Swing)

  68.         call json%add(p,"FillMouseHole",data%Equipments%ControlPanel%CDriling%FillMouseHole)

  69.         call json%add(p,"Slips",data%Equipments%ControlPanel%CDriling%Slips)

  70.         call json%add(p,"BrakeLeverCoefficient",data%Equipments%ControlPanel%CDriling%BrakeLeverCoefficient)

  71.         call json%add(p,"HideDrillingBrake",data%Equipments%ControlPanel%CDriling%HideDrillingBrake)

  72.         call json%add(p,"ParkingBrakeBtn",data%Equipments%ControlPanel%CDriling%ParkingBrakeBtn)

  73.         call json%add(p,"ParkingBrakeLed",data%Equipments%ControlPanel%CDriling%ParkingBrakeLed)

  74.         call json%add(p,"GEN1LED",data%Equipments%ControlPanel%CDriling%GEN1LED)

  75.         call json%add(p,"GEN2LED",data%Equipments%ControlPanel%CDriling%GEN2LED)

  76.         call json%add(p,"GEN3LED",data%Equipments%ControlPanel%CDriling%GEN3LED)

  77.         call json%add(p,"GEN4LED",data%Equipments%ControlPanel%CDriling%GEN4LED)

  78.         call json%add(p,"SCR1LED",data%Equipments%ControlPanel%CDriling%SCR1LED)

  79.         call json%add(p,"SCR2LED",data%Equipments%ControlPanel%CDriling%SCR2LED)

  80.         call json%add(p,"SCR3LED",data%Equipments%ControlPanel%CDriling%SCR3LED)

  81.         call json%add(p,"SCR4LED",data%Equipments%ControlPanel%CDriling%SCR4LED)

  82.         call json%add(p,"MP1BLWR",data%Equipments%ControlPanel%CDriling%MP1BLWR)

  83.         call json%add(p,"MP2BLWR",data%Equipments%ControlPanel%CDriling%MP2BLWR)

  84.         call json%add(p,"DWBLWR",data%Equipments%ControlPanel%CDriling%DWBLWR)

  85.         call json%add(p,"RTBLWR",data%Equipments%ControlPanel%CDriling%RTBLWR)

  86.         call json%add(p,"PWRLIM",data%Equipments%ControlPanel%CDriling%PWRLIM)

  87.         call json%add(p,"PWRLIMMTR",data%Equipments%ControlPanel%CDriling%PWRLIMMTR)

  88.         call json%add(p,"RTTorqueLimitGauge",data%Equipments%ControlPanel%CDriling%RTTorqueLimitGauge)

  89.         call json%add(p,"AutoDWLED",data%Equipments%ControlPanel%CDriling%AutoDWLED)

  90.         call json%add(p,"GEN1BTNLED",data%Equipments%ControlPanel%CDriling%GEN1BTNLED)

  91.         call json%add(p,"GEN2BTNLED",data%Equipments%ControlPanel%CDriling%GEN2BTNLED)

  92.         call json%add(p,"GEN3BTNLED",data%Equipments%ControlPanel%CDriling%GEN3BTNLED)

  93.         call json%add(p,"GEN4BTNLED",data%Equipments%ControlPanel%CDriling%GEN4BTNLED)

  94.         call json%add(p,"OpenKellyCockLed",data%Equipments%ControlPanel%CDriling%OpenKellyCockLed)

  95.         call json%add(p,"CloseKellyCockLed",data%Equipments%ControlPanel%CDriling%CloseKellyCockLed)

  96.         call json%add(p,"OpenSafetyValveLed",data%Equipments%ControlPanel%CDriling%OpenSafetyValveLed)

  97.         call json%add(p,"CloseSafetyValveLed",data%Equipments%ControlPanel%CDriling%CloseSafetyValveLed)

  98.         call json%add(p,"IRSafetyValveLed",data%Equipments%ControlPanel%CDriling%IRSafetyValveLed)

  99.         call json%add(p,"IRIBopLed",data%Equipments%ControlPanel%CDriling%IRIBopLed)

  100.         call json%add(p,"LatchPipeLED",data%Equipments%ControlPanel%CDriling%LatchPipeLED)

  101.         call json%add(p,"UnlatchPipeLED",data%Equipments%ControlPanel%CDriling%UnlatchPipeLED)

  102.         call json%add(p,"SwingLed",data%Equipments%ControlPanel%CDriling%SwingLed)

  103.         call json%add(p,"FillMouseHoleLed",data%Equipments%ControlPanel%CDriling%FillMouseHoleLed)

  104. 

  105.         call json%add(parent,p)

  106.     end subroutine

  107.     

  108.     ! Input routines

  109.     subroutine SetAssignmentSwitch(v)

  110.     !DEC$ ATTRIBUTES DLLEXPORT :: SetAssignmentSwitch

  111.     !DEC$ ATTRIBUTES ALIAS: 'SetAssignmentSwitch' :: SetAssignmentSwitch

  112. 	    implicit none

  113. 	    integer, intent(in) :: v

  114. 	    data%EquipmentControl%DrillingConsole%AssignmentSwitch = v

  115. #ifdef deb

  116. 	    call Log_4( 'AssignmentSwitch=', data%EquipmentControl%DrillingConsole%AssignmentSwitch)

  117. #endif

  118.     end subroutine

  119. 

  120.     subroutine SetEmergencySwitch(v)

  121.     !DEC$ ATTRIBUTES DLLEXPORT :: SetEmergencySwitch

  122.     !DEC$ ATTRIBUTES ALIAS: 'SetEmergencySwitch' :: SetEmergencySwitch

  123. 	    implicit none

  124. 	    logical, intent(in) :: v

  125. 	    data%EquipmentControl%DrillingConsole%EmergencySwitch = v

  126. #ifdef deb

  127. 	    print*, 'EmergencySwitch=', data%EquipmentControl%DrillingConsole%EmergencySwitch

  128. #endif

  129.     end subroutine

  130. 

  131.     subroutine SetRTTorqueLimitKnob(v)

  132.     !DEC$ ATTRIBUTES DLLEXPORT :: SetRTTorqueLimitKnob

  133.     !DEC$ ATTRIBUTES ALIAS: 'SetRTTorqueLimitKnob' :: SetRTTorqueLimitKnob

  134. 	    implicit none

  135. 	    real*8, intent(in) :: v

  136. 	    data%EquipmentControl%DrillingConsole%RTTorqueLimitKnob = v

  137. #ifdef deb

  138. 	    print*, 'RTTorqueLimitKnob=', data%EquipmentControl%DrillingConsole%RTTorqueLimitKnob

  139. #endif

  140.     end subroutine

  141. 

  142.     subroutine SetMP1CPSwitch(v)

  143.     !DEC$ ATTRIBUTES DLLEXPORT :: SetMP1CPSwitch

  144.     !DEC$ ATTRIBUTES ALIAS: 'SetMP1CPSwitch' :: SetMP1CPSwitch

  145. 	    implicit none

  146. 	    integer, intent(in) :: v

  147.         

  148.         if(data%EquipmentControl%DrillingConsole%MP1CPSwitch == v) return

  149.         

  150.         if(SimulationState == SimulationState_Started) then

  151.             data%EquipmentControl%DrillingConsole%MP1CPSwitchI = data%EquipmentControl%DrillingConsole%MP1CPSwitchI + 1

  152.             if(data%EquipmentControl%DrillingConsole%MP1CPSwitchI >= 1) data%EquipmentControl%DrillingConsole%MP1CPSwitch = v

  153.             if(data%EquipmentControl%DrillingConsole%MP1CPSwitchI >= 100) data%EquipmentControl%DrillingConsole%MP1CPSwitchI = 1

  154.             !call Log_3( "MP1CPSwitchI=", MP1CPSwitchI)

  155.             !call Log_3( "MP1CPSwitch=", MP1CPSwitch)

  156.             

  157.             !MP1CPSwitch = v

  158.         endif

  159. !        if(SimulationState == SimulationState_Started) then

  160. !            !call Log_3( 'MP1CPSwitc(s)h=', MP1CPSwitch)

  161. !            if(MP1CPSwitchT /= v) then

  162. !	            MP1CPSwitchT = v

  163. !	            MP1CPSwitch = v

  164. !#ifdef deb

  165. !	            !print*, 'MP1CPSwitch=', MP1CPSwitch

  166. !	            !call Log_3( 'MP1CPSwitch=', MP1CPSwitch)

  167. !#endif

  168. !            endif

  169. !        else

  170. !            MP1CPSwitchT = v

  171. !        endif

  172.     end subroutine

  173. 

  174.     subroutine SetMP1Throttle(v)

  175.     !DEC$ ATTRIBUTES DLLEXPORT :: SetMP1Throttle

  176.     !DEC$ ATTRIBUTES ALIAS: 'SetMP1Throttle' :: SetMP1Throttle

  177. 	    implicit none

  178. 	    real*8, intent(in) :: v

  179.         if(data%EquipmentControl%DrillingConsole%MP1Throttle == v) return

  180.         if(SimulationState == SimulationState_Started) then

  181.             if( abs(v - data%EquipmentControl%DrillingConsole%MP1Throttle) > 0.1) data%EquipmentControl%DrillingConsole%MP1ThrottleUpdate = .true.

  182. 	        if(data%EquipmentControl%DrillingConsole%MP1ThrottleUpdate) data%EquipmentControl%DrillingConsole%MP1Throttle = v

  183.             

  184.             !call Log_3( 'v-mp1=', v)

  185.             !call Log_3( 'MP1Throttle=', MP1Throttle)

  186.             !call Log_3( 'MP1ThrottleUpdate=', MP1ThrottleUpdate)

  187.             

  188.             !MP1Throttle = v

  189.         endif

  190. #ifdef deb

  191. 	    print*, 'MP1Throttle=', data%EquipmentControl%DrillingConsole%MP1Throttle

  192. #endif

  193.     end subroutine

  194. 

  195.     subroutine SetMP2Switch(v)

  196.     !DEC$ ATTRIBUTES DLLEXPORT :: SetMP2Switch

  197.     !DEC$ ATTRIBUTES ALIAS: 'SetMP2Switch' :: SetMP2Switch

  198. 	    implicit none

  199. 	    logical, intent(in) :: v

  200.         !call Log_3(  'v=', MP2SwitchT)

  201.         

  202.         if(data%EquipmentControl%DrillingConsole%MP2Switch == v) return

  203.         

  204.         if(SimulationState == SimulationState_Started) then

  205.             data%EquipmentControl%DrillingConsole%MP2SwitchI = data%EquipmentControl%DrillingConsole%MP2SwitchI + 1

  206.             if(data%EquipmentControl%DrillingConsole%MP2SwitchI >= 1) data%EquipmentControl%DrillingConsole%MP2Switch = v

  207.             if(data%EquipmentControl%DrillingConsole%MP2SwitchI >= 100) data%EquipmentControl%DrillingConsole%MP2SwitchI = 1

  208.             !call Log_3( "MP1CPSwitchI=", MP1CPSwitchI)

  209.             !call Log_3( "MP2Switch=", MP2Switch)

  210.             

  211.             !MP2Switch = v

  212.         endif

  213.         

  214. !        if(SimulationState == SimulationState_Started) then

  215. !            !call Log_3(  'MP2Switch(s)=', MP2Switch)

  216. !            if(MP2SwitchT /= v) then

  217. !	            MP2SwitchT = v

  218. !	            MP2Switch = v

  219. !#ifdef deb

  220. !	            !print*,  'MP2Switch=', MP2Switch

  221. !	            !call Log_3(  'MP2Switch=', MP2Switch)

  222. !#endif  

  223. !            endif

  224. !        else

  225. !            MP2SwitchT = v

  226. !            !call Log_3(  'MP2SwitchTMP2SwitchTMP2SwitchT=', MP2SwitchT)

  227. !        endif

  228.     end subroutine

  229. 

  230.     subroutine SetMP2Throttle(v)

  231.     !DEC$ ATTRIBUTES DLLEXPORT :: SetMP2Throttle

  232.     !DEC$ ATTRIBUTES ALIAS: 'SetMP2Throttle' :: SetMP2Throttle

  233. 	    implicit none

  234. 	    real*8, intent(in) :: v

  235.         if(data%EquipmentControl%DrillingConsole%MP2Throttle == v) return

  236.         if(SimulationState == SimulationState_Started) then

  237.             if( abs(v - data%EquipmentControl%DrillingConsole%MP2Throttle) > 0.1) data%EquipmentControl%DrillingConsole%MP2ThrottleUpdate = .true.

  238. 	        if(data%EquipmentControl%DrillingConsole%MP2ThrottleUpdate) data%EquipmentControl%DrillingConsole%MP2Throttle = v

  239.             

  240.             !call Log_3( 'v-mp2=', v)

  241.             !call Log_3( 'MP2Throttle=', MP2Throttle)

  242.             !call Log_3( 'MP2ThrottleUpdate=', MP2ThrottleUpdate)

  243.             

  244. 	        !MP2Throttle = v

  245.         endif

  246. #ifdef deb

  247. 	    print*,  'MP2Throttle=', data%EquipmentControl%DrillingConsole%MP2Throttle

  248. #endif

  249.     end subroutine

  250. 

  251.     subroutine SetDWSwitch(v)

  252.     !DEC$ ATTRIBUTES DLLEXPORT :: SetDWSwitch

  253.     !DEC$ ATTRIBUTES ALIAS: 'SetDWSwitch' :: SetDWSwitch

  254. 	    implicit none

  255. 	    integer, intent(in) :: v

  256. 	    data%EquipmentControl%DrillingConsole%DWSwitch = v

  257. #ifdef deb

  258. 	    print*, 'DWSwitch=', data%EquipmentControl%DrillingConsole%DWSwitch

  259. #endif

  260.     end subroutine

  261. 

  262.     subroutine SetDWThrottle(v)

  263.     !DEC$ ATTRIBUTES DLLEXPORT :: SetDWThrottle

  264.     !DEC$ ATTRIBUTES ALIAS: 'SetDWThrottle' :: SetDWThrottle

  265. 	    implicit none

  266. 	    real*8, intent(in) :: v

  267. 	    data%EquipmentControl%DrillingConsole%DWThrottle = v

  268. #ifdef deb

  269. 	    print*, 'DWThrottle=', data%EquipmentControl%DrillingConsole%DWThrottle

  270. #endif

  271.     end subroutine

  272. 

  273.     subroutine SetRTSwitch(v)

  274.     !DEC$ ATTRIBUTES DLLEXPORT :: SetRTSwitch

  275.     !DEC$ ATTRIBUTES ALIAS: 'SetRTSwitch' :: SetRTSwitch

  276. 	    implicit none

  277. 	    integer, intent(in) :: v

  278. 	    data%EquipmentControl%DrillingConsole%RTSwitch = v

  279. #ifdef deb

  280. 	    print*, 'RTSwitch=', data%EquipmentControl%DrillingConsole%RTSwitch

  281. #endif

  282.     end subroutine

  283. 

  284.     subroutine SetRTThrottle(v)

  285.     !DEC$ ATTRIBUTES DLLEXPORT :: SetRTThrottle

  286.     !DEC$ ATTRIBUTES ALIAS: 'SetRTThrottle' :: SetRTThrottle

  287. 	    implicit none

  288. 	    real*8, intent(in) :: v

  289. 	    data%EquipmentControl%DrillingConsole%RTThrottle = v

  290. #ifdef deb

  291. 	    print*, 'RTThrottle=', data%EquipmentControl%DrillingConsole%RTThrottle

  292. #endif

  293.     end subroutine

  294. 

  295.     subroutine SetDWBreak(v)

  296.     !DEC$ ATTRIBUTES DLLEXPORT :: SetDWBreak

  297.     !DEC$ ATTRIBUTES ALIAS: 'SetDWBreak' :: SetDWBreak

  298. 	    implicit none

  299. 	    real*8, intent(in) :: v

  300.         !if(ForceBreak) return

  301.         data%EquipmentControl%DrillingConsole%PreviousDWBreak = data%EquipmentControl%DrillingConsole%DWBreak

  302. 	    data%EquipmentControl%DrillingConsole%DWBreak = v

  303. #ifdef deb

  304. 	    print*, 'DWBreak=', data%EquipmentControl%DrillingConsole%DWBreak

  305. #endif

  306.     end subroutine

  307. 

  308.     subroutine SetDWAcceleretor(v)

  309.     !DEC$ ATTRIBUTES DLLEXPORT :: SetDWAcceleretor

  310.     !DEC$ ATTRIBUTES ALIAS: 'SetDWAcceleretor' :: SetDWAcceleretor

  311. 	    implicit none

  312. 	    real*8, intent(in) :: v

  313. 	    data%EquipmentControl%DrillingConsole%DWAcceleretor = v

  314. #ifdef deb

  315. 	    print*, 'DWAcceleretor=', data%EquipmentControl%DrillingConsole%DWAcceleretor

  316. #endif

  317.     end subroutine

  318. 

  319.     subroutine SetDWTransmisionLever(v)

  320.     !DEC$ ATTRIBUTES DLLEXPORT :: SetDWTransmisionLever

  321.     !DEC$ ATTRIBUTES ALIAS: 'SetDWTransmisionLever' :: SetDWTransmisionLever

  322. 	    implicit none

  323. 	    real*8, intent(in) :: v

  324. 	    data%EquipmentControl%DrillingConsole%DWTransmisionLever = v

  325. #ifdef deb

  326. 	    print*, 'DWTransmisionLever=', data%EquipmentControl%DrillingConsole%DWTransmisionLever

  327. #endif

  328.     end subroutine

  329. 

  330.     subroutine SetDWPowerLever(v)

  331.     !DEC$ ATTRIBUTES DLLEXPORT :: SetDWPowerLever

  332.     !DEC$ ATTRIBUTES ALIAS: 'SetDWPowerLever' :: SetDWPowerLever

  333. 	    implicit none

  334. 	    real*8, intent(in) :: v

  335. 	    data%EquipmentControl%DrillingConsole%DWPowerLever = v

  336. #ifdef deb

  337. 	    print*, 'DWPowerLever=', data%EquipmentControl%DrillingConsole%DWPowerLever

  338. #endif

  339.     end subroutine

  340. 

  341.     subroutine SetTongLever(v)

  342.     !DEC$ ATTRIBUTES DLLEXPORT :: SetTongLever

  343.     !DEC$ ATTRIBUTES ALIAS: 'SetTongLever' :: SetTongLever

  344. 	    implicit none

  345. 	    real*8, intent(in) :: v

  346.         if (data%EquipmentControl%DrillingConsole%TongLever == v) return

  347. 	    data%EquipmentControl%DrillingConsole%TongLever = v

  348.         

  349.         ! if(dint(TongLever) == 1.0) then

  350.         !     call OnBreakoutLeverPress%RunAll()

  351. ! #ifdef deb

  352.             ! print*, 'OnBreakoutLeverPress=', size(OnBreakoutLeverPress%Delegates)

  353. ! #endif

  354.         ! endif

  355.         ! if(dint(TongLever) == -1.0) then

  356.         !     call OnMakeupLeverPress%RunAll()

  357.             

  358. ! #ifdef deb

  359. !             print*, 'OnMakeupPress=', size(OnMakeupLeverPress%Delegates)

  360. ! #endif

  361. !         endif

  362.         ! if(dint(TongLever) == 0.0) then

  363.         !     call OnTongNeutralPress%RunAll()

  364. ! #ifdef deb

  365. !             print*, 'OnTongNeutralPress=', size(OnTongNeutralPress%Delegates)

  366. ! #endif

  367. !         endif

  368.         

  369. #ifdef deb

  370. 	    print*, 'TongLever=', data%EquipmentControl%DrillingConsole%TongLever

  371. #endif

  372.     end subroutine

  373. 

  374.     subroutine SetRTTransmissionLever(v)

  375.     !DEC$ ATTRIBUTES DLLEXPORT :: SetRTTransmissionLever

  376.     !DEC$ ATTRIBUTES ALIAS: 'SetRTTransmissionLever' :: SetRTTransmissionLever

  377. 	    implicit none

  378. 	    real*8, intent(in) :: v

  379. 	    data%EquipmentControl%DrillingConsole%RTTransmissionLever = v

  380. #ifdef deb

  381. 	    print*, 'RTTransmissionLever=', data%EquipmentControl%DrillingConsole%RTTransmissionLever

  382. #endif

  383.     end subroutine

  384. 

  385.     subroutine SetDWClutchLever(v)

  386.     !DEC$ ATTRIBUTES DLLEXPORT :: SetDWClutchLever

  387.     !DEC$ ATTRIBUTES ALIAS: 'SetDWClutchLever' :: SetDWClutchLever

  388. 	    implicit none

  389. 	    real*8, intent(in) :: v

  390. 	    data%EquipmentControl%DrillingConsole%DWClutchLever = v

  391. #ifdef deb

  392. 	    print*, 'DWClutchLever=', data%EquipmentControl%DrillingConsole%DWClutchLever

  393. #endif

  394.     end subroutine

  395. 

  396.     subroutine SetEddyBreakLever(v)

  397.     !DEC$ ATTRIBUTES DLLEXPORT :: SetEddyBreakLever

  398.     !DEC$ ATTRIBUTES ALIAS: 'SetEddyBreakLever' :: SetEddyBreakLever

  399. 	    implicit none

  400. 	    real*8, intent(in) :: v

  401. 	    data%EquipmentControl%DrillingConsole%EddyBreakLever = v

  402. #ifdef deb

  403. 	    print*, 'EddyBreakLever=', data%EquipmentControl%DrillingConsole%EddyBreakLever

  404. #endif

  405.     end subroutine

  406. 

  407.     subroutine SetAutoDW(v)

  408.     !DEC$ ATTRIBUTES DLLEXPORT :: SetAutoDW

  409.     !DEC$ ATTRIBUTES ALIAS: 'SetAutoDW' :: SetAutoDW

  410. 	    implicit none

  411. 	    logical, intent(in) :: v

  412. 	    data%EquipmentControl%DrillingConsole%AutoDW = v

  413. #ifdef deb

  414. 	    print*, 'AutoDW=', data%EquipmentControl%DrillingConsole%AutoDW

  415. #endif

  416.     end subroutine

  417. 

  418.     subroutine SetGEN1(v)

  419.     !DEC$ ATTRIBUTES DLLEXPORT :: SetGEN1

  420.     !DEC$ ATTRIBUTES ALIAS: 'SetGEN1' :: SetGEN1

  421. 	    implicit none

  422. 	    logical, intent(in) :: v

  423. 	    data%EquipmentControl%DrillingConsole%GEN1 = v

  424. #ifdef deb

  425. 	    print*, 'GEN1=', data%EquipmentControl%DrillingConsole%GEN1

  426. #endif

  427.     end subroutine

  428. 

  429.     subroutine SetGEN2(v)

  430.     !DEC$ ATTRIBUTES DLLEXPORT :: SetGEN2

  431.     !DEC$ ATTRIBUTES ALIAS: 'SetGEN2' :: SetGEN2

  432. 	    implicit none

  433. 	    logical, intent(in) :: v

  434. 	    data%EquipmentControl%DrillingConsole%GEN2 = v

  435. #ifdef deb

  436. 	    print*, 'GEN2=', data%EquipmentControl%DrillingConsole%GEN2

  437. #endif

  438.     end subroutine

  439. 

  440.     subroutine SetGEN3(v)

  441.     !DEC$ ATTRIBUTES DLLEXPORT :: SetGEN3

  442.     !DEC$ ATTRIBUTES ALIAS: 'SetGEN3' :: SetGEN3

  443. 	    implicit none

  444. 	    logical, intent(in) :: v

  445. 	    data%EquipmentControl%DrillingConsole%GEN3 = v

  446. #ifdef deb

  447. 	    print*, 'GEN3=', data%EquipmentControl%DrillingConsole%GEN3

  448. #endif

  449.     end subroutine

  450. 

  451.     subroutine SetGEN4(v)

  452.     !DEC$ ATTRIBUTES DLLEXPORT :: SetGEN4

  453.     !DEC$ ATTRIBUTES ALIAS: 'SetGEN4' :: SetGEN4

  454. 	    implicit none

  455. 	    logical, intent(in) :: v

  456. 	    data%EquipmentControl%DrillingConsole%GEN4 = v

  457. #ifdef deb

  458. 	    print*, 'GEN4=', data%EquipmentControl%DrillingConsole%GEN4

  459. #endif

  460.     end subroutine

  461. 

  462. !    subroutine SetInstallSafetyValve(v)

  463. !    !DEC$ ATTRIBUTES DLLEXPORT :: SetInstallSafetyValve

  464. !    !DEC$ ATTRIBUTES ALIAS: 'SetInstallSafetyValve' :: SetInstallSafetyValve

  465. !	    implicit none

  466. !	    logical, intent(in) :: v

  467. !	    InstallSafetyValve = v

  468. !#ifdef deb

  469. !	    print*, 'InstallSafetyValve=', InstallSafetyValve

  470. !#endif

  471. !    end subroutine

  472. !

  473. !    subroutine SetOpenSafetyValve(v)

  474. !    !DEC$ ATTRIBUTES DLLEXPORT :: SetOpenSafetyValve

  475. !    !DEC$ ATTRIBUTES ALIAS: 'SetOpenSafetyValve' :: SetOpenSafetyValve

  476. !	    implicit none

  477. !	    logical, intent(in) :: v

  478. !	    OpenSafetyValve = v

  479. !#ifdef deb

  480. !	    print*, 'OpenSafetyValve=', OpenSafetyValve

  481. !#endif

  482. !    end subroutine

  483. !

  484. !    subroutine SetRemoveSafetyValve(v)

  485. !    !DEC$ ATTRIBUTES DLLEXPORT :: SetRemoveSafetyValve

  486. !    !DEC$ ATTRIBUTES ALIAS: 'SetRemoveSafetyValve' :: SetRemoveSafetyValve

  487. !	    implicit none

  488. !	    logical, intent(in) :: v

  489. !	    RemoveSafetyValve = v

  490. !#ifdef deb

  491. !	    print*, 'RemoveSafetyValve=', RemoveSafetyValve

  492. !#endif

  493. !    end subroutine

  494. !

  495. !    subroutine SetCloseSafetyValve(v)

  496. !    !DEC$ ATTRIBUTES DLLEXPORT :: SetCloseSafetyValve

  497. !    !DEC$ ATTRIBUTES ALIAS: 'SetCloseSafetyValve' :: SetCloseSafetyValve

  498. !	    implicit none

  499. !	    logical, intent(in) :: v

  500. !	    CloseSafetyValve = v

  501. !#ifdef deb

  502. !	    print*, 'CloseSafetyValve=', CloseSafetyValve

  503. !#endif

  504. !    end subroutine

  505. !

  506. !    subroutine SetMakeJoint(v)

  507. !    !DEC$ ATTRIBUTES DLLEXPORT :: SetMakeJoint

  508. !    !DEC$ ATTRIBUTES ALIAS: 'SetMakeJoint' :: SetMakeJoint

  509. !	    implicit none

  510. !	    logical, intent(in) :: v

  511. !	    MakeJoint = v

  512. !#ifdef deb

  513. !	    print*, 'MakeJoint=', MakeJoint

  514. !#endif

  515. !    end subroutine

  516. !

  517. !    subroutine SetBreakJoint(v)

  518. !    !DEC$ ATTRIBUTES DLLEXPORT :: SetBreakJoint

  519. !    !DEC$ ATTRIBUTES ALIAS: 'SetBreakJoint' :: SetBreakJoint

  520. !	    implicit none

  521. !	    logical, intent(in) :: v

  522. !	    BreakJoint = v

  523. !#ifdef deb

  524. !	    print*, 'BreakJoint=', BreakJoint

  525. !#endif

  526. !    end subroutine

  527.     

  528.     subroutine SetOpenKellyCock(v)

  529.     !DEC$ ATTRIBUTES DLLEXPORT :: SetOpenKellyCock

  530.     !DEC$ ATTRIBUTES ALIAS: 'SetOpenKellyCock' :: SetOpenKellyCock

  531.         use CManifolds, OpenKellyCockSub => OpenKellyCock

  532. 	    implicit none

  533. 	    logical, intent(in) :: v

  534.         if (data%EquipmentControl%DrillingConsole%OpenKellyCock == v) return

  535. 	    data%EquipmentControl%DrillingConsole%OpenKellyCock = v

  536.         ! if (v) call OnOpenKellyCockPress%RunAll()

  537.         if(v .and.  data%EquipmentControl%DrillingConsole%Permission_OpenKellyCock) call OpenKellyCockSub()

  538. #ifdef deb

  539. 	    print*, 'OpenKellyCock=', data%EquipmentControl%DrillingConsole%OpenKellyCock

  540. #endif

  541.     end subroutine

  542. 

  543.     subroutine SetCloseKellyCock(v)

  544.     !DEC$ ATTRIBUTES DLLEXPORT :: SetCloseKellyCock

  545.     !DEC$ ATTRIBUTES ALIAS: 'SetCloseKellyCock' :: SetCloseKellyCock

  546.         use CManifolds, CloseKellyCockSub => CloseKellyCock

  547. 	    implicit none

  548. 	    logical, intent(in) :: v

  549.         if (data%EquipmentControl%DrillingConsole%CloseKellyCock == v) return

  550. 	    data%EquipmentControl%DrillingConsole%CloseKellyCock = v

  551.         ! if (v) call OnCloseKellyCockPress%RunAll()

  552.         if(v .and. data%EquipmentControl%DrillingConsole%Permission_CloseKellyCock) call CloseKellyCockSub()

  553. #ifdef deb

  554. 	    print*, 'CloseKellyCock=', data%EquipmentControl%DrillingConsole%CloseKellyCock

  555. #endif

  556.     end subroutine

  557. 

  558.     subroutine SetOpenSafetyValve(v)

  559.     !DEC$ ATTRIBUTES DLLEXPORT :: SetOpenSafetyValve

  560.     !DEC$ ATTRIBUTES ALIAS: 'SetOpenSafetyValve' :: SetOpenSafetyValve

  561.         !use CManifolds, OpenSafetyValveSub => OpenSafetyValve

  562. 	    implicit none

  563. 	    logical, intent(in) :: v

  564.         if (data%EquipmentControl%DrillingConsole%OpenSafetyValve == v) return

  565. 	    data%EquipmentControl%DrillingConsole%OpenSafetyValve = v

  566.         ! if (v) call OnOpenSafetyValvePress%RunAll()

  567.         !if(v .and. Permission_OpenSafetyValve) call OpenSafetyValveSub()

  568. #ifdef deb

  569. 	    print*, 'OpenSafetyValve=', data%EquipmentControl%DrillingConsole%OpenSafetyValve

  570. #endif

  571.     end subroutine

  572. 

  573.     subroutine SetCloseSafetyValve(v)

  574.     !DEC$ ATTRIBUTES DLLEXPORT :: SetCloseSafetyValve

  575.     !DEC$ ATTRIBUTES ALIAS: 'SetCloseSafetyValve' :: SetCloseSafetyValve

  576.         !use CManifolds, CloseSafetyValveSub => CloseSafetyValve

  577. 	    implicit none

  578. 	    logical, intent(in) :: v

  579.         if (data%EquipmentControl%DrillingConsole%CloseSafetyValve == v) return

  580. 	    data%EquipmentControl%DrillingConsole%CloseSafetyValve = v

  581.         ! if (v) call OnCloseSafetyValvePress%RunAll()

  582.         !if(v .and. Permission_CloseSafetyValve) call CloseSafetyValveSub()

  583. #ifdef deb

  584. 	    print*, 'CloseSafetyValve=', data%EquipmentControl%DrillingConsole%CloseSafetyValve

  585. #endif

  586.     end subroutine

  587. 

  588.     subroutine SetIRSafetyValve(v)

  589.     !DEC$ ATTRIBUTES DLLEXPORT :: SetIRSafetyValve

  590.     !DEC$ ATTRIBUTES ALIAS: 'SetIRSafetyValve' :: SetIRSafetyValve

  591.         use CManifolds

  592. 	    implicit none

  593. 	    logical, intent(in) :: v

  594.         logical :: prev

  595.         if (data%EquipmentControl%DrillingConsole%IRSafetyValve == v) return

  596.         prev = data%EquipmentControl%DrillingConsole%IRSafetyValve

  597. 	    data%EquipmentControl%DrillingConsole%IRSafetyValve = v

  598.         ! if (v) call OnIRSafetyValvePress%RunAll()

  599.         !if(prev /= IRSafetyValve .and. v .and. Permission_IRSafetyValve) call ToggleSafetyValve()

  600.         !if(prev /= IRSafetyValve .and. v) call ToggleSafetyValve()

  601. #ifdef deb

  602. 	    print*, 'IRSafetyValve=', data%EquipmentControl%DrillingConsole%IRSafetyValve

  603. #endif

  604.     end subroutine

  605. 

  606.     subroutine SetIRIBop(v)

  607.     !DEC$ ATTRIBUTES DLLEXPORT :: SetIRIBop

  608.     !DEC$ ATTRIBUTES ALIAS: 'SetIRIBop' :: SetIRIBop

  609.         use CManifolds

  610. 	    implicit none

  611. 	    logical, intent(in) :: v

  612.         logical :: prev

  613.         if (data%EquipmentControl%DrillingConsole%IRIBop == v) return

  614.         prev = data%EquipmentControl%DrillingConsole%IRIBop

  615. 	    data%EquipmentControl%DrillingConsole%IRIBop = v

  616.         ! if (v) call OnIRIBopPress%RunAll()

  617.         !if(prev /= IRIBop .and. v .and. Permission_IRIBop) call ToggleIBop()

  618.         !if(prev /= IRIBop .and. v) call ToggleIBop()

  619. #ifdef deb

  620. 	    print*, 'IRIBop=', data%EquipmentControl%DrillingConsole%IRIBop

  621. #endif

  622.     end subroutine

  623.     

  624.     

  625. 

  626.     subroutine SetLatchPipe(v)

  627.     !DEC$ ATTRIBUTES DLLEXPORT :: SetLatchPipe

  628.     !DEC$ ATTRIBUTES ALIAS: 'SetLatchPipe' :: SetLatchPipe

  629. 	    implicit none

  630. 	    logical, intent(in) :: v

  631.         if (data%EquipmentControl%DrillingConsole%LatchPipe .eqv. v) return

  632. 	    data%EquipmentControl%DrillingConsole%LatchPipe = v

  633.         ! if (v) call OnLatchPipePress%RunAll()

  634. #ifdef deb

  635. 	    print*, 'LatchPipe=', data%EquipmentControl%DrillingConsole%LatchPipe

  636. #endif

  637.     end subroutine

  638. 

  639.     subroutine SetUnlatchPipe(v)

  640.     !DEC$ ATTRIBUTES DLLEXPORT :: SetUnlatchPipe

  641.     !DEC$ ATTRIBUTES ALIAS: 'SetUnlatchPipe' :: SetUnlatchPipe

  642. 	    implicit none

  643. 	    logical, intent(in) :: v

  644.         if (data%EquipmentControl%DrillingConsole%UnlatchPipe .eqv. v) return

  645. 	    data%EquipmentControl%DrillingConsole%UnlatchPipe = v

  646.         ! if (v) call OnUnlatchPipePress%RunAll()

  647. #ifdef deb

  648. 	    print*, 'UnlatchPipe=', data%EquipmentControl%DrillingConsole%UnlatchPipe

  649. #endif

  650.     end subroutine

  651. 

  652.     subroutine SetSwing(v)

  653.     !DEC$ ATTRIBUTES DLLEXPORT :: SetSwing

  654.     !DEC$ ATTRIBUTES ALIAS: 'SetSwing' :: SetSwing

  655. 	    implicit none

  656. 	    logical, intent(in) :: v

  657.         if (data%EquipmentControl%DrillingConsole%Swing .eqv. v) return

  658. 	    data%EquipmentControl%DrillingConsole%Swing = v

  659.         ! if (v) call OnSwingPress%RunAll()

  660. #ifdef deb

  661. 	    print*, 'Swing=', data%EquipmentControl%DrillingConsole%Swing

  662. #endif

  663.     end subroutine

  664. 

  665.     subroutine SetFillMouseHole(v)

  666.     !DEC$ ATTRIBUTES DLLEXPORT :: SetFillMouseHole

  667.     !DEC$ ATTRIBUTES ALIAS: 'SetFillMouseHole' :: SetFillMouseHole

  668. 	    implicit none

  669. 	    logical, intent(in) :: v

  670.         if (data%EquipmentControl%DrillingConsole%FillMouseHole .eqv. v) return

  671. 	    data%EquipmentControl%DrillingConsole%FillMouseHole = v

  672.         ! if (v) call OnFillMouseHolePress%RunAll()

  673. #ifdef deb

  674. 	    print*, 'FillMouseHole=', data%EquipmentControl%DrillingConsole%FillMouseHole

  675. #endif

  676.     end subroutine

  677.     

  678.     subroutine SetSlips(v)

  679.     !DEC$ ATTRIBUTES DLLEXPORT :: SetSlips

  680.     !DEC$ ATTRIBUTES ALIAS: 'SetSlips' :: SetSlips

  681. 	    implicit none

  682. 	    logical, intent(in) :: v

  683.         if (data%EquipmentControl%DrillingConsole%Slips .eqv. v) return

  684. 	    data%EquipmentControl%DrillingConsole%Slips = v

  685. #ifdef deb

  686. 	    print*, 'Slips=', data%EquipmentControl%DrillingConsole%Slips

  687. #endif

  688.         ! if (v) call OnSlipsPress%RunAll()

  689.     end subroutine

  690. 

  691.     

  692.     subroutine SetBrakeLeverCoefficient(v)

  693.     !DEC$ ATTRIBUTES DLLEXPORT :: SetBrakeLeverCoefficient

  694.     !DEC$ ATTRIBUTES ALIAS: 'SetBrakeLeverCoefficient' :: SetBrakeLeverCoefficient

  695. 	    implicit none

  696. 	    real, intent(in) :: v

  697. 	    data%EquipmentControl%DrillingConsole%BrakeLeverCoefficient = v

  698. #ifdef deb

  699. 	    print*, 'BrakeLeverCoefficient=', data%EquipmentControl%DrillingConsole%BrakeLeverCoefficient

  700. #endif

  701.     end subroutine

  702.     

  703.     subroutine SetHideDrillingBrake(v)

  704.     !DEC$ ATTRIBUTES DLLEXPORT :: SetHideDrillingBrake

  705.     !DEC$ ATTRIBUTES ALIAS: 'SetHideDrillingBrake' :: SetHideDrillingBrake

  706. 	    implicit none

  707. 	    logical, intent(in) :: v

  708. 	    data%EquipmentControl%DrillingConsole%HideDrillingBrake = v

  709. #ifdef deb

  710.     	print*, 'HideDrillingBrake=', data%EquipmentControl%DrillingConsole%HideDrillingBrake

  711. #endif

  712.     end subroutine

  713. 

  714.     

  715.     

  716.     

  717.     

  718.         

  719.         

  720.         

  721.     subroutine SetParkingBrake(v)

  722.     !DEC$ ATTRIBUTES DLLEXPORT :: SetParkingBrake

  723.     !DEC$ ATTRIBUTES ALIAS: 'SetParkingBrake' :: SetParkingBrake

  724. 	    implicit none

  725. 	    logical, intent(in) :: v

  726. 	    data%EquipmentControl%DrillingConsole%ParkingBrakeBtn = v

  727. #ifdef deb

  728. 	    print*, 'ParkingBrakeBtn=', data%EquipmentControl%DrillingConsole%ParkingBrakeBtn

  729. #endif

  730.     end subroutine

  731.         

  732.         

  733.         

  734.         

  735.         

  736.         

  737.         

  738.         

  739.         

  740.         

  741.         

  742.         

  743.     ! Output routines

  744.     

  745.     logical function GetParkingBrakeLed()

  746.     !DEC$ ATTRIBUTES DLLEXPORT :: GetParkingBrakeLed

  747.     !DEC$ ATTRIBUTES ALIAS: 'GetParkingBrakeLed' :: GetParkingBrakeLed

  748. 	    implicit none

  749. 	    GetParkingBrakeLed = data%EquipmentControl%DrillingConsole%ParkingBrakeLed

  750. 	    !GetParkingBrakeLed = .true.

  751.     end function

  752.     

  753.     

  754.     integer function GetGEN1LED()

  755.     !DEC$ ATTRIBUTES DLLEXPORT :: GetGEN1LED

  756.     !DEC$ ATTRIBUTES ALIAS: 'GetGEN1LED' :: GetGEN1LED

  757. 	    implicit none

  758. 	    GetGEN1LED = 1

  759. 	    !GetGEN1LED = GEN1LED

  760.     end function

  761. 

  762.     integer function GetGEN2LED()

  763.     !DEC$ ATTRIBUTES DLLEXPORT :: GetGEN2LED

  764.     !DEC$ ATTRIBUTES ALIAS: 'GetGEN2LED' :: GetGEN2LED

  765. 	    implicit none

  766. 	    GetGEN2LED = 1

  767. 	    !GetGEN2LED = GEN2LED

  768.     end function

  769. 

  770.     integer function GetGEN3LED()

  771.     !DEC$ ATTRIBUTES DLLEXPORT :: GetGEN3LED

  772.     !DEC$ ATTRIBUTES ALIAS: 'GetGEN3LED' :: GetGEN3LED

  773. 	    implicit none

  774. 	    GetGEN3LED = 1

  775. 	    !GetGEN3LED = GEN3LED

  776.     end function

  777. 

  778.     integer function GetGEN4LED()

  779.     !DEC$ ATTRIBUTES DLLEXPORT :: GetGEN4LED

  780.     !DEC$ ATTRIBUTES ALIAS: 'GetGEN4LED' :: GetGEN4LED

  781. 	    implicit none

  782. 	    GetGEN4LED = 1

  783. 	    !GetGEN4LED = GEN4LED

  784.     end function

  785. 

  786.     integer function GetSCR1LED()

  787.     !DEC$ ATTRIBUTES DLLEXPORT :: GetSCR1LED

  788.     !DEC$ ATTRIBUTES ALIAS: 'GetSCR1LED' :: GetSCR1LED

  789. 	    implicit none

  790. 	    GetSCR1LED = data%EquipmentControl%DrillingConsole%SCR1LED

  791.     end function

  792. 

  793.     integer function GetSCR2LED()

  794.     !DEC$ ATTRIBUTES DLLEXPORT :: GetSCR2LED

  795.     !DEC$ ATTRIBUTES ALIAS: 'GetSCR2LED' :: GetSCR2LED

  796. 	    implicit none

  797. 	    GetSCR2LED = data%EquipmentControl%DrillingConsole%SCR2LED

  798.     end function

  799. 

  800.     integer function GetSCR3LED()

  801.     !DEC$ ATTRIBUTES DLLEXPORT :: GetSCR3LED

  802.     !DEC$ ATTRIBUTES ALIAS: 'GetSCR3LED' :: GetSCR3LED

  803. 	    implicit none

  804. 	    GetSCR3LED = data%EquipmentControl%DrillingConsole%SCR3LED

  805.     end function

  806. 

  807.     integer function GetSCR4LED()

  808.     !DEC$ ATTRIBUTES DLLEXPORT :: GetSCR4LED

  809.     !DEC$ ATTRIBUTES ALIAS: 'GetSCR4LED' :: GetSCR4LED

  810. 	    implicit none

  811. 	    GetSCR4LED = data%EquipmentControl%DrillingConsole%SCR4LED

  812.     end function

  813. 

  814.     integer function GetMP1BLWR()

  815.     !DEC$ ATTRIBUTES DLLEXPORT :: GetMP1BLWR

  816.     !DEC$ ATTRIBUTES ALIAS: 'GetMP1BLWR' :: GetMP1BLWR

  817. 	    implicit none

  818. 	    GetMP1BLWR = data%EquipmentControl%DrillingConsole%MP1BLWR

  819.     end function

  820. 

  821.     integer function GetMP2BLWR()

  822.     !DEC$ ATTRIBUTES DLLEXPORT :: GetMP2BLWR

  823.     !DEC$ ATTRIBUTES ALIAS: 'GetMP2BLWR' :: GetMP2BLWR

  824. 	    implicit none

  825. 	    GetMP2BLWR = data%EquipmentControl%DrillingConsole%MP2BLWR

  826.     end function

  827. 

  828.     integer function GetDWBLWR()

  829.     !DEC$ ATTRIBUTES DLLEXPORT :: GetDWBLWR

  830.     !DEC$ ATTRIBUTES ALIAS: 'GetDWBLWR' :: GetDWBLWR

  831. 	    implicit none

  832. 	    GetDWBLWR = data%EquipmentControl%DrillingConsole%DWBLWR

  833.     end function

  834. 

  835.     integer function GetRTBLWR()

  836.     !DEC$ ATTRIBUTES DLLEXPORT :: GetRTBLWR

  837.     !DEC$ ATTRIBUTES ALIAS: 'GetRTBLWR' :: GetRTBLWR

  838. 	    implicit none

  839. 	    GetRTBLWR = data%EquipmentControl%DrillingConsole%RTBLWR

  840.     end function

  841. 

  842.     integer function GetPWRLIM()

  843.     !DEC$ ATTRIBUTES DLLEXPORT :: GetPWRLIM

  844.     !DEC$ ATTRIBUTES ALIAS: 'GetPWRLIM' :: GetPWRLIM

  845. 	    implicit none

  846. 	    GetPWRLIM = data%EquipmentControl%DrillingConsole%PWRLIM

  847.     end function

  848. 

  849.     real(8) function GetPWRLIMMTR()

  850.     !DEC$ ATTRIBUTES DLLEXPORT :: GetPWRLIMMTR

  851.     !DEC$ ATTRIBUTES ALIAS: 'GetPWRLIMMTR' :: GetPWRLIMMTR

  852. 	    implicit none

  853. 	    GetPWRLIMMTR = data%EquipmentControl%DrillingConsole%PWRLIMMTR

  854.     end function

  855. 

  856.     real(8) function GetRTTorqueLimitGauge()

  857.     !DEC$ ATTRIBUTES DLLEXPORT :: GetRTTorqueLimitGauge

  858.     !DEC$ ATTRIBUTES ALIAS: 'GetRTTorqueLimitGauge' :: GetRTTorqueLimitGauge

  859. 	    implicit none

  860. 	    GetRTTorqueLimitGauge = data%EquipmentControl%DrillingConsole%RTTorqueLimitGauge

  861.     end function

  862. 

  863.     integer function GetAutoDWLED()

  864.     !DEC$ ATTRIBUTES DLLEXPORT :: GetAutoDWLED

  865.     !DEC$ ATTRIBUTES ALIAS: 'GetAutoDWLED' :: GetAutoDWLED

  866. 	    implicit none

  867. 	    GetAutoDWLED = data%EquipmentControl%DrillingConsole%AutoDWLED

  868.     end function

  869. 

  870.     integer function GetGEN1BTNLED()

  871.     !DEC$ ATTRIBUTES DLLEXPORT :: GetGEN1BTNLED

  872.     !DEC$ ATTRIBUTES ALIAS: 'GetGEN1BTNLED' :: GetGEN1BTNLED

  873. 	    implicit none

  874. 	    GetGEN1BTNLED = data%EquipmentControl%DrillingConsole%GEN1BTNLED

  875.     end function

  876. 

  877.     integer function GetGEN2BTNLED()

  878.     !DEC$ ATTRIBUTES DLLEXPORT :: GetGEN2BTNLED

  879.     !DEC$ ATTRIBUTES ALIAS: 'GetGEN2BTNLED' :: GetGEN2BTNLED

  880. 	    implicit none

  881. 	    GetGEN2BTNLED = data%EquipmentControl%DrillingConsole%GEN2BTNLED

  882.     end function

  883. 

  884.     integer function GetGEN3BTNLED()

  885.     !DEC$ ATTRIBUTES DLLEXPORT :: GetGEN3BTNLED

  886.     !DEC$ ATTRIBUTES ALIAS: 'GetGEN3BTNLED' :: GetGEN3BTNLED

  887. 	    implicit none

  888. 	    GetGEN3BTNLED = data%EquipmentControl%DrillingConsole%GEN3BTNLED

  889.     end function

  890. 

  891.     integer function GetGEN4BTNLED()

  892.     !DEC$ ATTRIBUTES DLLEXPORT :: GetGEN4BTNLED

  893.     !DEC$ ATTRIBUTES ALIAS: 'GetGEN4BTNLED' :: GetGEN4BTNLED

  894. 	    implicit none

  895. 	    GetGEN4BTNLED = data%EquipmentControl%DrillingConsole%GEN4BTNLED

  896.     end function

  897. 

  898.     integer function GetOpenKellyCockLed()

  899.     !DEC$ ATTRIBUTES DLLEXPORT :: GetOpenKellyCockLed

  900.     !DEC$ ATTRIBUTES ALIAS: 'GetOpenKellyCockLed' :: GetOpenKellyCockLed

  901. 	    implicit none

  902. 	    GetOpenKellyCockLed = data%EquipmentControl%DrillingConsole%OpenKellyCockLed

  903.     end function

  904. 

  905.     integer function GetCloseKellyCockLed()

  906.     !DEC$ ATTRIBUTES DLLEXPORT :: GetCloseKellyCockLed

  907.     !DEC$ ATTRIBUTES ALIAS: 'GetCloseKellyCockLed' :: GetCloseKellyCockLed

  908. 	    implicit none

  909. 	    GetCloseKellyCockLed = data%EquipmentControl%DrillingConsole%CloseKellyCockLed

  910.     end function

  911. 

  912.     integer function GetOpenSafetyValveLed()

  913.     !DEC$ ATTRIBUTES DLLEXPORT :: GetOpenSafetyValveLed

  914.     !DEC$ ATTRIBUTES ALIAS: 'GetOpenSafetyValveLed' :: GetOpenSafetyValveLed

  915. 	    implicit none

  916. 	    GetOpenSafetyValveLed = data%EquipmentControl%DrillingConsole%OpenSafetyValveLed

  917.     end function

  918. 

  919.     integer function GetCloseSafetyValveLed()

  920.     !DEC$ ATTRIBUTES DLLEXPORT :: GetCloseSafetyValveLed

  921.     !DEC$ ATTRIBUTES ALIAS: 'GetCloseSafetyValveLed' :: GetCloseSafetyValveLed

  922. 	    implicit none

  923. 	    GetCloseSafetyValveLed = data%EquipmentControl%DrillingConsole%CloseSafetyValveLed

  924.     end function

  925. 

  926.     integer function GetIRSafetyValveLed()

  927.     !DEC$ ATTRIBUTES DLLEXPORT :: GetIRSafetyValveLed

  928.     !DEC$ ATTRIBUTES ALIAS: 'GetIRSafetyValveLed' :: GetIRSafetyValveLed

  929. 	    implicit none

  930. 	    GetIRSafetyValveLed = data%EquipmentControl%DrillingConsole%IRSafetyValveLed

  931.     end function

  932. 

  933.     integer function GetIRIBopLed()

  934.     !DEC$ ATTRIBUTES DLLEXPORT :: GetIRIBopLed

  935.     !DEC$ ATTRIBUTES ALIAS: 'GetIRIBopLed' :: GetIRIBopLed

  936. 	    implicit none

  937. 	    GetIRIBopLed = data%EquipmentControl%DrillingConsole%IRIBopLed

  938.     end function

  939.     

  940. 

  941.     integer function GetLatchPipeLED()

  942.     !DEC$ ATTRIBUTES DLLEXPORT :: GetLatchPipeLED

  943.     !DEC$ ATTRIBUTES ALIAS: 'GetLatchPipeLED' :: GetLatchPipeLED

  944. 	    implicit none

  945. 	    GetLatchPipeLED = data%EquipmentControl%DrillingConsole%LatchPipeLED

  946.     end function

  947. 

  948.     integer function GetUnlatchPipeLED()

  949.     !DEC$ ATTRIBUTES DLLEXPORT :: GetUnlatchPipeLED

  950.     !DEC$ ATTRIBUTES ALIAS: 'GetUnlatchPipeLED' :: GetUnlatchPipeLED

  951. 	    implicit none

  952. 	    GetUnlatchPipeLED = data%EquipmentControl%DrillingConsole%UnlatchPipeLED

  953.     end function

  954. 

  955.     integer function GetSwingLed()

  956.     !DEC$ ATTRIBUTES DLLEXPORT :: GetSwingLed

  957.     !DEC$ ATTRIBUTES ALIAS: 'GetSwingLed' :: GetSwingLed

  958. 	    implicit none

  959. 	    GetSwingLed = data%EquipmentControl%DrillingConsole%SwingLed

  960.     end function

  961. 

  962.     integer function GetFillMouseHoleLed()

  963.     !DEC$ ATTRIBUTES DLLEXPORT :: GetFillMouseHoleLed

  964.     !DEC$ ATTRIBUTES ALIAS: 'GetFillMouseHoleLed' :: GetFillMouseHoleLed

  965. 	    implicit none

  966. 	    GetFillMouseHoleLed = data%EquipmentControl%DrillingConsole%FillMouseHoleLed

  967.     end function

  968.     

  969. end module CDrillingConsole