TYPE WindowStateIndex
INTEGER :: InitInc !Flag indicating initialization needed on Incoming basis
INTEGER :: IncBasisIndx !Index of basis list entry for Incoming basis
INTEGER :: CopyIncState !Pointer to state from which geometry can be copied (Incident)
INTEGER :: InitTrn !Flag indicating initialization needed on Outgoing basis
INTEGER :: TrnBasisIndx !Index of basis list entry for Outgoing basis
INTEGER :: CopyTrnState !Pointer to state from which geometry can be copied (Outgoing)
INTEGER :: Konst !Index of state descript in Construct array
!INTEGER :: ThermConst !Index of state thermal description in Construct array
END TYPE WindowStateIndex