mahmood19227
/
SimulationCore2
1
0
Vork 0
Code Kwesties 0 Pull-aanvragen 0 Publicaties 0 Wiki Activiteit
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.
62 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 95ad7885e9
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van '95ad7885e9'
${ noResults }
SimulationCore2/CSharp/Equipments/ControlPanels/CTopDrivePanel.f90

83 regels
4.1 KiB
Ruw Blame Geschiedenis 

  1. module CTopDrivePanel

  2.     use CTopDrivePanelVariables

  3.     use SimulationVariables

  4.     use CLog3

  5.     implicit none    

  6.     public    

  7.     contains

  8. 

  9.     subroutine TopDrivePanelFromJson(parent)

  10.         type(json_value),pointer :: parent

  11.         type(json_core) :: json

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

  13.         logical::is_found

  14. 

  15.         ! 1. get related root

  16.         call json%get(parent,'TopDrivePanel',p)

  17.         

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

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

  20. 		call json%get(pval,data%Equipments%TopDrivePanel%TopDriveTdsPowerState)

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

  22. 		call json%get(pval,data%Equipments%TopDrivePanel%TopDriveTorqueWrench)

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

  24. 		call json%get(pval,data%Equipments%TopDrivePanel%TopDriveDrillTorqueState)

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

  26. 		call json%get(pval,data%Equipments%TopDrivePanel%TopDriveLinkTiltState)

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

  28. 		call json%get(pval,data%Equipments%TopDrivePanel%TopDriveIbop)

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

  30. 		call json%get(pval,data%Equipments%TopDrivePanel%TopDriveTorqueLimitKnob)

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

  32. 		call json%get(pval,data%Equipments%TopDrivePanel%RpmKnob)

  33. 

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

  35. 		! call json%get(pval,data%Equipments%TopDrivePanel%TopDriveOperationFaultLed)

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

  37. 		! call json%get(pval,data%Equipments%TopDrivePanel%TopDriveTdsPowerLed)

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

  39. 		! call json%get(pval,data%Equipments%TopDrivePanel%TopDriveTorqueWrenchLed)

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

  41. 		! call json%get(pval,data%Equipments%TopDrivePanel%TopDriveLinkTiltLed)

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

  43. 		! call json%get(pval,data%Equipments%TopDrivePanel%TopDriveIbopLed)

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

  45. 		! call json%get(pval,data%Equipments%TopDrivePanel%TopDriveTorqueLimitGauge)

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

  47. 		! call json%get(pval,data%Equipments%TopDrivePanel%TopDriveTorqueGauge)

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

  49. 		! call json%get(pval,data%Equipments%TopDrivePanel%TopDriveRpmGauge)

  50.     end subroutine

  51. 

  52.     subroutine TopDrivePanelToJson(parent)

  53. 

  54.         type(json_value),pointer :: parent

  55.         type(json_core) :: json

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

  57. 

  58.         ! 1. create new node

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

  60. 

  61.         ! call json%add(pform,"TopDriveTdsPowerState",data%Equipments%TopDrivePanel%TopDriveTdsPowerState)

  62.         ! call json%add(pform,"TopDriveTorqueWrench",data%Equipments%TopDrivePanel%TopDriveTorqueWrench)

  63.         ! call json%add(pform,"TopDriveDrillTorqueState",data%Equipments%TopDrivePanel%TopDriveDrillTorqueState)

  64.         ! call json%add(pform,"TopDriveLinkTiltState",data%Equipments%TopDrivePanel%TopDriveLinkTiltState)

  65.         ! call json%add(pform,"TopDriveIbop",data%Equipments%TopDrivePanel%TopDriveIbop)

  66.         ! call json%add(pform,"TopDriveTorqueLimitKnob",data%Equipments%TopDrivePanel%TopDriveTorqueLimitKnob)

  67.         ! call json%add(pform,"RpmKnob",data%Equipments%TopDrivePanel%RpmKnob)

  68. 

  69.         call json%add(pform,"TopDriveOperationFaultLed",data%Equipments%TopDrivePanel%TopDriveOperationFaultLed)

  70.         call json%add(pform,"TopDriveTdsPowerLed",data%Equipments%TopDrivePanel%TopDriveTdsPowerLed)

  71.         call json%add(pform,"TopDriveTorqueWrenchLed",data%Equipments%TopDrivePanel%TopDriveTorqueWrenchLed)

  72.         call json%add(pform,"TopDriveLinkTiltLed",data%Equipments%TopDrivePanel%TopDriveLinkTiltLed)

  73.         call json%add(pform,"TopDriveIbopLed",data%Equipments%TopDrivePanel%TopDriveIbopLed)

  74.         call json%add(pform,"TopDriveTorqueLimitGauge",data%Equipments%TopDrivePanel%TopDriveTorqueLimitGauge)

  75.         call json%add(pform,"TopDriveTorqueGauge",data%Equipments%TopDrivePanel%TopDriveTorqueGauge)

  76.         call json%add(pform,"TopDriveRpmGauge",data%Equipments%TopDrivePanel%TopDriveRpmGauge)

  77. 

  78. 

  79.         call json%add(parent,p)

  80.     end subroutine

  81.     

  82. end module CTopDrivePanel