INTEGER*2 noz_p, npr_p, nrs_p, ntc_p, np_p, nq_p
      PARAMETER(noz_p=10, npr_p=2, nrs_p=8, ntc_p=11, np_p=5, nq_p=5)

      INTEGER*4 eryth_noz, eryth_npr, eryth_nrs, eryth_ntc
      INTEGER*4 eryth_np, eryth_nq
      REAL*8 eryth_oz(0:noz_p-1), eryth_pr(0:npr_p-1)
      REAL*8 eryth_rs(0:nrs_p-1), eryth_tc(0:ntc_p-1)
      REAL*8 eryth_p(0:np_p-1), eryth_q(0:nq_p-1)
      REAL*8 eryth_logpr(0:npr_p-1)
      REAL*8 eryth_val(0:nq_p-1, 0:np_p-1, 0:ntc_p-1, 0:nrs_p-1, 
     &                                          0:npr_p-1, 0:noz_p-1)

      COMMON /erythcmn/ eryth_val, eryth_oz, eryth_pr, eryth_rs, 
     &    eryth_tc, eryth_p, eryth_q, eryth_logpr,
     &    eryth_noz, eryth_npr, eryth_nrs, eryth_ntc, 
     &    eryth_np, eryth_nq

      SAVE /erythcmn/