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.
47 Commits
2 Branches
136 MiB
 
 
 
 
 
 
Tree: a355d9cc30
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'a355d9cc30'
${ noResults }
SimulationCore2/CSharp/BasicInputs/Bha/CStringConfiguration.i90

120 lines
6.5 KiB
Raw Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/BasicInputs/Bha/CStringConfiguration.f90"

  2. module CStringConfiguration

  3. 	use CStringConfigurationVariables

  4. 	use SimulationVariables

  5. 	use json_module

  6. 	

  7. 	implicit none    

  8. 	public    

  9.     contains

  10.     

  11. 	subroutine StringConfigurationFromJson(parent)

  12. 		use json_module,IK =>json_ik

  13.         type(json_value),pointer :: parent

  14.         type(json_core) :: json

  15.         type(json_value),pointer :: p,pitems,pitem,pval,pbit

  16. 		logical::is_found

  17. 		type(CStringItem) :: item

  18. 		integer::i,n_children

  19. 		CHARACTER(KIND=JSON_CK, LEN=:), ALLOCATABLE :: val

  20. 

  21. 

  22.         call json%get(parent,'StringConfiguration',p)

  23. 

  24. 		call json%get(p,'StringConfigurationItems',pitems)

  25. 		call json%info(pitems, n_children=n_children)

  26. 		if (.not. allocated(data%Configuration%StringConfiguration%StringConfigurations) .or. size(data%Configuration%StringConfiguration%StringConfigurations)/=n_children) then

  27. 			ALLOCATE(data%Configuration%StringConfiguration%StringConfigurations(n_children))

  28. 		endif

  29. 		do i=1,n_children

  30. 			call json%get_child(pitems, i, pitem, found=is_found)

  31. 	

  32. 			call json%get(pitem,"ComponentType",pval)

  33. 			call json%get(pval,data%Configuration%StringConfiguration%StringConfigurations(i)%ComponentType)

  34. 			call json%get(pitem,"NumberOfJoint",pval)

  35. 			call json%get(pval,data%Configuration%StringConfiguration%StringConfigurations(i)%NumberOfJoint)

  36. 			call json%get(pitem,"LengthPerJoint",pval)

  37. 			call json%get(pval,data%Configuration%StringConfiguration%StringConfigurations(i)%LengthPerJoint)

  38. 			call json%get(pitem,"NominalOd",pval)

  39. 			call json%get(pval,data%Configuration%StringConfiguration%StringConfigurations(i)%NominalOd)

  40. 			call json%get(pitem,"NominalId",pval)

  41. 			call json%get(pval,data%Configuration%StringConfiguration%StringConfigurations(i)%NominalId)

  42. 			call json%get(pitem,"WeightPerLength",pval)

  43. 			call json%get(pval,data%Configuration%StringConfiguration%StringConfigurations(i)%WeightPerLength)

  44. 			call json%get(pitem,"ComponentLength",pval)

  45. 			call json%get(pval,data%Configuration%StringConfiguration%StringConfigurations(i)%ComponentLength)

  46. 			call json%get(pitem,"NominalToolJointOd",pval)

  47. 			call json%get(pval,data%Configuration%StringConfiguration%StringConfigurations(i)%NominalToolJointOd)

  48. 			call json%get(pitem,"Grade",pval)

  49. 			call json%get(pval,val)

  50. 			data%Configuration%StringConfiguration%StringConfigurations(i)%Grade = val

  51. 		end do

  52. 		call json%get(p,'BitDefenition',pbit)

  53. 		call json%get(pbit,'BitType',pval)

  54. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%BitType)

  55. 		call json%get(pbit,'BitSize',pval)

  56. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%BitSize)

  57. 		call json%get(pbit,'BitCodeHundreds',pval)

  58. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%BitCodeHundreds)

  59. 		call json%get(pbit,'BitCodeTens',pval)

  60. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%BitCodeTens)

  61. 		call json%get(pbit,'BitCodeOnes',pval)

  62. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%BitCodeOnes)

  63. 		call json%get(pbit,'BitNozzleSize',pval)

  64. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%BitNozzleSize)

  65. 		call json%get(pbit,'BitLength',pval)

  66. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%BitLength)

  67. 		call json%get(pbit,'BitWeightPerLength',pval)

  68. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%BitWeightPerLength)

  69. 		call json%get(pbit,'BitNozzleNo',pval)

  70. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%BitNozzleNo)

  71. 		call json%get(pbit,'FloatValve',pval)

  72. 		call json%get(pval,data%Configuration%StringConfiguration%BitDefinition%FloatValve)

  73. 	end subroutine

  74. 

  75.     subroutine StringConfigurationToJson(parent)

  76. 

  77.         type(json_value),pointer :: parent

  78.         type(json_core) :: json

  79.         type(json_value),pointer :: pitems,pitem,pbit,p

  80. 		integer:: i,n

  81. ! 1. create new node

  82. 		call json%create_object(p,'StringConfiguration')

  83.         call json%create_array(pitems,'StringConfigurationItems')

  84. 

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

  86. 		n = data%Configuration%StringConfiguration%StringConfigurationCount

  87. 		do i=1,n

  88. 			call json%create_object(pitem,'')

  89. 			call json%add(pitem,"ComponentLength",data%Configuration%StringConfiguration%StringConfigurations(i)%ComponentLength)

  90. 			call json%add(pitem,"ComponentType",data%Configuration%StringConfiguration%StringConfigurations(i)%ComponentType)

  91. 			call json%add(pitem,"Grade",data%Configuration%StringConfiguration%StringConfigurations(i)%Grade)

  92. 			call json%add(pitem,"LengthPerJoint",data%Configuration%StringConfiguration%StringConfigurations(i)%LengthPerJoint)

  93. 			call json%add(pitem,"NominalId",data%Configuration%StringConfiguration%StringConfigurations(i)%NominalId)

  94. 			call json%add(pitem,"NominalOd",data%Configuration%StringConfiguration%StringConfigurations(i)%NominalOd)

  95. 			call json%add(pitem,"NominalToolJointOd",data%Configuration%StringConfiguration%StringConfigurations(i)%NominalToolJointOd)

  96. 			call json%add(pitem,"NumberOfJoint",data%Configuration%StringConfiguration%StringConfigurations(i)%NumberOfJoint)

  97. 			call json%add(pitem,"WeightPerLength",data%Configuration%StringConfiguration%StringConfigurations(i)%WeightPerLength)

  98. 			call json%add(pitems,pitem)

  99. 		end do

  100. 		

  101. 		call json%create_object(pbit,"BitDefenition")

  102. 		call json%add(pbit,"BitCodeHundreds",data%Configuration%StringConfiguration%BitDefinition%BitCodeHundreds)

  103. 		call json%add(pbit,"BitCodeOnes",data%Configuration%StringConfiguration%BitDefinition%BitCodeOnes)

  104. 		call json%add(pbit,"BitCodeTens",data%Configuration%StringConfiguration%BitDefinition%BitCodeTens)

  105. 		call json%add(pbit,"BitLength",data%Configuration%StringConfiguration%BitDefinition%BitLength)

  106. 		call json%add(pbit,"BitNozzleNo",data%Configuration%StringConfiguration%BitDefinition%BitNozzleNo)

  107. 		call json%add(pbit,"BitNozzleSize",data%Configuration%StringConfiguration%BitDefinition%BitNozzleSize)

  108. 		call json%add(pbit,"BitSize",data%Configuration%StringConfiguration%BitDefinition%BitSize)

  109. 		call json%add(pbit,"BitType",data%Configuration%StringConfiguration%BitDefinition%BitType)

  110. 		call json%add(pbit,"BitWeightPerLength",data%Configuration%StringConfiguration%BitDefinition%BitWeightPerLength)

  111. 		call json%add(pbit,"FloatValve",data%Configuration%StringConfiguration%BitDefinition%FloatValve)

  112. 

  113. ! call json%add(p,"StringConfigurationCount",dat%Configuration%StringConfiguration%StringConfigurationCount)

  114. ! 3. add new node to parent

  115. 		call json%add(p,pitems)

  116. 		call json%add(p,pbit)

  117. 		call json%add(parent,p)

  118.     end subroutine

  119. end module CStringConfiguration