!
! Shared common for aurora:
! THETA0 through RR1 are defined by tail, COLATC,P by colath,
! and CRIT by adheel. (colath and adheel are called from dynamo)
!
      real :: theta0,offa,offc,dskofa,dskofc,phid,phin,phidp0,phidm0,
     |  phinp0,phinm0,psim,psie,pcen,rr1,colatc,p,crit
      COMMON /IONCR/ THETA0(2),OFFA(2),OFFC(2),DSKOFA(2),
     1  DSKOFC(2),PHID(2),PHIN(2),PHIDP0(2),PHIDM0(2),PHINP0(2),
     2  PHINM0(2),PSIM(2),PSIE(2),PCEN(2),RR1(2),COLATC(IMAXMP,JMX0),
     3  P(IMX0,JMX0),CRIT(2)
      integer :: istar
      common/ioncr_istar/ istar