real :: b,fb
      COMMON/CMPBND/B(ZIMXP,2,2),FB(ZIMXP,2)
!$OMP THREADPRIVATE (/cmpbnd/)
!DIR$ TASKCOMMON cmpbnd