!
! Common /rates_share/ contains variables that can be shared among
! cpus. These are constants, set from sub con. Remaining vars in
! other commons must be private because they are temperature dependent,
! so are taskcommon (unicos) or threadprivate (irix). 
! (CO2MIX is set in start)
!
      real :: rk4,rk5,rk6,rk7,rk8,rk9,rk10,beta2,beta4,beta6,
     |  beta7,rk16,rk17,rk18,rk22,rk23,rk24,rk27,rk21,rk26
      common/rates_share/
     |  RK4(ZIMXP,ZKMXP),RK5(ZIMXP,ZKMXP),RK6(ZIMXP,ZKMXP),
     |  RK7(ZIMXP,ZKMXP),RK8(ZIMXP,ZKMXP),RK9(ZIMXP,ZKMXP),
     |  RK10(ZIMXP,ZKMXP),BETA2(ZIMXP,ZKMXP),BETA4(ZIMXP,ZKMXP),
     |  BETA6(ZIMXP,ZKMXP),BETA7(ZIMXP,ZKMXP),
     |  RK16(ZIMXP,ZKMXP),RK17(ZIMXP,ZKMXP),RK18(ZIMXP,ZKMXP),
     |  RK21(ZIMXP,ZKMXP),RK22(ZIMXP,ZKMXP),RK23(ZIMXP,ZKMXP),
     |  RK24(ZIMXP,ZKMXP),RK26(ZIMXP,ZKMXP),RK27(ZIMXP,ZKMXP)
!
      real :: rk1,rk2,rk3,ra1,ra2,ra3,beta1,beta3,beta5,beta9,
     |  beta9n,beta17,rk19,rk20,rkm12,rk25,beta8
      common/rates_priv/
     |  RK1(ZIMXP,ZKMXP,1),RK2(ZIMXP,ZKMXP),RK3(ZIMXP,ZKMXP),
     |  RA1(ZIMXP,ZKMXP),RA2(ZIMXP,ZKMXP),RA3(ZIMXP,ZKMXP),
     |  BETA1(ZIMXP,ZKMXP),BETA3(ZIMXP,ZKMXP),BETA5(ZIMXP,ZKMXP),
     |  BETA9(ZIMXP,ZKMXP),BETA9N(ZIMXP,ZKMXP),BETA17(ZIMXP,ZKMXP),
     |  RK19(ZIMXP,ZKMXP),RK20(ZIMXP,ZKMXP),RKM12(ZIMXP,ZKMXP),
     |  RK25(ZIMXP,ZKMXP),BETA8(ZIMXP,ZKMXP)
!
      real :: xiop2d,xiop2p
      common/metas/
     | XIOP2D(ZIMXP,ZKMXP),XIOP2P(ZIMXP,ZKMXP)
!
      real :: fs
      COMMON/FSARAY/FS(ZIMXP,ZKMXP,2,0:2)
!
      real :: tvib,disn2p
      common/rates_priv1/ tvib(zimxp,zkmxp),disn2p(zimxp,zkmxp)
!
!DIR$ TASKCOMMON rates_priv,metas,fsaray,rates_priv1