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/Equipments/ControlPanels/CTopDrivePanel.i90

84 lines
4.0 KiB
Raw Permalink Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/Equipments/ControlPanels/CTopDrivePanel.f90"

  2. module CTopDrivePanel

  3.     use CTopDrivePanelVariables

  4.     use SimulationVariables

  5.     use CLog3

  6.     implicit none    

  7.     public    

  8.     contains

  9. 

  10.     subroutine TopDrivePanelFromJson(parent)

  11.         type(json_value),pointer :: parent

  12.         type(json_core) :: json

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

  14.         logical::is_found

  15. 

  16. ! 1. get related root

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

  18.         

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  34. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  51.     end subroutine

  52. 

  53.     subroutine TopDrivePanelToJson(parent)

  54. 

  55.         type(json_value),pointer :: parent

  56.         type(json_core) :: json

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

  58. 

  59. ! 1. create new node

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

  61. 

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

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

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

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

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

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

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

  69. 

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

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

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

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

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

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

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

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

  78. 

  79. 

  80.         call json%add(parent,p)

  81.     end subroutine

  82.     

  83. end module CTopDrivePanel