TYPE, PRIVATE :: CaseAndWalkInListDef ! Derived Type for CaseAndWalkIn Lists
CHARACTER(len=MaxNameLength) :: Name =' ' ! Name of this CaseAndWalkIn List
INTEGER :: NumCases = 0 ! Number of Cases in this CaseAndWalkIn List
INTEGER :: NumCoils = 0 ! Number of Coils in this CaseAndWalkIn List
INTEGER :: NumWalkIns = 0 ! Number of WalkIns in this CaseAndWalkIn List
INTEGER, ALLOCATABLE, DIMENSION(:) :: CaseItemNum ! List of Item numbers that correspond to each Case
INTEGER, ALLOCATABLE, DIMENSION(:) :: CoilItemNum ! List of Item numbers that correspond to each Coil
INTEGER, ALLOCATABLE, DIMENSION(:) :: WalkInItemNum ! List of Item numbers that correspond to each WalkIn
END TYPE CaseAndWalkInListDef