mahmood19227
/
SimulationCore2
1
0
Fork 0
Código Issues 0 Pull requests 0 Versões 0 Wiki Atividade
Simulation Core
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
49 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tag: 327688db8b
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de 327688db8b
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CDataDisplayConsole.i90

424 linhas
22 KiB
Original Anotar Histórico 

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

  2. module CDataDisplayConsole

  3. ! use CDataDisplayConsole

  4.     use SimulationVariables

  5. 	implicit none    

  6. 	public    

  7.     contains  

  8. 

  9.     subroutine DataDisplayConsoleFromJson(parent)

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

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

  13. 

  14. ! 1. get related root

  15.         call json%get(parent,'DataDisplay',p)

  16.         

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

  18. ! call json%get(p,'TripAlarmLow',pval)

  19. ! call json%get(pval,data%Equipments%DataDisplayConsole%TripAlarmLow)

  20. ! call json%get(p,'TripAlarmHigh',pval)

  21. ! call json%get(pval,data%Equipments%DataDisplayConsole%TripAlarmHigh)

  22. ! call json%get(p,'RetFlowAlarmLow',pval)

  23. ! call json%get(pval,data%Equipments%DataDisplayConsole%RetFlowAlarmLow)

  24. ! call json%get(p,'RetFlowAlarmHigh',pval)

  25. ! call json%get(pval,data%Equipments%DataDisplayConsole%RetFlowAlarmHigh)

  26. ! call json%get(p,'PitAlarmLow',pval)

  27. ! call json%get(pval,data%Equipments%DataDisplayConsole%PitAlarmLow)

  28. ! call json%get(p,'PitAlarmHigh',pval)

  29. ! call json%get(pval,data%Equipments%DataDisplayConsole%PitAlarmHigh)

  30. ! call json%get(p,'PortWeightOnBit',pval)

  31. ! call json%get(pval,data%Equipments%DataDisplayConsole%PortWeightOnBit)

  32. ! call json%get(p,'PortHookLoad',pval)

  33. ! call json%get(pval,data%Equipments%DataDisplayConsole%PortHookLoad)

  34. ! call json%get(p,'PortCasingPressure',pval)

  35. ! call json%get(pval,data%Equipments%DataDisplayConsole%PortCasingPressure)

  36. ! call json%get(p,'PortPumpPressure',pval)

  37. ! call json%get(pval,data%Equipments%DataDisplayConsole%PortPumpPressure)

  38. 		call json%get(p,'TripTankSetAlarmLow',pval)

  39. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankSetAlarmLow)

  40. 		call json%get(p,'TripTankSetAlarmHigh',pval)

  41. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankSetAlarmHigh)

  42. 		call json%get(p,'TripTankSetAlarmSwitch',pval)

  43. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankSetAlarmSwitch)

  44. 		call json%get(p,'TripTankPowerSwitch',pval)

  45. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankPowerSwitch)

  46. 		call json%get(p,'TripTankPumpSwitch',pval)

  47. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankPumpSwitch)

  48. 		call json%get(p,'TripTankHornSwitch',pval)

  49. 		call json%get(pval,data%Equipments%DataDisplayConsole%TripTankHornSwitch)

  50. 		call json%get(p,'AcidGasDetectionHornSwitch',pval)

  51. 		call json%get(pval,data%Equipments%DataDisplayConsole%AcidGasDetectionHornSwitch)

  52. 		call json%get(p,'TotalStrokeCounterResetSwitch',pval)

  53. 		call json%get(pval,data%Equipments%DataDisplayConsole%TotalStrokeCounterResetSwitch)

  54. 		call json%get(p,'DrillingTrippingSelectorSwitch',pval)

  55. 		call json%get(pval,data%Equipments%DataDisplayConsole%DrillingTrippingSelectorSwitch)

  56. 		call json%get(p,'MVTSetAlarmLowKnob',pval)

  57. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTSetAlarmLowKnob)

  58. 		call json%get(p,'MVTSetAlarmHighKnob',pval)

  59. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTSetAlarmHighKnob)

  60. 		call json%get(p,'MVTSetAlarmSwitch',pval)

  61. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTSetAlarmSwitch)

  62. 		call json%get(p,'MudTank1Switch',pval)

  63. 		call json%get(pval,data%Equipments%DataDisplayConsole%MudTank1Switch)

  64. 		call json%get(p,'MudTank2Switch',pval)

  65. 		call json%get(pval,data%Equipments%DataDisplayConsole%MudTank2Switch)

  66. 		call json%get(p,'MudTank3Switch',pval)

  67. 		call json%get(pval,data%Equipments%DataDisplayConsole%MudTank3Switch)

  68. 		call json%get(p,'MudTank4Switch',pval)

  69. 		call json%get(pval,data%Equipments%DataDisplayConsole%MudTank4Switch)

  70. 		call json%get(p,'MVTFineKnob',pval)

  71. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTFineKnob)

  72. 		call json%get(p,'MVTCoarseKnob',pval)

  73. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTCoarseKnob)

  74. 		call json%get(p,'MVTHornSwitch',pval)

  75. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTHornSwitch)

  76. 		call json%get(p,'MVTDeviationTripSelectionSwitch',pval)

  77. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTDeviationTripSelectionSwitch)

  78. 		call json%get(p,'MVTPowerSwitch',pval)

  79. 		call json%get(pval,data%Equipments%DataDisplayConsole%MVTPowerSwitch)

  80. 		call json%get(p,'MFFIResetTotalStrokes',pval)

  81. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIResetTotalStrokes)

  82. 		call json%get(p,'MFFIResetFillCounter',pval)

  83. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIResetFillCounter)

  84. 		call json%get(p,'MFFIPumpSelectorSwitch',pval)

  85. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIPumpSelectorSwitch)

  86. 		call json%get(p,'MFFIFillSPMSelectorSwitch',pval)

  87. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIFillSPMSelectorSwitch)

  88. 		call json%get(p,'MFFISetAlarmLowKnob',pval)

  89. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFISetAlarmLowKnob)

  90. 		call json%get(p,'MFFISetAlarmHighKnob',pval)

  91. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFISetAlarmHighKnob)

  92. 		call json%get(p,'MFFISetAlarmSwitch',pval)

  93. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFISetAlarmSwitch)

  94. 		call json%get(p,'MFFIPowerSwitch',pval)

  95. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIPowerSwitch)

  96. 		call json%get(p,'MFFIHornSwitch',pval)

  97. 		call json%get(pval,data%Equipments%DataDisplayConsole%MFFIHornSwitch)

  98. 		call json%get(p,'ResetWob',pval)

  99. 		call json%get(pval,data%Equipments%DataDisplayConsole%ResetWob)

  100. 		call json%get(p,'Clutch',pval)

  101. ! call json%get(pval,data%Equipments%DataDisplayConsole%Clutch)

  102. ! call json%get(p,'WOBPointer',pval)

  103. ! call json%get(pval,data%Equipments%DataDisplayConsole%WOBPointer)

  104. ! call json%get(p,'HookLoadPointer',pval)

  105. ! call json%get(pval,data%Equipments%DataDisplayConsole%HookLoadPointer)

  106. ! call json%get(p,'TripTankGauge',pval)

  107. ! call json%get(pval,data%Equipments%DataDisplayConsole%TripTankGauge)

  108. ! call json%get(p,'TripTankAlarmLED',pval)

  109. ! call json%get(pval,data%Equipments%DataDisplayConsole%TripTankAlarmLED)

  110. ! call json%get(p,'TripTankPumpLED',pval)

  111. ! call json%get(pval,data%Equipments%DataDisplayConsole%TripTankPumpLED)

  112. ! call json%get(p,'StandPipePressureGauge',pval)

  113. ! call json%get(pval,data%Equipments%DataDisplayConsole%StandPipePressureGauge)

  114. ! call json%get(p,'CasingPressureGauge',pval)

  115. ! call json%get(pval,data%Equipments%DataDisplayConsole%CasingPressureGauge)

  116. ! call json%get(p,'MP1SPMGauge',pval)

  117. ! call json%get(pval,data%Equipments%DataDisplayConsole%MP1SPMGauge)

  118. ! call json%get(p,'MP2SPMGauge',pval)

  119. ! call json%get(pval,data%Equipments%DataDisplayConsole%MP2SPMGauge)

  120. ! call json%get(p,'ReturnLineTempGauge',pval)

  121. ! call json%get(pval,data%Equipments%DataDisplayConsole%ReturnLineTempGauge)

  122. ! call json%get(p,'RotaryTorqueGauge',pval)

  123. ! call json%get(pval,data%Equipments%DataDisplayConsole%RotaryTorqueGauge)

  124. ! call json%get(p,'RotaryRPMGauge',pval)

  125. ! call json%get(pval,data%Equipments%DataDisplayConsole%RotaryRPMGauge)

  126. ! call json%get(p,'AcidGasDetectionLED',pval)

  127. ! call json%get(pval,data%Equipments%DataDisplayConsole%AcidGasDetectionLED)

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

  129. ! call json%get(pval,data%Equipments%DataDisplayConsole%TotalStrokeCounter)

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

  131. ! call json%get(pval,data%Equipments%DataDisplayConsole%PitGainLossGauge)

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

  133. ! call json%get(pval,data%Equipments%DataDisplayConsole%MudTanksVolumeGauge)

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

  135. ! call json%get(pval,data%Equipments%DataDisplayConsole%MVTAlarmLED)

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

  137. ! call json%get(pval,data%Equipments%DataDisplayConsole%ReturnMudFlowGauge)

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

  139. ! call json%get(pval,data%Equipments%DataDisplayConsole%FillStrokeCounter)

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

  141. ! call json%get(pval,data%Equipments%DataDisplayConsole%MFFITotalStrokeCounter)

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

  143. ! call json%get(pval,data%Equipments%DataDisplayConsole%MFFIAlarmLED)

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

  145. ! call json%get(pval,data%Equipments%DataDisplayConsole%MFFIPumpLED)

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

  147. ! call json%get(pval,data%Equipments%DataDisplayConsole%TotalWellDepth)

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

  149. ! call json%get(pval,data%Equipments%DataDisplayConsole%BitDepth)

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

  151. ! call json%get(pval,data%Equipments%DataDisplayConsole%HookLoad)

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

  153. ! call json%get(pval,data%Equipments%DataDisplayConsole%StandPipePressure)

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

  155. ! call json%get(pval,data%Equipments%DataDisplayConsole%CasingPressure)

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

  157. ! call json%get(pval,data%Equipments%DataDisplayConsole%MP1SPM)

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

  159. ! call json%get(pval,data%Equipments%DataDisplayConsole%MP2SPM)

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

  161. ! call json%get(pval,data%Equipments%DataDisplayConsole%RTTorque)

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

  163. ! call json%get(pval,data%Equipments%DataDisplayConsole%RTRPM)

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

  165. ! call json%get(pval,data%Equipments%DataDisplayConsole%WOP)

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

  167. ! call json%get(pval,data%Equipments%DataDisplayConsole%ROP)

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

  169. ! call json%get(pval,data%Equipments%DataDisplayConsole%MudWeightIn)

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

  171. ! call json%get(pval,data%Equipments%DataDisplayConsole%MudWeightOut)

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

  173. ! call json%get(pval,data%Equipments%DataDisplayConsole%Buzzer1)

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

  175. ! call json%get(pval,data%Equipments%DataDisplayConsole%Buzzer2)

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

  177. ! call json%get(pval,data%Equipments%DataDisplayConsole%Buzzer3)

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

  179. ! call json%get(pval,data%Equipments%DataDisplayConsole%Buzzer4)

  180.     end subroutine

  181. 

  182.     subroutine DataDisplayConsoleToJson(parent)

  183. 

  184.         type(json_value),pointer :: parent

  185.         type(json_core) :: json

  186.         type(json_value),pointer :: p

  187. 

  188. ! 1. create new node

  189.         call json%create_object(p,'DataDisplay')

  190. ! call json%add(p,"TripAlarmLow",data%Equipments%DataDisplayConsole%TripAlarmLow)

  191. ! call json%add(p,"TripAlarmHigh",data%Equipments%DataDisplayConsole%TripAlarmHigh)

  192. ! call json%add(p,"RetFlowAlarmLow",data%Equipments%DataDisplayConsole%RetFlowAlarmLow)

  193. ! call json%add(p,"RetFlowAlarmHigh",data%Equipments%DataDisplayConsole%RetFlowAlarmHigh)

  194. ! call json%add(p,"PitAlarmLow",data%Equipments%DataDisplayConsole%PitAlarmLow)

  195. ! call json%add(p,"PitAlarmHigh",data%Equipments%DataDisplayConsole%PitAlarmHigh)

  196. ! call json%add(p,"PortWeightOnBit",data%Equipments%DataDisplayConsole%PortWeightOnBit)

  197. ! call json%add(p,"PortHookLoad",data%Equipments%DataDisplayConsole%PortHookLoad)

  198. ! call json%add(p,"PortCasingPressure",data%Equipments%DataDisplayConsole%PortCasingPressure)

  199. ! call json%add(p,"PortPumpPressure",data%Equipments%DataDisplayConsole%PortPumpPressure)

  200. 

  201. ! call json%add(p,"TripTankSetAlarmLow",data%Equipments%DataDisplayConsole%TripTankSetAlarmLow)

  202. ! call json%add(p,"TripTankSetAlarmHigh",data%Equipments%DataDisplayConsole%TripTankSetAlarmHigh)

  203. ! call json%add(p,"TripTankSetAlarmSwitch",data%Equipments%DataDisplayConsole%TripTankSetAlarmSwitch)

  204. ! call json%add(p,"TripTankPowerSwitch",data%Equipments%DataDisplayConsole%TripTankPowerSwitch)

  205. ! call json%add(p,"TripTankPumpSwitch",data%Equipments%DataDisplayConsole%TripTankPumpSwitch)

  206. ! call json%add(p,"TripTankHornSwitch",data%Equipments%DataDisplayConsole%TripTankHornSwitch)

  207. ! call json%add(p,"AcidGasDetectionHornSwitch",data%Equipments%DataDisplayConsole%AcidGasDetectionHornSwitch)

  208. ! call json%add(p,"TotalStrokeCounterResetSwitch",data%Equipments%DataDisplayConsole%TotalStrokeCounterResetSwitch)

  209. ! call json%add(p,"DrillingTrippingSelectorSwitch",data%Equipments%DataDisplayConsole%DrillingTrippingSelectorSwitch)

  210. ! call json%add(p,"MVTSetAlarmLowKnob",data%Equipments%DataDisplayConsole%MVTSetAlarmLowKnob)

  211. ! call json%add(p,"MVTSetAlarmHighKnob",data%Equipments%DataDisplayConsole%MVTSetAlarmHighKnob)

  212. ! call json%add(p,"MVTSetAlarmSwitch",data%Equipments%DataDisplayConsole%MVTSetAlarmSwitch)

  213. ! call json%add(p,"MudTank1Switch",data%Equipments%DataDisplayConsole%MudTank1Switch)

  214. ! call json%add(p,"MudTank2Switch",data%Equipments%DataDisplayConsole%MudTank2Switch)

  215. ! call json%add(p,"MudTank3Switch",data%Equipments%DataDisplayConsole%MudTank3Switch)

  216. ! call json%add(p,"MudTank4Switch",data%Equipments%DataDisplayConsole%MudTank4Switch)

  217. ! call json%add(p,"MVTFineKnob",data%Equipments%DataDisplayConsole%MVTFineKnob)

  218. ! call json%add(p,"MVTCoarseKnob",data%Equipments%DataDisplayConsole%MVTCoarseKnob)

  219. ! call json%add(p,"MVTHornSwitch",data%Equipments%DataDisplayConsole%MVTHornSwitch)

  220. ! call json%add(p,"MVTDeviationTripSelectionSwitch",data%Equipments%DataDisplayConsole%MVTDeviationTripSelectionSwitch)

  221. ! call json%add(p,"MVTPowerSwitch",data%Equipments%DataDisplayConsole%MVTPowerSwitch)

  222. ! call json%add(p,"MFFIResetTotalStrokes",data%Equipments%DataDisplayConsole%MFFIResetTotalStrokes)

  223. ! call json%add(p,"MFFIResetFillCounter",data%Equipments%DataDisplayConsole%MFFIResetFillCounter)

  224. ! call json%add(p,"MFFIPumpSelectorSwitch",data%Equipments%DataDisplayConsole%MFFIPumpSelectorSwitch)

  225. ! call json%add(p,"MFFIFillSPMSelectorSwitch",data%Equipments%DataDisplayConsole%MFFIFillSPMSelectorSwitch)

  226. ! call json%add(p,"MFFISetAlarmLowKnob",data%Equipments%DataDisplayConsole%MFFISetAlarmLowKnob)

  227. ! call json%add(p,"MFFISetAlarmHighKnob",data%Equipments%DataDisplayConsole%MFFISetAlarmHighKnob)

  228. ! call json%add(p,"MFFISetAlarmSwitch",data%Equipments%DataDisplayConsole%MFFISetAlarmSwitch)

  229. ! call json%add(p,"MFFIPowerSwitch",data%Equipments%DataDisplayConsole%MFFIPowerSwitch)

  230. ! call json%add(p,"MFFIHornSwitch",data%Equipments%DataDisplayConsole%MFFIHornSwitch)

  231. ! call json%add(p,"ResetWob",data%Equipments%DataDisplayConsole%ResetWob)

  232. ! call json%add(p,"Clutch",data%Equipments%DataDisplayConsole%Clutch)

  233. 

  234. 		call json%add(p,"WOBPointer",data%Equipments%DataDisplayConsole%WOBPointer)

  235.         call json%add(p,"HookLoadPointer",data%Equipments%DataDisplayConsole%HookLoadPointer)

  236.         call json%add(p,"TripTankGauge",data%Equipments%DataDisplayConsole%TripTankGauge)

  237.         call json%add(p,"TripTankAlarmLED",data%Equipments%DataDisplayConsole%TripTankAlarmLED)

  238.         call json%add(p,"TripTankPumpLED",data%Equipments%DataDisplayConsole%TripTankPumpLED)

  239.         call json%add(p,"StandPipePressureGauge",data%Equipments%DataDisplayConsole%StandPipePressureGauge)

  240.         call json%add(p,"CasingPressureGauge",data%Equipments%DataDisplayConsole%CasingPressureGauge)

  241.         call json%add(p,"MP1SPMGauge",data%Equipments%DataDisplayConsole%MP1SPMGauge)

  242.         call json%add(p,"MP2SPMGauge",data%Equipments%DataDisplayConsole%MP2SPMGauge)

  243.         call json%add(p,"ReturnLineTempGauge",data%Equipments%DataDisplayConsole%ReturnLineTempGauge)

  244.         call json%add(p,"RotaryTorqueGauge",data%Equipments%DataDisplayConsole%RotaryTorqueGauge)

  245.         call json%add(p,"RotaryRPMGauge",data%Equipments%DataDisplayConsole%RotaryRPMGauge)

  246.         call json%add(p,"AcidGasDetectionLED",data%Equipments%DataDisplayConsole%AcidGasDetectionLED)

  247.         call json%add(p,"TotalStrokeCounter",data%Equipments%DataDisplayConsole%TotalStrokeCounter)

  248.         call json%add(p,"PitGainLossGauge",data%Equipments%DataDisplayConsole%PitGainLossGauge)

  249.         call json%add(p,"MudTanksVolumeGauge",data%Equipments%DataDisplayConsole%MudTanksVolumeGauge)

  250.         call json%add(p,"MVTAlarmLED",data%Equipments%DataDisplayConsole%MVTAlarmLED)

  251.         call json%add(p,"ReturnMudFlowGauge",data%Equipments%DataDisplayConsole%ReturnMudFlowGauge)

  252.         call json%add(p,"FillStrokeCounter",data%Equipments%DataDisplayConsole%FillStrokeCounter)

  253.         call json%add(p,"MFFITotalStrokeCounter",data%Equipments%DataDisplayConsole%MFFITotalStrokeCounter)

  254.         call json%add(p,"MFFIAlarmLED",data%Equipments%DataDisplayConsole%MFFIAlarmLED)

  255.         call json%add(p,"MFFIPumpLED",data%Equipments%DataDisplayConsole%MFFIPumpLED)

  256.         call json%add(p,"TotalWellDepth",data%Equipments%DataDisplayConsole%TotalWellDepth)

  257.         call json%add(p,"BitDepth",data%Equipments%DataDisplayConsole%BitDepth)

  258.         call json%add(p,"HookLoad",data%Equipments%DataDisplayConsole%HookLoad)

  259.         call json%add(p,"StandPipePressure",data%Equipments%DataDisplayConsole%StandPipePressure)

  260.         call json%add(p,"CasingPressure",data%Equipments%DataDisplayConsole%CasingPressure)

  261.         call json%add(p,"MP1SPM",data%Equipments%DataDisplayConsole%MP1SPM)

  262.         call json%add(p,"MP2SPM",data%Equipments%DataDisplayConsole%MP2SPM)

  263.         call json%add(p,"RTTorque",data%Equipments%DataDisplayConsole%RTTorque)

  264.         call json%add(p,"RTRPM",data%Equipments%DataDisplayConsole%RTRPM)

  265.         call json%add(p,"WOP",data%Equipments%DataDisplayConsole%WOP)

  266.         call json%add(p,"ROP",data%Equipments%DataDisplayConsole%ROP)

  267.         call json%add(p,"MudWeightIn",data%Equipments%DataDisplayConsole%MudWeightIn)

  268.         call json%add(p,"MudWeightOut",data%Equipments%DataDisplayConsole%MudWeightOut)

  269.         call json%add(p,"Buzzer1",data%Equipments%DataDisplayConsole%Buzzer1)

  270.         call json%add(p,"Buzzer2",data%Equipments%DataDisplayConsole%Buzzer2)

  271.         call json%add(p,"Buzzer3",data%Equipments%DataDisplayConsole%Buzzer3)

  272.         call json%add(p,"Buzzer4",data%Equipments%DataDisplayConsole%Buzzer4)

  273.     

  274. 

  275.         call json%add(parent,p)

  276.     end subroutine

  277. 

  278. 

  279.     subroutine Set_TotalDepth(v)

  280.         use SimulationVariables !@!!, only: data%Equipments%DrillingWatch%Depth

  281. ! use CSimulationVariables, only: SetDistanceDrilled

  282. 	    implicit none

  283. 	    real(8), intent(in) :: v

  284. 	    data%Equipments%DataDisplayConsole%TotalWellDepth = v

  285.         data%Equipments%DrillingWatch%Depth = v

  286. ! call SetDistanceDrilled(v)

  287.     end subroutine

  288.     

  289.     subroutine Set_BitPosition(v)

  290.         use SimulationVariables !@!!, only: data%Equipments%DrillingWatch%BitPosition

  291. 	    implicit none

  292. 	    real(8), intent(in) :: v

  293. 	    data%Equipments%DataDisplayConsole%BitDepth = v

  294.         data%Equipments%DrillingWatch%BitPosition = v

  295.     end subroutine

  296.     

  297.     subroutine Set_RotaryTorque(v)

  298.         use SimulationVariables !@!!, only: data%Equipments%DrillingWatch%Torque

  299. 	    implicit none

  300. 	    real(8), intent(in) :: v

  301. 	    data%Equipments%DataDisplayConsole%RotaryTorqueGauge = v

  302. 	    data%Equipments%DrillingWatch%Torque = v

  303.         data%Equipments%DataDisplayConsole%RTTorque = v

  304.     end subroutine

  305.     

  306.     

  307.     subroutine Set_MudWeightIn(v)

  308.         use SimulationVariables !@!, only: MudWeightInDw => data%Equipments%DataDisplayConsole%MudWeightIn

  309. 	    implicit none

  310. 	    real(8), intent(in) :: v

  311. 	    data%Equipments%DataDisplayConsole%MudWeightIn = v

  312. 	    data%Equipments%DrillingWatch%MudWeightIn = v

  313.     end subroutine

  314.     

  315.     subroutine Set_MudWeightOut(v)

  316.         use SimulationVariables !@!, only: MudWeightOutDw => data%Equipments%DataDisplayConsole%MudWeightOut

  317. 	    implicit none

  318. 	    real(8), intent(in) :: v

  319. 	    data%Equipments%DataDisplayConsole%MudWeightOut = v

  320. 	    data%Equipments%DrillingWatch%MudWeightOut = v

  321.     end subroutine

  322.     

  323.     subroutine Set_TripTankVolume(v)

  324.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%TripTankVolume

  325. 	    implicit none

  326. 	    real(8), intent(in) :: v

  327. 	    data%Equipments%DrillingWatch%TripTankVolume = v

  328.     end subroutine

  329.     

  330.     subroutine Set_FillVolume(v)

  331.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%FillVolume

  332. 	    implicit none

  333. 	    real(8), intent(in) :: v

  334. 	    data%Equipments%DrillingWatch%FillVolume = v

  335.     end subroutine

  336.     

  337.     subroutine Set_HookLoad(v)

  338.         use SimulationVariables !@!, only: HookLoadDw => data%Equipments%DataDisplayConsole%HookLoad

  339. 	    implicit none

  340. 	    real(8), intent(in) :: v

  341. 	    data%Equipments%DataDisplayConsole%HookLoadPointer = v

  342.         data%Equipments%DrillingWatch%HookLoad = v * 1000

  343.         data%Equipments%DataDisplayConsole%HookLoad = v

  344.     end subroutine

  345.     

  346.     subroutine Set_WeightOnBit(v)

  347.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%WeightOnBit

  348. 	    implicit none

  349. 	    real(8), intent(in) :: v

  350. 	    data%Equipments%DataDisplayConsole%WOBPointer = v

  351.         data%Equipments%DrillingWatch%WeightOnBit = v

  352.         data%Equipments%DataDisplayConsole%WOP = v

  353.     end subroutine

  354.     

  355.     subroutine Set_ROP(v)

  356.         use SimulationVariables !@!, only: ROPDw => data%Equipments%DataDisplayConsole%ROP

  357. 	    implicit none

  358. 	    real(8), intent(in) :: v

  359. 	    data%Equipments%DataDisplayConsole%ROP = v

  360.         data%Equipments%DrillingWatch%ROP = v

  361.     end subroutine

  362.     

  363.     subroutine Set_CasingPressure(v)

  364.         use SimulationVariables !@!, only: CasingPressureDw => CasingPressure

  365.         use CChokeControlPanelVariables

  366.         use SimulationVariables!, only: CasingPressureChoke => CasingPressure

  367. 	    implicit none

  368. 	    real(8), intent(in) :: v

  369. 	    data%Equipments%DataDisplayConsole%CasingPressureGauge = v

  370.         data%Equipments%DrillingWatch%CasingPressure = v

  371.         data%Equipments%ChokeControlPanel%CasingPressure = v

  372.         data%Equipments%DataDisplayConsole%CasingPressure = v

  373.     end subroutine

  374.     

  375.     subroutine Set_StandPipePressure(v)

  376.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%PumpPressure

  377.         use CChokeControlPanelVariables

  378.     use SimulationVariables!, only: StandPipePressureChoke => data%Equipments%DataDisplayConsole%StandPipePressure

  379. 	    implicit none

  380. 	    real(8), intent(in) :: v

  381. 	    data%Equipments%DataDisplayConsole%StandPipePressureGauge = v

  382.         data%Equipments%DrillingWatch%PumpPressure = v

  383.         data%Equipments%ChokeControlPanel%StandPipePressure = v

  384.         data%Equipments%DataDisplayConsole%StandPipePressure = v

  385.         

  386.         

  387.         

  388.     end subroutine

  389.     

  390.     

  391.     subroutine Set_RotaryRPMGauge(v)

  392.         use SimulationVariables !@!, only: data%Equipments%DrillingWatch%RPM

  393. 	    implicit none

  394. 	    real(8), intent(in) :: v

  395. 	    data%Equipments%DataDisplayConsole%RotaryRPMGauge = v

  396.         data%Equipments%DrillingWatch%RPM = v

  397.         data%Equipments%DataDisplayConsole%RTRPM = v

  398. ! call data%Equipments%DataDisplayConsole%OnRotaryRpmChange%RunAll(v)

  399.     end subroutine

  400.     

  401.     

  402.     

  403.     

  404.     subroutine Set_MP1SPMGauge(v)

  405. 	    implicit none

  406. 	    real(8), intent(in) :: v

  407. 	    data%Equipments%DataDisplayConsole%MP1SPMGauge = v

  408.         data%Equipments%DataDisplayConsole%MP1SPM = v

  409. !@data%State%unitySignals%(PumpsSpmChanges)) call PumpsSpmChanges(data%Equipments%DataDisplayConsole%MP1SPMGauge, data%Equipments%DataDisplayConsole%MP2SPMGauge)

  410. # 411

  411. 

  412.     end subroutine

  413.     

  414.     subroutine Set_MP2SPMGauge(v)

  415. 	    implicit none

  416. 	    real(8), intent(in) :: v

  417. 	    data%Equipments%DataDisplayConsole%MP2SPMGauge = v

  418.         data%Equipments%DataDisplayConsole%MP2SPM = v

  419. !@data%State%unitySignals%(PumpsSpmChanges)) call PumpsSpmChanges(data%Equipments%DataDisplayConsole%MP1SPMGauge, data%Equipments%DataDisplayConsole%MP2SPMGauge)

  420. # 422

  421. 

  422.     end subroutine

  423. end module CDataDisplayConsole