Local variables to be added
integer          ifac, iel, ii, ivar
integer          ilelt, nlelt, izone
integer, allocatable, dimension(:) :: lstelt
Initialization and finalization
Initialization and finalization is similar to that of the base examples
Example 1
Assign a free outlet for faces of color/group 2
do ilelt = 1, nlelt
  ifac = lstelt(ilelt)
  izone = 1
  
  
  
  
enddo
  
Example 2
Assign a wall condition for faces of color/group 4
do ilelt = 1, nlelt
  ifac = lstelt(ilelt)
  izone = 2
enddo
  
Example 3
Assign a symmetry for faces of color/group 5
do ilelt = 1, nlelt
  ifac = lstelt(ilelt)
  izone = 3
enddo