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.
42 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Branch: najafi
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'najafi'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CTopDrivePanel.f90

41 lines
2.1 KiB
Raw Permalink Blame History 

  1. module CTopDrivePanel

  2.     use CTopDrivePanelVariables

  3.     use SimulationVariables

  4.     use CLog3

  5.     implicit none    

  6.     public    

  7.     contains

  8. 

  9.     subroutine TopDrivePanelToJson(parent)

  10. 

  11.         type(json_value),pointer :: parent

  12.         type(json_core) :: json

  13.         type(json_value),pointer :: p,pform

  14.         integer :: i

  15. 

  16. 

  17.         ! 1. create new node

  18.         call json%create_object(p,'TopDrivePanel')

  19.             

  20.         call json%add(pform,"TopDriveTdsPowerState",data%EquipmentControl%TopDrivePanel%TopDriveTdsPowerState)

  21.         call json%add(pform,"TopDriveTorqueWrench",data%EquipmentControl%TopDrivePanel%TopDriveTorqueWrench)

  22.         call json%add(pform,"TopDriveDrillTorqueState",data%EquipmentControl%TopDrivePanel%TopDriveDrillTorqueState)

  23.         call json%add(pform,"TopDriveLinkTiltState",data%EquipmentControl%TopDrivePanel%TopDriveLinkTiltState)

  24.         call json%add(pform,"TopDriveIbop",data%EquipmentControl%TopDrivePanel%TopDriveIbop)

  25.         call json%add(pform,"TopDriveTorqueLimitKnob",data%EquipmentControl%TopDrivePanel%TopDriveTorqueLimitKnob)

  26.         call json%add(pform,"RpmKnob",data%EquipmentControl%TopDrivePanel%RpmKnob)

  27.         call json%add(pform,"TopDriveOperationFaultLed",data%EquipmentControl%TopDrivePanel%TopDriveOperationFaultLed)

  28.         call json%add(pform,"TopDriveTdsPowerLed",data%EquipmentControl%TopDrivePanel%TopDriveTdsPowerLed)

  29.         call json%add(pform,"TopDriveTorqueWrenchLed",data%EquipmentControl%TopDrivePanel%TopDriveTorqueWrenchLed)

  30.         call json%add(pform,"TopDriveLinkTiltLed",data%EquipmentControl%TopDrivePanel%TopDriveLinkTiltLed)

  31.         call json%add(pform,"TopDriveIbopLed",data%EquipmentControl%TopDrivePanel%TopDriveIbopLed)

  32.         call json%add(pform,"TopDriveTorqueLimitGauge",data%EquipmentControl%TopDrivePanel%TopDriveTorqueLimitGauge)

  33.         call json%add(pform,"TopDriveTorqueGauge",data%EquipmentControl%TopDrivePanel%TopDriveTorqueGauge)

  34.         call json%add(pform,"TopDriveRpmGauge",data%EquipmentControl%TopDrivePanel%TopDriveRpmGauge)

  35. 

  36. 

  37.         call json%add(parent,p)

  38.     end subroutine

  39.     

  40. end module CTopDrivePanel