dump_tem_BC_qVal Subroutine

  subroutine dump_tem_BC_qVal( me, offset, nElems, basename, myPart, comm )
    ! ---------------------------------------------------------------------------
    !> Boundary condition construct to load the data into
    type(tem_BC_prop_type), intent(in) :: me
    !> Offset of the local set of elements in the global list
    integer(kind=long_k), intent(in) :: offset
    !> Local number of elements with this property
    integer, intent(in) :: nElems
    !> Name of the file, the data is stored in, will be appended with
    !! ".lua" for the header information and ".lsb" or ".msb" for the
    !! binary data.
    character(len=*), intent(in) :: basename
    !> Partition to dump
    integer, intent(in) :: myPart
    !> Communicator to use
    integer, intent(in) :: comm
    ! ---------------------------------------------------------------------------
    integer, parameter :: root = 0
    character(len=256) :: headerfile
    ! ---------------------------------------------------------------------------

    headerfile = trim(basename)//'.lua'

    if (myPart == root) then
      ! Only root partition needs to write the header
      !open up the mesh header lua file to dump the stuff using aotus library
      call dump_tem_BC_qValHeader( me, headerfile )
    end if

    call dump_tem_BC_realArray( offset   = offset,    &
      &                         arraylen = me%nSides, &
      &                         nElems   = nElems,    &
      &                         propdat  = me%qval,   &
      &                         basename = basename,  &
      &                         comm     = comm       )

  end subroutine dump_tem_BC_qVal