
            buffer2 = 0.0_dp
            imax=nsoa*ncoc*ncod
            jmax=nsob
            kmax=ncob
