dump_tem_BC_logicalHeader Subroutine

  subroutine dump_tem_BC_logicalHeader( headerfile, propname, nBCtypes, &
    &                                   flag_per_BC                     )
    ! ---------------------------------------------------------------------------
    character(len=*), intent(in) :: headerfile
    character(len=*), intent(in) :: propname
    integer, intent(in) :: nBCtypes
    logical, intent(in) :: flag_per_BC(nBCtypes)
    ! ---------------------------------------------------------------------------
    integer :: i
    type(aot_out_type) :: conf ! aotus lua state to write output
    ! ---------------------------------------------------------------------------

    call aot_out_open( conf, headerfile )
    call aot_out_open_table( conf, propname )
    do i = 1, nBCtypes
      call aot_out_val( conf, val = flag_per_BC(i) )
    end do
    call aot_out_close_table(conf)
    ! close the mesh header file
    call aot_out_close(conf)
  end subroutine dump_tem_BC_logicalHeader