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.
44 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 5908248fa4
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5908248fa4'
${ noResults }
SimulationCore2/CSharp/BasicInputs/Bha/CStringConfiguration.f90

117 lines
6.6 KiB
Raw Blame History 

  1. module CStringConfiguration

  2. 	use CStringConfigurationVariables

  3. 	use SimulationVariables

  4. 	use json_module

  5. 	

  6. 	implicit none    

  7. 	public    

  8.     contains

  9.     

  10. 	subroutine StringConfigurationFromJson(parent)

  11. 		use json_module,IK =>json_ik

  12.         type(json_value),pointer :: parent

  13.         type(json_core) :: json

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

  15. 		logical::is_found

  16. 		type(CStringItem) :: item

  17. 		integer::i,n_children

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

  19. 

  20. 

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

  22. 

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

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

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

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

  27. 		endif

  28. 		do i=1,n_children

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

  30. 	

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  48. 			call json%get(pval,val)

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

  50. 		end do

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  72. 	end subroutine

  73. 

  74.     subroutine StringConfigurationToJson(parent)

  75. 

  76.         type(json_value),pointer :: parent

  77.         type(json_core) :: json

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

  79. 		integer:: i

  80.         ! 1. create new node

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

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

  83. 

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

  85. 		do i=1,data%Configuration%StringConfiguration%StringConfigurationCount

  86. 			call json%create_object(pitem,'StringConfigurationItem')

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

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

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

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

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

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

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

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

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

  96. 			call json%add(pitems,pitem)

  97. 		end do

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

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

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

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

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

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

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

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

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

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

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

  109. 

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

  111.         ! 3. add new node to parent

  112. 		call json%add(p,pitems)

  113. 		call json%add(p,pbit)

  114. 		call json%add(parent,p)

  115.     end subroutine

  116.     

  117. end module CStringConfiguration