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.
69 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Branch: master
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
SimulationCore2/CSharp/Problems/CGaugesProblems.i90

409 lines
32 KiB
Raw Permalink Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Problems/CGaugesProblems.f90"

  2. module CGaugesProblems

  3. 	use SimulationVariables

  4. 	implicit none    

  5. 	public 

  6.     contains

  7.     subroutine GaugesProblemsFromJson(parent)

  8.         type(json_value),pointer :: parent

  9.         type(json_core) :: json

  10.         type(json_value),pointer :: p

  11. 

  12.         call json%get(parent,'GaugesProblems',p)

  13. 

  14.         call ProblemFromJson(p,"WeightIndicator",data%problems%GaugesProblems%WeightIndicator)

  15.         call ProblemFromJson(p,"RotaryRpm",data%problems%GaugesProblems%RotaryRpm)

  16.         call ProblemFromJson(p,"RotaryTorque",data%problems%GaugesProblems%RotaryTorque)

  17.         call ProblemFromJson(p,"StandPipePressure",data%problems%GaugesProblems%StandPipePressure)

  18.         call ProblemFromJson(p,"CasingPressure",data%problems%GaugesProblems%CasingPressure)

  19.         call ProblemFromJson(p,"Pump1Strokes",data%problems%GaugesProblems%Pump1Strokes)

  20.         call ProblemFromJson(p,"Pump2Strokes",data%problems%GaugesProblems%Pump2Strokes)

  21.         call ProblemFromJson(p,"ReturnLineTemperature",data%problems%GaugesProblems%ReturnLineTemperature)

  22.         call ProblemFromJson(p,"TripTank",data%problems%GaugesProblems%TripTank)

  23.         call ProblemFromJson(p,"PitGainLoss",data%problems%GaugesProblems%PitGainLoss)

  24.         call ProblemFromJson(p,"MudTankVolume",data%problems%GaugesProblems%MudTankVolume)

  25.         call ProblemFromJson(p,"ReturnMudFlow",data%problems%GaugesProblems%ReturnMudFlow)

  26.         call ProblemFromJson(p,"TorqueLimit",data%problems%GaugesProblems%TorqueLimit)

  27.         call ProblemFromJson(p,"PowerLimit",data%problems%GaugesProblems%PowerLimit)

  28.         call ProblemFromJson(p,"AccumulatorPressure",data%problems%GaugesProblems%AccumulatorPressure)

  29.         call ProblemFromJson(p,"ManifoldPressure",data%problems%GaugesProblems%ManifoldPressure)

  30.         call ProblemFromJson(p,"AnnularPressure",data%problems%GaugesProblems%AnnularPressure)

  31.         call ProblemFromJson(p,"RigAirPressure",data%problems%GaugesProblems%RigAirPressure)

  32.         call ProblemFromJson(p,"StandPipe1",data%problems%GaugesProblems%StandPipe1)

  33.         call ProblemFromJson(p,"StandPipe2",data%problems%GaugesProblems%StandPipe2)

  34.         call ProblemFromJson(p,"DrillPipePressure",data%problems%GaugesProblems%DrillPipePressure)

  35.         call ProblemFromJson(p,"ChokePosition",data%problems%GaugesProblems%ChokePosition)

  36.         call ProblemFromJson(p,"CasingPressure2",data%problems%GaugesProblems%CasingPressure2)

  37. 

  38.     end subroutine

  39. 

  40.     subroutine GaugesProblemsToJson(parent)

  41. 

  42.         type(json_value),pointer :: parent

  43.         type(json_core) :: json

  44.         type(json_value),pointer :: p

  45. 

  46. ! 1. create new node

  47.         call json%create_object(p,'GaugesProblems')

  48.         

  49. ! 2. add member of data type to new node

  50.         call ProblemToJson(p,"WeightIndicator",data%problems%GaugesProblems%WeightIndicator)

  51.         call ProblemToJson(p,"RotaryRpm",data%problems%GaugesProblems%RotaryRpm)

  52.         call ProblemToJson(p,"RotaryTorque",data%problems%GaugesProblems%RotaryTorque)

  53.         call ProblemToJson(p,"StandPipePressure",data%problems%GaugesProblems%StandPipePressure)

  54.         call ProblemToJson(p,"CasingPressure",data%problems%GaugesProblems%CasingPressure)

  55.         call ProblemToJson(p,"Pump1Strokes",data%problems%GaugesProblems%Pump1Strokes)

  56.         call ProblemToJson(p,"Pump2Strokes",data%problems%GaugesProblems%Pump2Strokes)

  57.         call ProblemToJson(p,"ReturnLineTemperature",data%problems%GaugesProblems%ReturnLineTemperature)

  58.         call ProblemToJson(p,"TripTank",data%problems%GaugesProblems%TripTank)

  59.         call ProblemToJson(p,"PitGainLoss",data%problems%GaugesProblems%PitGainLoss)

  60.         call ProblemToJson(p,"MudTankVolume",data%problems%GaugesProblems%MudTankVolume)

  61.         call ProblemToJson(p,"ReturnMudFlow",data%problems%GaugesProblems%ReturnMudFlow)

  62.         call ProblemToJson(p,"TorqueLimit",data%problems%GaugesProblems%TorqueLimit)

  63.         call ProblemToJson(p,"PowerLimit",data%problems%GaugesProblems%PowerLimit)

  64.         call ProblemToJson(p,"AccumulatorPressure",data%problems%GaugesProblems%AccumulatorPressure)

  65.         call ProblemToJson(p,"ManifoldPressure",data%problems%GaugesProblems%ManifoldPressure)

  66.         call ProblemToJson(p,"AnnularPressure",data%problems%GaugesProblems%AnnularPressure)

  67.         call ProblemToJson(p,"RigAirPressure",data%problems%GaugesProblems%RigAirPressure)

  68.         call ProblemToJson(p,"StandPipe1",data%problems%GaugesProblems%StandPipe1)

  69.         call ProblemToJson(p,"StandPipe2",data%problems%GaugesProblems%StandPipe2)

  70.         call ProblemToJson(p,"DrillPipePressure",data%problems%GaugesProblems%DrillPipePressure)

  71.         call ProblemToJson(p,"ChokePosition",data%problems%GaugesProblems%ChokePosition)

  72.         call ProblemToJson(p,"CasingPressure2",data%problems%GaugesProblems%CasingPressure2)

  73.         

  74. ! 3. add new node to parent

  75.         call json%add(parent,p)

  76.     end subroutine

  77. 

  78.     subroutine ProcessGaugesProblemsDueTime(time)

  79.         implicit none

  80.         integer :: time

  81.         if(data%problems%GaugesProblems%WeightIndicator%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%WeightIndicator, ChangeWeightIndicator, time)

  82.         if(data%problems%GaugesProblems%RotaryRpm%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%RotaryRpm, ChangeRotaryRpm, time)

  83.         if(data%problems%GaugesProblems%RotaryTorque%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%RotaryTorque, ChangeRotaryTorque, time)

  84.         if(data%problems%GaugesProblems%StandPipePressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%StandPipePressure, ChangeStandPipePressure, time)

  85.         if(data%problems%GaugesProblems%CasingPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%CasingPressure, ChangeCasingPressure, time)

  86.         if(data%problems%GaugesProblems%Pump1Strokes%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%Pump1Strokes, ChangePump1Strokes, time)

  87.         if(data%problems%GaugesProblems%Pump2Strokes%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%Pump2Strokes, ChangePump2Strokes, time)

  88.         if(data%problems%GaugesProblems%ReturnLineTemperature%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%ReturnLineTemperature, ChangeReturnLineTemperature, time)

  89.         if(data%problems%GaugesProblems%TripTank%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%TripTank, ChangeTripTank, time)

  90.         if(data%problems%GaugesProblems%PitGainLoss%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%PitGainLoss, ChangePitGainLoss, time)

  91.         if(data%problems%GaugesProblems%MudTankVolume%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%MudTankVolume, ChangeMudTankVolume, time)

  92.         if(data%problems%GaugesProblems%ReturnMudFlow%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%ReturnMudFlow, ChangeReturnMudFlow, time)

  93.         if(data%problems%GaugesProblems%TorqueLimit%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%TorqueLimit, ChangeTorqueLimit, time)

  94.         if(data%problems%GaugesProblems%PowerLimit%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%PowerLimit, ChangePowerLimit, time)

  95.         if(data%problems%GaugesProblems%AccumulatorPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%AccumulatorPressure, ChangeAccumulatorPressure, time)

  96.         if(data%problems%GaugesProblems%ManifoldPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%ManifoldPressure, ChangeManifoldPressure, time)

  97.         if(data%problems%GaugesProblems%AnnularPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%AnnularPressure, ChangeAnnularPressure, time)

  98.         if(data%problems%GaugesProblems%RigAirPressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%RigAirPressure, ChangeRigAirPressure, time)

  99.         if(data%problems%GaugesProblems%StandPipe1%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%StandPipe1, ChangeStandPipe1, time)

  100.         if(data%problems%GaugesProblems%StandPipe2%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%StandPipe2, ChangeStandPipe2, time)

  101.         if(data%problems%GaugesProblems%DrillPipePressure%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%DrillPipePressure, ChangeDrillPipePressure, time)

  102.         if(data%problems%GaugesProblems%ChokePosition%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%ChokePosition, ChangeChokePosition, time)

  103.         if(data%problems%GaugesProblems%CasingPressure2%ProblemType == Time_ProblemType) call ProcessDueTime(data%problems%GaugesProblems%CasingPressure2, ChangeCasingPressure2, time)

  104.     end subroutine

  105. 	

  106. 	subroutine ProcessGaugesProblemsDuePumpStrokes(strokes)

  107.         implicit none

  108.         integer :: strokes

  109.         if(data%problems%GaugesProblems%WeightIndicator%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%WeightIndicator, ChangeWeightIndicator, strokes)

  110.         if(data%problems%GaugesProblems%RotaryRpm%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%RotaryRpm, ChangeRotaryRpm, strokes)

  111.         if(data%problems%GaugesProblems%RotaryTorque%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%RotaryTorque, ChangeRotaryTorque, strokes)

  112.         if(data%problems%GaugesProblems%StandPipePressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%StandPipePressure, ChangeStandPipePressure, strokes)

  113.         if(data%problems%GaugesProblems%CasingPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%CasingPressure, ChangeCasingPressure, strokes)

  114.         if(data%problems%GaugesProblems%Pump1Strokes%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%Pump1Strokes, ChangePump1Strokes, strokes)

  115.         if(data%problems%GaugesProblems%Pump2Strokes%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%Pump2Strokes, ChangePump2Strokes, strokes)

  116.         if(data%problems%GaugesProblems%ReturnLineTemperature%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%ReturnLineTemperature, ChangeReturnLineTemperature, strokes)

  117.         if(data%problems%GaugesProblems%TripTank%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%TripTank, ChangeTripTank, strokes)

  118.         if(data%problems%GaugesProblems%PitGainLoss%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%PitGainLoss, ChangePitGainLoss, strokes)

  119.         if(data%problems%GaugesProblems%MudTankVolume%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%MudTankVolume, ChangeMudTankVolume, strokes)

  120.         if(data%problems%GaugesProblems%ReturnMudFlow%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%ReturnMudFlow, ChangeReturnMudFlow, strokes)

  121.         if(data%problems%GaugesProblems%TorqueLimit%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%TorqueLimit, ChangeTorqueLimit, strokes)

  122.         if(data%problems%GaugesProblems%PowerLimit%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%PowerLimit, ChangePowerLimit, strokes)

  123.         if(data%problems%GaugesProblems%AccumulatorPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%AccumulatorPressure, ChangeAccumulatorPressure, strokes)

  124.         if(data%problems%GaugesProblems%ManifoldPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%ManifoldPressure, ChangeManifoldPressure, strokes)

  125.         if(data%problems%GaugesProblems%AnnularPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%AnnularPressure, ChangeAnnularPressure, strokes)

  126.         if(data%problems%GaugesProblems%RigAirPressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%RigAirPressure, ChangeRigAirPressure, strokes)

  127.         if(data%problems%GaugesProblems%StandPipe1%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%StandPipe1, ChangeStandPipe1, strokes)

  128.         if(data%problems%GaugesProblems%StandPipe2%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%StandPipe2, ChangeStandPipe2, strokes)

  129.         if(data%problems%GaugesProblems%DrillPipePressure%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%DrillPipePressure, ChangeDrillPipePressure, strokes)

  130.         if(data%problems%GaugesProblems%ChokePosition%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%ChokePosition, ChangeChokePosition, strokes)

  131.         if(data%problems%GaugesProblems%CasingPressure2%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(data%problems%GaugesProblems%CasingPressure2, ChangeCasingPressure2, strokes)

  132.     end subroutine

  133. 	

  134. 	subroutine ProcessGaugesProblemsDueVolumePumped(volume)

  135.         implicit none

  136.         real(8) :: volume

  137.         if(data%problems%GaugesProblems%WeightIndicator%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%WeightIndicator, ChangeWeightIndicator, volume)

  138.         if(data%problems%GaugesProblems%RotaryRpm%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%RotaryRpm, ChangeRotaryRpm, volume)

  139.         if(data%problems%GaugesProblems%RotaryTorque%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%RotaryTorque, ChangeRotaryTorque, volume)

  140.         if(data%problems%GaugesProblems%StandPipePressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%StandPipePressure, ChangeStandPipePressure, volume)

  141.         if(data%problems%GaugesProblems%CasingPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%CasingPressure, ChangeCasingPressure, volume)

  142.         if(data%problems%GaugesProblems%Pump1Strokes%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%Pump1Strokes, ChangePump1Strokes, volume)

  143.         if(data%problems%GaugesProblems%Pump2Strokes%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%Pump2Strokes, ChangePump2Strokes, volume)

  144.         if(data%problems%GaugesProblems%ReturnLineTemperature%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%ReturnLineTemperature, ChangeReturnLineTemperature, volume)

  145.         if(data%problems%GaugesProblems%TripTank%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%TripTank, ChangeTripTank, volume)

  146.         if(data%problems%GaugesProblems%PitGainLoss%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%PitGainLoss, ChangePitGainLoss, volume)

  147.         if(data%problems%GaugesProblems%MudTankVolume%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%MudTankVolume, ChangeMudTankVolume, volume)

  148.         if(data%problems%GaugesProblems%ReturnMudFlow%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%ReturnMudFlow, ChangeReturnMudFlow, volume)

  149.         if(data%problems%GaugesProblems%TorqueLimit%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%TorqueLimit, ChangeTorqueLimit, volume)

  150.         if(data%problems%GaugesProblems%PowerLimit%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%PowerLimit, ChangePowerLimit, volume)

  151.         if(data%problems%GaugesProblems%AccumulatorPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%AccumulatorPressure, ChangeAccumulatorPressure, volume)

  152.         if(data%problems%GaugesProblems%ManifoldPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%ManifoldPressure, ChangeManifoldPressure, volume)

  153.         if(data%problems%GaugesProblems%AnnularPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%AnnularPressure, ChangeAnnularPressure, volume)

  154.         if(data%problems%GaugesProblems%RigAirPressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%RigAirPressure, ChangeRigAirPressure, volume)

  155.         if(data%problems%GaugesProblems%StandPipe1%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%StandPipe1, ChangeStandPipe1, volume)

  156.         if(data%problems%GaugesProblems%StandPipe2%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%StandPipe2, ChangeStandPipe2, volume)

  157.         if(data%problems%GaugesProblems%DrillPipePressure%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%DrillPipePressure, ChangeDrillPipePressure, volume)

  158.         if(data%problems%GaugesProblems%ChokePosition%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%ChokePosition, ChangeChokePosition, volume)

  159.         if(data%problems%GaugesProblems%CasingPressure2%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(data%problems%GaugesProblems%CasingPressure2, ChangeCasingPressure2, volume)

  160.     end subroutine

  161. 	

  162. 	subroutine ProcessGaugesProblemsDueDistanceDrilled(distance)

  163.         implicit none

  164.         real(8) :: distance

  165.         if(data%problems%GaugesProblems%WeightIndicator%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%WeightIndicator, ChangeWeightIndicator, distance)

  166.         if(data%problems%GaugesProblems%RotaryRpm%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%RotaryRpm, ChangeRotaryRpm, distance)

  167.         if(data%problems%GaugesProblems%RotaryTorque%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%RotaryTorque, ChangeRotaryTorque, distance)

  168.         if(data%problems%GaugesProblems%StandPipePressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%StandPipePressure, ChangeStandPipePressure, distance)

  169.         if(data%problems%GaugesProblems%CasingPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%CasingPressure, ChangeCasingPressure, distance)

  170.         if(data%problems%GaugesProblems%Pump1Strokes%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%Pump1Strokes, ChangePump1Strokes, distance)

  171.         if(data%problems%GaugesProblems%Pump2Strokes%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%Pump2Strokes, ChangePump2Strokes, distance)

  172.         if(data%problems%GaugesProblems%ReturnLineTemperature%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%ReturnLineTemperature, ChangeReturnLineTemperature, distance)

  173.         if(data%problems%GaugesProblems%TripTank%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%TripTank, ChangeTripTank, distance)

  174.         if(data%problems%GaugesProblems%PitGainLoss%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%PitGainLoss, ChangePitGainLoss, distance)

  175.         if(data%problems%GaugesProblems%MudTankVolume%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%MudTankVolume, ChangeMudTankVolume, distance)

  176.         if(data%problems%GaugesProblems%ReturnMudFlow%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%ReturnMudFlow, ChangeReturnMudFlow, distance)

  177.         if(data%problems%GaugesProblems%TorqueLimit%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%TorqueLimit, ChangeTorqueLimit, distance)

  178.         if(data%problems%GaugesProblems%PowerLimit%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%PowerLimit, ChangePowerLimit, distance)

  179.         if(data%problems%GaugesProblems%AccumulatorPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%AccumulatorPressure, ChangeAccumulatorPressure, distance)

  180.         if(data%problems%GaugesProblems%ManifoldPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%ManifoldPressure, ChangeManifoldPressure, distance)

  181.         if(data%problems%GaugesProblems%AnnularPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%AnnularPressure, ChangeAnnularPressure, distance)

  182.         if(data%problems%GaugesProblems%RigAirPressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%RigAirPressure, ChangeRigAirPressure, distance)

  183.         if(data%problems%GaugesProblems%StandPipe1%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%StandPipe1, ChangeStandPipe1, distance)

  184.         if(data%problems%GaugesProblems%StandPipe2%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%StandPipe2, ChangeStandPipe2, distance)

  185.         if(data%problems%GaugesProblems%DrillPipePressure%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%DrillPipePressure, ChangeDrillPipePressure, distance)

  186.         if(data%problems%GaugesProblems%ChokePosition%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%ChokePosition, ChangeChokePosition, distance)

  187.         if(data%problems%GaugesProblems%CasingPressure2%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(data%problems%GaugesProblems%CasingPressure2, ChangeCasingPressure2, distance)

  188.     end subroutine

  189. 	

  190. 	

  191. 	

  192. 	

  193. 	

  194. 	

  195. 	

  196.     

  197.     

  198.     subroutine ChangeWeightIndicator(status)

  199.         use SimulationVariables !@

  200.         implicit none

  201.         integer, intent (in) :: status

  202. ! if(associated(WeightIndicatorPtr)) call WeightIndicatorPtr(status)

  203.         if(status == Clear_StatusType)    data%State%TD_General%WeightIndicatorMalf = 0

  204.         if(status == Executed_StatusType) data%State%TD_General%WeightIndicatorMalf = 1

  205.     endsubroutine

  206.     

  207.     subroutine ChangeRotaryRpm(status)

  208.         use SimulationVariables !@

  209.         implicit none

  210.         integer, intent (in) :: status

  211. ! if(associated(RotaryRpmPtr)) call RotaryRpmPtr(status)

  212.         if(status == Clear_StatusType)    data%State%RTable%RpmGaugeMalf = 0

  213.         if(status == Executed_StatusType) data%State%RTable%RpmGaugeMalf = 1

  214.     endsubroutine

  215.     

  216.     subroutine ChangeRotaryTorque(status)

  217.         use SimulationVariables !@

  218.         implicit none

  219.         integer, intent (in) :: status

  220. ! if(associated(RotaryTorquePtr)) call RotaryTorquePtr(status)

  221.         if(status == Clear_StatusType)    data%State%RTable%TorqueGaugeMalf = 0

  222.         if(status == Executed_StatusType) data%State%RTable%TorqueGaugeMalf = 1

  223.     endsubroutine

  224.     

  225.     subroutine ChangeStandPipePressure(status)

  226.         USE MudSystemVARIABLES

  227. use SimulationVariables !@@@

  228.         implicit none

  229.         integer, intent (in) :: status

  230. ! if(associated(StandPipePressurePtr)) call StandPipePressurePtr(status)

  231.         if(status == Clear_StatusType) data%State%MudSystem%StandPipePressure_DataDisplayMalf = 0

  232.         if(status == Executed_StatusType) data%State%MudSystem%StandPipePressure_DataDisplayMalf = 1

  233.     endsubroutine

  234.     

  235.     subroutine ChangeCasingPressure(status)

  236.         USE FricPressDropVarsModule

  237.         implicit none

  238.         integer, intent (in) :: status

  239. ! if(associated(CasingPressurePtr)) call CasingPressurePtr(status)

  240.         if(status == Clear_StatusType) data%State%FricPressDrop%CasingPressure_DataDisplayMalF = 0

  241.         if(status == Executed_StatusType) data%State%FricPressDrop%CasingPressure_DataDisplayMalF = 1

  242.     endsubroutine

  243.     

  244.     subroutine ChangePump1Strokes(status)

  245.         use SimulationVariables

  246.         implicit none

  247.         integer, intent (in) :: status

  248. ! if(associated(Pump1StrokesPtr)) call Pump1StrokesPtr(status)

  249.         if(status == Clear_StatusType)    data%State%Pump(1)%SPMGaugeMalf = 0

  250.         if(status == Executed_StatusType) data%State%Pump(1)%SPMGaugeMalf = 1

  251.     endsubroutine

  252.     

  253.     subroutine ChangePump2Strokes(status)

  254.         use SimulationVariables

  255.         implicit none

  256.         integer, intent (in) :: status

  257. ! if(associated(Pump2StrokesPtr)) call Pump2StrokesPtr(status)

  258.         if(status == Clear_StatusType)    data%State%Pump(2)%SPMGaugeMalf = 0

  259.         if(status == Executed_StatusType) data%State%Pump(2)%SPMGaugeMalf = 1

  260.     endsubroutine

  261.     

  262.     subroutine ChangeReturnLineTemperature(status)

  263.         implicit none

  264.         integer, intent (in) :: status

  265. ! if(associated(ReturnLineTemperaturePtr)) call ReturnLineTemperaturePtr(status)

  266. !if(status == Clear_StatusType) if(print_log) print*,'On_ReturnLineTemperature_Clear'

  267. !if(status == Executed_StatusType) if(print_log) print*,'On_ReturnLineTemperature_Execute'

  268.     endsubroutine

  269.     

  270.     subroutine ChangeTripTank(status)

  271.         USE MudSystemVARIABLES

  272. use SimulationVariables !@@@

  273.         implicit none

  274.         integer, intent (in) :: status

  275. ! if(associated(TripTankPtr)) call TripTankPtr(status)

  276.         if(status == Clear_StatusType) data%State%MudSystem%TripTankPressure_DataDisplayMalf = 0

  277.         if(status == Executed_StatusType) data%State%MudSystem%TripTankPressure_DataDisplayMalf = 1

  278.     endsubroutine

  279.     

  280.     subroutine ChangePitGainLoss(status)

  281.         USE MudSystemVARIABLES

  282. use SimulationVariables !@@@

  283.         implicit none

  284.         integer, intent (in) :: status

  285. ! if(associated(PitGainLossPtr)) call PitGainLossPtr(status)

  286.         if(status == Clear_StatusType) data%State%MudSystem%PitGainLossGaugeMalf = 0

  287.         if(status == Executed_StatusType) data%State%MudSystem%PitGainLossGaugeMalf = 1

  288.     endsubroutine

  289.     

  290.     subroutine ChangeMudTankVolume(status)

  291.         implicit none

  292.         integer, intent (in) :: status

  293. ! if(associated(MudTankVolumePtr)) call MudTankVolumePtr(status)

  294. !if(status == Clear_StatusType) if(print_log) print*,'On_MudTankVolume_Clear'

  295. !if(status == Executed_StatusType) if(print_log) print*,'On_MudTankVolume_Execute'

  296.     endsubroutine

  297.     

  298.     subroutine ChangeReturnMudFlow(status)

  299.         implicit none

  300.         integer, intent (in) :: status

  301. ! if(associated(ReturnMudFlowPtr)) call ReturnMudFlowPtr(status)

  302. !if(status == Clear_StatusType) if(print_log) print*,'On_ReturnMudFlow_Clear'

  303. !if(status == Executed_StatusType) if(print_log) print*,'On_ReturnMudFlow_Execute'

  304.     endsubroutine

  305.     

  306.     subroutine ChangeTorqueLimit(status)

  307.         use SimulationVariables !@

  308.         implicit none

  309.         integer, intent (in) :: status

  310. ! if(associated(TorqueLimitPtr)) call TorqueLimitPtr(status)

  311.         if(status == Clear_StatusType)    data%State%RTable%TorqueLimitGaugeMalf = 0

  312.         if(status == Executed_StatusType) data%State%RTable%TorqueLimitGaugeMalf = 1

  313.     endsubroutine

  314.     

  315.     subroutine ChangePowerLimit(status)

  316.         implicit none

  317.         integer, intent (in) :: status

  318. ! if(associated(PowerLimitPtr)) call PowerLimitPtr(status)

  319. !if(status == Clear_StatusType) if(print_log) print*,'On_PowerLimit_Clear'

  320. !if(status == Executed_StatusType) if(print_log) print*,'On_PowerLimit_Execute'

  321.     endsubroutine

  322.     

  323.     subroutine ChangeAccumulatorPressure(status)

  324.         use SimulationVariables

  325.         implicit none

  326.         integer, intent (in) :: status

  327. ! if(associated(AccumulatorPressurePtr)) call AccumulatorPressurePtr(status)

  328.         if(status == Clear_StatusType) data%State%BopStackAcc%AccumulatorPressureGaugeMalf = 0

  329.         if(status == Executed_StatusType) data%State%BopStackAcc%AccumulatorPressureGaugeMalf = 1

  330.     endsubroutine

  331.     

  332.     subroutine ChangeManifoldPressure(status)

  333.         use SimulationVariables

  334.         implicit none

  335.         integer, intent (in) :: status

  336. ! if(associated(ManifoldPressurePtr)) call ManifoldPressurePtr(status)

  337.         if(status == Clear_StatusType) data%State%BopStackAcc%ManifoldPressureGaugeMalf = 0

  338.         if(status == Executed_StatusType) data%State%BopStackAcc%ManifoldPressureGaugeMalf = 1

  339.     endsubroutine

  340.     

  341.     subroutine ChangeAnnularPressure(status)

  342.         use SimulationVariables

  343.         implicit none

  344.         integer, intent (in) :: status

  345. ! if(associated(AnnularPressurePtr)) call AnnularPressurePtr(status)

  346.         if(status == Clear_StatusType) data%State%Annular%AnnularPressureGaugeMalf = 0

  347.         if(status == Executed_StatusType) data%State%Annular%AnnularPressureGaugeMalf = 1

  348.     endsubroutine

  349.     

  350.     subroutine ChangeRigAirPressure(status)

  351.         use SimulationVariables

  352.         implicit none

  353.         integer, intent (in) :: status

  354. ! if(associated(RigAirPressurePtr)) call RigAirPressurePtr(status)

  355.         if(status == Clear_StatusType) data%State%BopStackAcc%AirSupplyPressureGaugeMalf = 0

  356.         if(status == Executed_StatusType) data%State%BopStackAcc%AirSupplyPressureGaugeMalf = 1

  357.     endsubroutine

  358.     

  359.     subroutine ChangeStandPipe1(status)

  360.         USE MudSystemVARIABLES

  361. use SimulationVariables !@@@

  362.         implicit none

  363.         integer, intent (in) :: status

  364. ! if(associated(StandPipe1Ptr)) call StandPipe1Ptr(status)

  365.         if(status == Clear_StatusType)          data%State%MudSystem%StandPipeGauge1Malf = 0

  366.         if(status == Executed_StatusType)       data%State%MudSystem%StandPipeGauge1Malf = 1

  367.     endsubroutine

  368.     

  369.     subroutine ChangeStandPipe2(status)

  370.         USE MudSystemVARIABLES

  371. use SimulationVariables !@@@

  372.         implicit none

  373.         integer, intent (in) :: status

  374. ! if(associated(StandPipe2Ptr)) call StandPipe2Ptr(status)

  375.         if(status == Clear_StatusType)          data%State%MudSystem%StandPipeGauge2Malf = 0

  376.         if(status == Executed_StatusType)       data%State%MudSystem%StandPipeGauge2Malf = 1

  377.     endsubroutine

  378.     

  379.     subroutine ChangeDrillPipePressure(status)

  380.         USE MudSystemVARIABLES

  381. use SimulationVariables !@@@

  382.         implicit none

  383.         integer, intent (in) :: status

  384. ! if(associated(DrillPipePressurePtr)) call DrillPipePressurePtr(status)

  385.         if(status == Clear_StatusType)         data%State%MudSystem%DrillPipePressureMalf = 0

  386.         if(status == Executed_StatusType)      data%State%MudSystem%DrillPipePressureMalf = 1

  387.     endsubroutine

  388.     

  389.     subroutine ChangeChokePosition(status)

  390.         USE CHOKEVARIABLES

  391. use SimulationVariables !@

  392.         implicit none

  393.         integer, intent (in) :: status

  394. ! if(associated(ChokePositionPtr)) call ChokePositionPtr(status)

  395.         if(status == Clear_StatusType) data%State%Choke%GaugeChokePositionMailf = 0

  396.         if(status == Executed_StatusType) data%State%Choke%GaugeChokePositionMailf = 1

  397.     endsubroutine

  398.     

  399.     subroutine ChangeCasingPressure2(status)

  400.         USE FricPressDropVarsModule

  401.         implicit none

  402.         integer, intent (in) :: status

  403. ! if(associated(CasingPressure2Ptr)) call CasingPressure2Ptr(status)

  404.         if(status == Clear_StatusType)          data%State%FricPressDrop%CasingPressure_ChokeMalF = 0

  405.         if(status == Executed_StatusType)       data%State%FricPressDrop%CasingPressure_ChokeMalF = 1

  406.     endsubroutine

  407. 

  408. end module CGaugesProblems