Redundant initialization of bandpass structure

[haraltho]

In comm_data_mod

The fields data(n)%tod%label(j) and cpar%ds_tod_dets(i) are both supposed to hold the detector names. Get rid of one.

do j = 1, data(n)%ndet
    data(n)%bp(j)%p => comm_bp(cpar, n, i, detlabel=data(n)%tod%label(j))
end do

if (trim(cpar%ds_tod_type(i)) == 'none') then
    data(n)%bp(0)%p => comm_bp(cpar, n, i, detlabel=data(n)%label)
else
    data(n)%bp(0)%p => comm_bp(cpar, n, i, subdets=cpar%ds_tod_dets(i))
end if