|
|
|
@@ -1,5 +1,4 @@ |
|
|
|
module CStringConfigurationVariables
|
|
|
|
! !@use ConfigurationVariables, only: Configuration
|
|
|
|
implicit none
|
|
|
|
public
|
|
|
|
!constants
|
|
|
|
@@ -13,10 +12,6 @@ module CStringConfigurationVariables |
|
|
|
integer :: PDC_BitType = 1
|
|
|
|
integer :: Rock_BitType = 2
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
! types
|
|
|
|
! Pipe Items in String Array
|
|
|
|
type, bind(c), public :: CStringItem
|
|
|
|
integer :: ComponentType
|
|
|
|
real(8) :: NumberOfJoint
|
|
|
|
@@ -29,8 +24,6 @@ module CStringConfigurationVariables |
|
|
|
character(1) :: Grade
|
|
|
|
end type CStringItem
|
|
|
|
|
|
|
|
! types
|
|
|
|
! Pipe Items in String Array
|
|
|
|
type, bind(c), public :: CBitInfo
|
|
|
|
integer :: BitType
|
|
|
|
real(8) :: BitSize
|
|
|
|
|
