real :: xnmbr,ratio1,ratio2,ratio3,rmtru,ratio4,ratio5,ratio6,
     |  rmtru1
      COMMON/CMPCM/XNMBR(ZIMXP,ZKMXP),RATIO1(ZIMXP,ZKMXP),
     1RATIO2(ZIMXP,ZKMXP),RATIO3(ZIMXP,ZKMXP),RMTRU(ZIMXP,ZKMXP)
     2,RATIO4(ZIMXP,ZKMXP),RATIO5(ZIMXP,ZKMXP),RATIO6(ZIMXP,ZKMXP)
     3,RMTRU1(ZIMXP,ZKMXP)
!$OMP THREADPRIVATE (/cmpcm/)
!DIR$ TASKCOMMON CMPCM