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/CDataDisplayConsole.f90

424 lines
23 KiB
Raw Blame History 

  1. module CDataDisplayConsole

  2. 	! use CDataDisplayConsole

  3.     use SimulationVariables

  4. 	implicit none    

  5. 	public    

  6.     contains  

  7. 

  8.     subroutine DataDisplayConsoleFromJson(parent)

  9.         type(json_value),pointer :: parent

  10.         type(json_core) :: json

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

  12. 

  13.         ! 1. get related root

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

  15.         

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  179.     end subroutine

  180. 

  181.     subroutine DataDisplayConsoleToJson(parent)

  182. 

  183.         type(json_value),pointer :: parent

  184.         type(json_core) :: json

  185.         type(json_value),pointer :: p

  186. 

  187.         ! 1. create new node

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

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

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

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

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

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

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

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

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

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

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

  199. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  232. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  272.     

  273. 

  274.         call json%add(parent,p)

  275.     end subroutine

  276. 

  277. 

  278.     subroutine Set_TotalDepth(v)

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

  280.         ! use CSimulationVariables, only: SetDistanceDrilled

  281. 	    implicit none

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

  283. 	    data%Equipments%DataDisplayConsole%TotalWellDepth = v

  284.         data%Equipments%DrillingWatch%Depth = v

  285.         ! call SetDistanceDrilled(v)

  286.     end subroutine

  287.     

  288.     subroutine Set_BitPosition(v)

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

  290. 	    implicit none

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

  292. 	    data%Equipments%DataDisplayConsole%BitDepth = v

  293.         data%Equipments%DrillingWatch%BitPosition = v

  294.     end subroutine

  295.     

  296.     subroutine Set_RotaryTorque(v)

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

  298. 	    implicit none

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

  300. 	    data%Equipments%DataDisplayConsole%RotaryTorqueGauge = v

  301. 	    data%Equipments%DrillingWatch%Torque = v

  302.         data%Equipments%DataDisplayConsole%RTTorque = v

  303.     end subroutine

  304.     

  305.     

  306.     subroutine Set_MudWeightIn(v)

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

  308. 	    implicit none

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

  310. 	    data%Equipments%DataDisplayConsole%MudWeightIn = v

  311. 	    data%Equipments%DrillingWatch%MudWeightIn = v

  312.     end subroutine

  313.     

  314.     subroutine Set_MudWeightOut(v)

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

  316. 	    implicit none

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

  318. 	    data%Equipments%DataDisplayConsole%MudWeightOut = v

  319. 	    data%Equipments%DrillingWatch%MudWeightOut = v

  320.     end subroutine

  321.     

  322.     subroutine Set_TripTankVolume(v)

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

  324. 	    implicit none

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

  326. 	    data%Equipments%DrillingWatch%TripTankVolume = v

  327.     end subroutine

  328.     

  329.     subroutine Set_FillVolume(v)

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

  331. 	    implicit none

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

  333. 	    data%Equipments%DrillingWatch%FillVolume = v

  334.     end subroutine

  335.     

  336.     subroutine Set_HookLoad(v)

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

  338. 	    implicit none

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

  340. 	    data%Equipments%DataDisplayConsole%HookLoadPointer = v

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

  342.         data%Equipments%DataDisplayConsole%HookLoad = v

  343.     end subroutine

  344.     

  345.     subroutine Set_WeightOnBit(v)

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

  347. 	    implicit none

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

  349. 	    data%Equipments%DataDisplayConsole%WOBPointer = v

  350.         data%Equipments%DrillingWatch%WeightOnBit = v

  351.         data%Equipments%DataDisplayConsole%WOP = v

  352.     end subroutine

  353.     

  354.     subroutine Set_ROP(v)

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

  356. 	    implicit none

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

  358. 	    data%Equipments%DataDisplayConsole%ROP = v

  359.         data%Equipments%DrillingWatch%ROP = v

  360.     end subroutine

  361.     

  362.     subroutine Set_CasingPressure(v)

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

  364.         use CChokeControlPanelVariables

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

  366. 	    implicit none

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

  368. 	    data%Equipments%DataDisplayConsole%CasingPressureGauge = v

  369.         data%Equipments%DrillingWatch%CasingPressure = v

  370.         data%Equipments%ChokeControlPanel%CasingPressure = v

  371.         data%Equipments%DataDisplayConsole%CasingPressure = v

  372.     end subroutine

  373.     

  374.     subroutine Set_StandPipePressure(v)

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

  376.         use CChokeControlPanelVariables

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

  378. 	    implicit none

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

  380. 	    data%Equipments%DataDisplayConsole%StandPipePressureGauge = v

  381.         data%Equipments%DrillingWatch%PumpPressure = v

  382.         data%Equipments%ChokeControlPanel%StandPipePressure = v

  383.         data%Equipments%DataDisplayConsole%StandPipePressure = v

  384.         

  385.         

  386.         

  387.     end subroutine

  388.     

  389.     

  390.     subroutine Set_RotaryRPMGauge(v)

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

  392. 	    implicit none

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

  394. 	    data%Equipments%DataDisplayConsole%RotaryRPMGauge = v

  395.         data%Equipments%DrillingWatch%RPM = v

  396.         data%Equipments%DataDisplayConsole%RTRPM = v

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

  398.     end subroutine

  399.     

  400.     

  401.     

  402.     

  403.     subroutine Set_MP1SPMGauge(v)

  404. 	    implicit none

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

  406. 	    data%Equipments%DataDisplayConsole%MP1SPMGauge = v

  407.         data%Equipments%DataDisplayConsole%MP1SPM = v

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

  409. #ifdef deb

  410. 	    print*, 'MP1SPMGauge=', data%Equipments%DataDisplayConsole%MP1SPMGauge

  411. #endif

  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. #ifdef deb

  421. 	    print*, 'MP2SPMGauge=', data%Equipments%DataDisplayConsole%MP2SPMGauge

  422. #endif

  423.     end subroutine

  424. end module CDataDisplayConsole