Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | InletNodeNum | = | 0 | ||
integer, | public | :: | OutletNodeNum | = | 0 |
TYPE DuctData
CHARACTER(len=MaxNameLength) :: Name = ' ' ! duct unique name
INTEGER :: InletNodeNum = 0 ! inlet node number
INTEGER :: OutletNodeNum = 0 ! outlet node number
END TYPE DuctData