Subroutine to initialize the dyanmic content of a face list.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_faceList_type), | intent(inout) | :: | faceList |
The face list to initialize. |
subroutine tem_init_faceList( faceList ) ! -------------------------------------------------------------------------- !> The face list to initialize. type(tem_faceList_type), intent(inout) :: faceList ! -------------------------------------------------------------------------- call init( me = faceList%faceId, length = 32 ) call init( me = faceList%rightElemId, length = 32 ) call init( me = faceList%leftElemPos, length = 32 ) call init( me = faceList%rightElemPos, length = 32 ) call init( me = faceList%leftPrp, length = 32 ) call init( me = faceList%rightPrp, length = 32 ) end subroutine tem_init_faceList