module CChokeManifoldVariables implicit none public Type :: ChokeManifoldType ! Input vars logical :: ChokeManifoldValve1 logical :: ChokeManifoldValve2 real(8) :: LeftManualChoke logical :: ChokeManifoldValve4 logical :: ChokeManifoldValve5 real(8) :: RightManualChoke logical :: ChokeManifoldValve7 logical :: ChokeManifoldValve8 logical :: ChokeManifoldValve9 logical :: ChokeManifoldValve10 logical :: ChokeManifoldValve11 logical :: ChokeManifoldValve12 logical :: ChokeManifoldValve13 ! Output vars integer :: HydraulicChock1 integer :: HydraulicChock2 ! Control vars logical :: HyChock1OnProblem = .false. logical :: HyChock2OnProblem = .false. logical :: LeftManChokeOnProblem = .false. logical :: RightManChokeOnProblem = .false. End Type ChokeManifoldType contains endmodule CChokeManifoldVariables