Clone DimLabels from one wave to another

// takes DimLabels from wL and clones it to w
// labels as much as possible in case of varying dimension lengths
// optionally one can choose one dimension to be cloned instead of all
function CloneDimLabels(wL,w [,dim])
    wave wL, w
    variable dim
   
    variable nDim, i, npntsL, npnts, minPnts

    // run through all four dimensions
    for(nDim=0; nDim<3; nDim+=1)
       
        if(!ParamIsDefault(dim))
            // if dim is specified, skip all others
            if(nDim != dim)
                continue
            endif
        endif
       
        // check if a dimension exists in both waves
        npntsL = DimSize(wL, nDim)
        npnts = DimSize(w, nDim)
               
        if(npntsL > 0 && npnts > 0)
            // compare dimension size  
            minPnts = min(npntsL, npnts)       
            for(i=0; i<minPnts; i+=1)      
                SetDimLabel nDim, i, $GetDimLabel(wL, nDim, i), w
            endfor
        endif      
    endfor
   
    return 1
end