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.
56 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: c9211482b7
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'c9211482b7'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CDrillingConsole.i90

291 lines
16 KiB
Raw Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Equipments/ControlPanels/CDrillingConsole.f90"

  2. module CDrillingConsole

  3.     use CDrillingConsoleVariables

  4.     use SimulationVariables

  5.     use SimulationVariables 

  6. ! use CSimulationVariables

  7.     use CLog4

  8.     use CLog3

  9.     implicit none    

  10.     public    

  11.     contains  

  12. 

  13. 

  14.     subroutine DrillingConsoleFromJson(parent)

  15.         type(json_value),pointer :: parent

  16.         type(json_core) :: json

  17.         type(json_value),pointer :: p,pval

  18. 

  19. ! 1. get related root

  20.         call json%get(parent,'Drilling',p)

  21.         

  22. ! 2. get member of data type from node

  23. 		call json%get(p,'AssignmentSwitch',pval)

  24. 		call json%get(pval,data%Equipments%DrillingConsole%AssignmentSwitch)

  25. 		call json%get(p,'EmergencySwitch',pval)

  26. 		call json%get(pval,data%Equipments%DrillingConsole%EmergencySwitch)

  27. 		call json%get(p,'RTTorqueLimitKnob',pval)

  28. 		call json%get(pval,data%Equipments%DrillingConsole%RTTorqueLimitKnob)

  29. 		call json%get(p,'MP1CPSwitchI',pval)

  30. 		call json%get(pval,data%Equipments%DrillingConsole%MP1CPSwitchI)

  31. 		call json%get(p,'MP1CPSwitchT',pval)

  32. 		call json%get(pval,data%Equipments%DrillingConsole%MP1CPSwitchT)

  33. 		call json%get(p,'MP1CPSwitch',pval)

  34. 		call json%get(pval,data%Equipments%DrillingConsole%MP1CPSwitch)

  35. 		call json%get(p,'MP1ThrottleUpdate',pval)

  36. 		call json%get(pval,data%Equipments%DrillingConsole%MP1ThrottleUpdate)

  37. 		call json%get(p,'MP1Throttle',pval)

  38. 		call json%get(pval,data%Equipments%DrillingConsole%MP1Throttle)

  39. 		call json%get(p,'MP2SwitchI',pval)

  40. 		call json%get(pval,data%Equipments%DrillingConsole%MP2SwitchI)

  41. 		call json%get(p,'MP2SwitchT',pval)

  42. 		call json%get(pval,data%Equipments%DrillingConsole%MP2SwitchT)

  43. 		call json%get(p,'MP2Switch',pval)

  44. 		call json%get(pval,data%Equipments%DrillingConsole%MP2Switch)

  45. 		call json%get(p,'MP2ThrottleUpdate',pval)

  46. 		call json%get(pval,data%Equipments%DrillingConsole%MP2ThrottleUpdate)

  47. 		call json%get(p,'MP2Throttle',pval)

  48. 		call json%get(pval,data%Equipments%DrillingConsole%MP2Throttle)

  49. 		call json%get(p,'DWSwitch',pval)

  50. 		call json%get(pval,data%Equipments%DrillingConsole%DWSwitch)

  51. 		call json%get(p,'DWThrottle',pval)

  52. 		call json%get(pval,data%Equipments%DrillingConsole%DWThrottle)

  53. 		call json%get(p,'RTSwitch',pval)

  54. 		call json%get(pval,data%Equipments%DrillingConsole%RTSwitch)

  55. 		call json%get(p,'RTThrottle',pval)

  56. 		call json%get(pval,data%Equipments%DrillingConsole%RTThrottle)

  57. 		call json%get(p,'DWBreak',pval)

  58. 		call json%get(pval,data%Equipments%DrillingConsole%DWBreak)

  59. 		call json%get(p,'PreviousDWBreak',pval)

  60. 		call json%get(pval,data%Equipments%DrillingConsole%PreviousDWBreak)

  61. 		call json%get(p,'ForceBreak',pval)

  62. 		call json%get(pval,data%Equipments%DrillingConsole%ForceBreak)

  63. 		call json%get(p,'DWAcceleretor',pval)

  64. 		call json%get(pval,data%Equipments%DrillingConsole%DWAcceleretor)

  65. 		call json%get(p,'DWTransmisionLever',pval)

  66. 		call json%get(pval,data%Equipments%DrillingConsole%DWTransmisionLever)

  67. 		call json%get(p,'DWPowerLever',pval)

  68. 		call json%get(pval,data%Equipments%DrillingConsole%DWPowerLever)

  69. 		call json%get(p,'TongLever',pval)

  70. 		call json%get(pval,data%Equipments%DrillingConsole%TongLever)

  71. 		call json%get(p,'RTTransmissionLever',pval)

  72. 		call json%get(pval,data%Equipments%DrillingConsole%RTTransmissionLever)

  73. 		call json%get(p,'DWClutchLever',pval)

  74. 		call json%get(pval,data%Equipments%DrillingConsole%DWClutchLever)

  75. 		call json%get(p,'EddyBreakLever',pval)

  76. 		call json%get(pval,data%Equipments%DrillingConsole%EddyBreakLever)

  77. 		call json%get(p,'AutoDW',pval)

  78. 		call json%get(pval,data%Equipments%DrillingConsole%AutoDW)

  79. 		call json%get(p,'GEN1',pval)

  80. 		call json%get(pval,data%Equipments%DrillingConsole%GEN1)

  81. 		call json%get(p,'GEN2',pval)

  82. 		call json%get(pval,data%Equipments%DrillingConsole%GEN2)

  83. 		call json%get(p,'GEN3',pval)

  84. 		call json%get(pval,data%Equipments%DrillingConsole%GEN3)

  85. 		call json%get(p,'GEN4',pval)

  86. 		call json%get(pval,data%Equipments%DrillingConsole%GEN4)

  87. 		call json%get(p,'Permission_OpenKellyCock',pval)

  88. 		call json%get(pval,data%Equipments%DrillingConsole%Permission_OpenKellyCock)

  89. 		call json%get(p,'OpenKellyCock',pval)

  90. 		call json%get(pval,data%Equipments%DrillingConsole%OpenKellyCock)

  91. 		call json%get(p,'Permission_CloseKellyCock',pval)

  92. 		call json%get(pval,data%Equipments%DrillingConsole%Permission_CloseKellyCock)

  93. 		call json%get(p,'CloseKellyCock',pval)

  94. 		call json%get(pval,data%Equipments%DrillingConsole%CloseKellyCock)

  95. 		call json%get(p,'Permission_OpenSafetyValve',pval)

  96. 		call json%get(pval,data%Equipments%DrillingConsole%Permission_OpenSafetyValve)

  97. 		call json%get(p,'OpenSafetyValve',pval)

  98. 		call json%get(pval,data%Equipments%DrillingConsole%OpenSafetyValve)

  99. 		call json%get(p,'Permission_CloseSafetyValve',pval)

  100. 		call json%get(pval,data%Equipments%DrillingConsole%Permission_CloseSafetyValve)

  101. 		call json%get(p,'CloseSafetyValve',pval)

  102. 		call json%get(pval,data%Equipments%DrillingConsole%CloseSafetyValve)

  103. 		call json%get(p,'Permission_IRSafetyValve',pval)

  104. 		call json%get(pval,data%Equipments%DrillingConsole%Permission_IRSafetyValve)

  105. 		call json%get(p,'IRSafetyValve',pval)

  106. 		call json%get(pval,data%Equipments%DrillingConsole%IRSafetyValve)

  107. 		call json%get(p,'Permission_IRIBop',pval)

  108. 		call json%get(pval,data%Equipments%DrillingConsole%Permission_IRIBop)

  109. 		call json%get(p,'IRIBop',pval)

  110. 		call json%get(pval,data%Equipments%DrillingConsole%IRIBop)

  111. 		call json%get(p,'LatchPipe',pval)

  112. 		call json%get(pval,data%Equipments%DrillingConsole%LatchPipe)

  113. 		call json%get(p,'UnlatchPipe',pval)

  114. 		call json%get(pval,data%Equipments%DrillingConsole%UnlatchPipe)

  115. 		call json%get(p,'Swing',pval)

  116. 		call json%get(pval,data%Equipments%DrillingConsole%Swing)

  117. 		call json%get(p,'FillMouseHole',pval)

  118. 		call json%get(pval,data%Equipments%DrillingConsole%FillMouseHole)

  119. 		call json%get(p,'Slips',pval)

  120. 		call json%get(pval,data%Equipments%DrillingConsole%Slips)

  121. 		call json%get(p,'BrakeLeverCoefficient',pval)

  122. 		call json%get(pval,data%Equipments%DrillingConsole%BrakeLeverCoefficient)

  123. 		call json%get(p,'HideDrillingBrake',pval)

  124. 		call json%get(pval,data%Equipments%DrillingConsole%HideDrillingBrake)

  125. 		call json%get(p,'ParkingBrakeBtn',pval)

  126. 		call json%get(pval,data%Equipments%DrillingConsole%ParkingBrakeBtn)

  127. 

  128. ! call json%get(p,'ParkingBrakeLed',pval)

  129. ! call json%get(pval,data%Equipments%DrillingConsole%ParkingBrakeLed)

  130. ! call json%get(p,'GEN1LED',pval)

  131. ! call json%get(pval,data%Equipments%DrillingConsole%GEN1LED)

  132. ! call json%get(p,'GEN2LED',pval)

  133. ! call json%get(pval,data%Equipments%DrillingConsole%GEN2LED)

  134. ! call json%get(p,'GEN3LED',pval)

  135. ! call json%get(pval,data%Equipments%DrillingConsole%GEN3LED)

  136. ! call json%get(p,'GEN4LED',pval)

  137. ! call json%get(pval,data%Equipments%DrillingConsole%GEN4LED)

  138. ! call json%get(p,'SCR1LED',pval)

  139. ! call json%get(pval,data%Equipments%DrillingConsole%SCR1LED)

  140. ! call json%get(p,'SCR2LED',pval)

  141. ! call json%get(pval,data%Equipments%DrillingConsole%SCR2LED)

  142. ! call json%get(p,'SCR3LED',pval)

  143. ! call json%get(pval,data%Equipments%DrillingConsole%SCR3LED)

  144. ! call json%get(p,'SCR4LED',pval)

  145. ! call json%get(pval,data%Equipments%DrillingConsole%SCR4LED)

  146. ! call json%get(p,'MP1BLWR',pval)

  147. ! call json%get(pval,data%Equipments%DrillingConsole%MP1BLWR)

  148. ! call json%get(p,'MP2BLWR',pval)

  149. ! call json%get(pval,data%Equipments%DrillingConsole%MP2BLWR)

  150. ! call json%get(p,'DWBLWR',pval)

  151. ! call json%get(pval,data%Equipments%DrillingConsole%DWBLWR)

  152. ! call json%get(p,'RTBLWR',pval)

  153. ! call json%get(pval,data%Equipments%DrillingConsole%RTBLWR)

  154. ! call json%get(p,'PWRLIM',pval)

  155. ! call json%get(pval,data%Equipments%DrillingConsole%PWRLIM)

  156. ! call json%get(p,'PWRLIMMTR',pval)

  157. ! call json%get(pval,data%Equipments%DrillingConsole%PWRLIMMTR)

  158. ! call json%get(p,'RTTorqueLimitGauge',pval)

  159. ! call json%get(pval,data%Equipments%DrillingConsole%RTTorqueLimitGauge)

  160. ! call json%get(p,'AutoDWLED',pval)

  161. ! call json%get(pval,data%Equipments%DrillingConsole%AutoDWLED)

  162. ! call json%get(p,'GEN1BTNLED',pval)

  163. ! call json%get(pval,data%Equipments%DrillingConsole%GEN1BTNLED)

  164. ! call json%get(p,'GEN2BTNLED',pval)

  165. ! call json%get(pval,data%Equipments%DrillingConsole%GEN2BTNLED)

  166. ! call json%get(p,'GEN3BTNLED',pval)

  167. ! call json%get(pval,data%Equipments%DrillingConsole%GEN3BTNLED)

  168. ! call json%get(p,'GEN4BTNLED',pval)

  169. ! call json%get(pval,data%Equipments%DrillingConsole%GEN4BTNLED)

  170. ! call json%get(p,'OpenKellyCockLed',pval)

  171. ! call json%get(pval,data%Equipments%DrillingConsole%OpenKellyCockLed)

  172. ! call json%get(p,'CloseKellyCockLed',pval)

  173. ! call json%get(pval,data%Equipments%DrillingConsole%CloseKellyCockLed)

  174. ! call json%get(p,'OpenSafetyValveLed',pval)

  175. ! call json%get(pval,data%Equipments%DrillingConsole%OpenSafetyValveLed)

  176. ! call json%get(p,'CloseSafetyValveLed',pval)

  177. ! call json%get(pval,data%Equipments%DrillingConsole%CloseSafetyValveLed)

  178. ! call json%get(p,'IRSafetyValveLed',pval)

  179. ! call json%get(pval,data%Equipments%DrillingConsole%IRSafetyValveLed)

  180. ! call json%get(p,'IRIBopLed',pval)

  181. ! call json%get(pval,data%Equipments%DrillingConsole%IRIBopLed)

  182. ! call json%get(p,'LatchPipeLED',pval)

  183. ! call json%get(pval,data%Equipments%DrillingConsole%LatchPipeLED)

  184. ! call json%get(p,'UnlatchPipeLED',pval)

  185. ! call json%get(pval,data%Equipments%DrillingConsole%UnlatchPipeLED)

  186. ! call json%get(p,'SwingLed',pval)

  187. ! call json%get(pval,data%Equipments%DrillingConsole%SwingLed)

  188. ! call json%get(p,'FillMouseHoleLed',pval)

  189. ! call json%get(pval,data%Equipments%DrillingConsole%FillMouseHoleLed)

  190.     end subroutine

  191. 

  192.     subroutine DrillingConsoleToJson(parent)

  193. 

  194.         type(json_value),pointer :: parent

  195.         type(json_core) :: json

  196.         type(json_value),pointer :: p

  197. 

  198. ! 1. create new node

  199.         call json%create_object(p,'Drilling')

  200. ! call json%add(p,"AssignmentSwitch",data%Equipments%DrillingConsole%AssignmentSwitch)

  201. ! call json%add(p,"EmergencySwitch",data%Equipments%DrillingConsole%EmergencySwitch)

  202. ! call json%add(p,"RTTorqueLimitKnob",data%Equipments%DrillingConsole%RTTorqueLimitKnob)

  203. ! call json%add(p,"MP1CPSwitchI",data%Equipments%DrillingConsole%MP1CPSwitchI)

  204. ! call json%add(p,"MP1CPSwitchT",data%Equipments%DrillingConsole%MP1CPSwitchT)

  205. ! call json%add(p,"MP1CPSwitch",data%Equipments%DrillingConsole%MP1CPSwitch)

  206. ! call json%add(p,"MP1ThrottleUpdate",data%Equipments%DrillingConsole%MP1ThrottleUpdate)

  207. ! call json%add(p,"MP1Throttle",data%Equipments%DrillingConsole%MP1Throttle)

  208. ! call json%add(p,"MP2SwitchI",data%Equipments%DrillingConsole%MP2SwitchI)

  209. ! call json%add(p,"MP2SwitchT",data%Equipments%DrillingConsole%MP2SwitchT)

  210. ! call json%add(p,"MP2Switch",data%Equipments%DrillingConsole%MP2Switch)

  211. ! call json%add(p,"MP2ThrottleUpdate",data%Equipments%DrillingConsole%MP2ThrottleUpdate)

  212. ! call json%add(p,"MP2Throttle",data%Equipments%DrillingConsole%MP2Throttle)

  213. ! call json%add(p,"DWSwitch",data%Equipments%DrillingConsole%DWSwitch)

  214. ! call json%add(p,"DWThrottle",data%Equipments%DrillingConsole%DWThrottle)

  215. ! call json%add(p,"RTSwitch",data%Equipments%DrillingConsole%RTSwitch)

  216. ! call json%add(p,"RTThrottle",data%Equipments%DrillingConsole%RTThrottle)

  217. ! call json%add(p,"DWBreak",data%Equipments%DrillingConsole%DWBreak)

  218. ! call json%add(p,"PreviousDWBreak",data%Equipments%DrillingConsole%PreviousDWBreak)

  219. ! call json%add(p,"ForceBreak",data%Equipments%DrillingConsole%ForceBreak)

  220. ! call json%add(p,"DWAcceleretor",data%Equipments%DrillingConsole%DWAcceleretor)

  221. ! call json%add(p,"DWTransmisionLever",data%Equipments%DrillingConsole%DWTransmisionLever)

  222. ! call json%add(p,"DWPowerLever",data%Equipments%DrillingConsole%DWPowerLever)

  223. ! call json%add(p,"TongLever",data%Equipments%DrillingConsole%TongLever)

  224. ! call json%add(p,"RTTransmissionLever",data%Equipments%DrillingConsole%RTTransmissionLever)

  225. ! call json%add(p,"DWClutchLever",data%Equipments%DrillingConsole%DWClutchLever)

  226. ! call json%add(p,"EddyBreakLever",data%Equipments%DrillingConsole%EddyBreakLever)

  227. ! call json%add(p,"AutoDW",data%Equipments%DrillingConsole%AutoDW)

  228. ! call json%add(p,"GEN1",data%Equipments%DrillingConsole%GEN1)

  229. ! call json%add(p,"GEN2",data%Equipments%DrillingConsole%GEN2)

  230. ! call json%add(p,"GEN3",data%Equipments%DrillingConsole%GEN3)

  231. ! call json%add(p,"GEN4",data%Equipments%DrillingConsole%GEN4)

  232. ! call json%add(p,"Permission_OpenKellyCock",data%Equipments%DrillingConsole%Permission_OpenKellyCock)

  233. ! call json%add(p,"OpenKellyCock",data%Equipments%DrillingConsole%OpenKellyCock)

  234. ! call json%add(p,"Permission_CloseKellyCock",data%Equipments%DrillingConsole%Permission_CloseKellyCock)

  235. ! call json%add(p,"CloseKellyCock",data%Equipments%DrillingConsole%CloseKellyCock)

  236. ! call json%add(p,"Permission_OpenSafetyValve",data%Equipments%DrillingConsole%Permission_OpenSafetyValve)

  237. ! call json%add(p,"OpenSafetyValve",data%Equipments%DrillingConsole%OpenSafetyValve)

  238. ! call json%add(p,"Permission_CloseSafetyValve",data%Equipments%DrillingConsole%Permission_CloseSafetyValve)

  239. ! call json%add(p,"CloseSafetyValve",data%Equipments%DrillingConsole%CloseSafetyValve)

  240. ! call json%add(p,"Permission_IRSafetyValve",data%Equipments%DrillingConsole%Permission_IRSafetyValve)

  241. ! call json%add(p,"IRSafetyValve",data%Equipments%DrillingConsole%IRSafetyValve)

  242. ! call json%add(p,"Permission_IRIBop",data%Equipments%DrillingConsole%Permission_IRIBop)

  243. ! call json%add(p,"IRIBop",data%Equipments%DrillingConsole%IRIBop)

  244. ! call json%add(p,"LatchPipe",data%Equipments%DrillingConsole%LatchPipe)

  245. ! call json%add(p,"UnlatchPipe",data%Equipments%DrillingConsole%UnlatchPipe)

  246. ! call json%add(p,"Swing",data%Equipments%DrillingConsole%Swing)

  247. ! call json%add(p,"FillMouseHole",data%Equipments%DrillingConsole%FillMouseHole)

  248. ! call json%add(p,"Slips",data%Equipments%DrillingConsole%Slips)

  249. ! call json%add(p,"BrakeLeverCoefficient",data%Equipments%DrillingConsole%BrakeLeverCoefficient)

  250. ! call json%add(p,"HideDrillingBrake",data%Equipments%DrillingConsole%HideDrillingBrake)

  251. ! call json%add(p,"ParkingBrakeBtn",data%Equipments%DrillingConsole%ParkingBrakeBtn)

  252. 

  253. 

  254. 

  255. 		call json%add(p,"ParkingBrakeLed",data%Equipments%DrillingConsole%ParkingBrakeLed)

  256.         call json%add(p,"GEN1LED",data%Equipments%DrillingConsole%GEN1LED)

  257.         call json%add(p,"GEN2LED",data%Equipments%DrillingConsole%GEN2LED)

  258.         call json%add(p,"GEN3LED",data%Equipments%DrillingConsole%GEN3LED)

  259.         call json%add(p,"GEN4LED",data%Equipments%DrillingConsole%GEN4LED)

  260.         call json%add(p,"SCR1LED",data%Equipments%DrillingConsole%SCR1LED)

  261.         call json%add(p,"SCR2LED",data%Equipments%DrillingConsole%SCR2LED)

  262.         call json%add(p,"SCR3LED",data%Equipments%DrillingConsole%SCR3LED)

  263.         call json%add(p,"SCR4LED",data%Equipments%DrillingConsole%SCR4LED)

  264.         call json%add(p,"MP1BLWR",data%Equipments%DrillingConsole%MP1BLWR)

  265.         call json%add(p,"MP2BLWR",data%Equipments%DrillingConsole%MP2BLWR)

  266.         call json%add(p,"DWBLWR",data%Equipments%DrillingConsole%DWBLWR)

  267.         call json%add(p,"RTBLWR",data%Equipments%DrillingConsole%RTBLWR)

  268.         call json%add(p,"PWRLIM",data%Equipments%DrillingConsole%PWRLIM)

  269.         call json%add(p,"PWRLIMMTR",data%Equipments%DrillingConsole%PWRLIMMTR)

  270.         call json%add(p,"RTTorqueLimitGauge",data%Equipments%DrillingConsole%RTTorqueLimitGauge)

  271.         call json%add(p,"AutoDWLED",data%Equipments%DrillingConsole%AutoDWLED)

  272.         call json%add(p,"GEN1BTNLED",data%Equipments%DrillingConsole%GEN1BTNLED)

  273.         call json%add(p,"GEN2BTNLED",data%Equipments%DrillingConsole%GEN2BTNLED)

  274.         call json%add(p,"GEN3BTNLED",data%Equipments%DrillingConsole%GEN3BTNLED)

  275.         call json%add(p,"GEN4BTNLED",data%Equipments%DrillingConsole%GEN4BTNLED)

  276.         call json%add(p,"OpenKellyCockLed",data%Equipments%DrillingConsole%OpenKellyCockLed)

  277.         call json%add(p,"CloseKellyCockLed",data%Equipments%DrillingConsole%CloseKellyCockLed)

  278.         call json%add(p,"OpenSafetyValveLed",data%Equipments%DrillingConsole%OpenSafetyValveLed)

  279.         call json%add(p,"CloseSafetyValveLed",data%Equipments%DrillingConsole%CloseSafetyValveLed)

  280.         call json%add(p,"IRSafetyValveLed",data%Equipments%DrillingConsole%IRSafetyValveLed)

  281.         call json%add(p,"IRIBopLed",data%Equipments%DrillingConsole%IRIBopLed)

  282.         call json%add(p,"LatchPipeLED",data%Equipments%DrillingConsole%LatchPipeLED)

  283.         call json%add(p,"UnlatchPipeLED",data%Equipments%DrillingConsole%UnlatchPipeLED)

  284.         call json%add(p,"SwingLed",data%Equipments%DrillingConsole%SwingLed)

  285.         call json%add(p,"FillMouseHoleLed",data%Equipments%DrillingConsole%FillMouseHoleLed)

  286. 

  287.         call json%add(parent,p)

  288.     end subroutine

  289.     

  290. end module CDrillingConsole