Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
real(kind=r64), | public | :: | Spacing | = | 0.0D0 | ||
real(kind=r64), | public | :: | Radius | = | 0.0D0 |
TYPE GapSupportPillar
CHARACTER(len=MaxNameLength) :: Name = ' ' ! Name of support pillar
REAL(r64) :: Spacing = 0.0D0 !Spacing between centers of support pillars (m)
REAL(r64) :: Radius = 0.0D0 !Support pillar radius (m)
END TYPE GapSupportPillar