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

123 lines
6.7 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. 		integer::i,n_children

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

  18. 

  19. 

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

  21. 

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

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

  24. 		if (.not. allocated(data%Configuration%StringConfiguration%StringConfigurations)) then

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

  26. 		endif

  27. 		if(size(data%Configuration%StringConfiguration%StringConfigurations)/=n_children) then

  28. 			DEALLOCATE(data%Configuration%StringConfiguration%StringConfigurations)

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

  30. 		endif

  31. 

  32. 

  33. 		do i=1,n_children

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

  35. 	

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  53. 			call json%get(pval,val)

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

  55. 		end do

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  77. 	end subroutine

  78. 

  79.     subroutine StringConfigurationToJson(parent)

  80. 

  81.         type(json_value),pointer :: parent

  82.         type(json_core) :: json

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

  84. 		integer:: i,n

  85.         ! 1. create new node

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

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

  88. 

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

  90. 		n = data%Configuration%StringConfiguration%StringConfigurationCount

  91. 		do i=1,n

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

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

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

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

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

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

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

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

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

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

  102. 			call json%add(pitems,pitem)

  103. 		end do

  104. 		

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

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

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

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

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

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

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

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

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

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

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

  116. 

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

  118.         ! 3. add new node to parent

  119. 		call json%add(p,pitems)

  120. 		call json%add(p,pbit)

  121. 		call json%add(parent,p)

  122.     end subroutine

  123. end module CStringConfiguration