complex(dp):: Bv(Nbb*Nbmax,-2:0)
      common/Bv/Bv
!$omp threadprivate(/Bv/)