!-----------------------------------------------------------------------
! INCLUDE comconst.h

      COMMON/comconst/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,
     * dtvr,daysec,
     * pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg

      INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
      REAL dtvr,daysec
      REAL pi,dtphys,dtdiss,rad,r,cpp,kappa
      REAL cotot,unsim,g,omeg

!-----------------------------------------------------------------------