!
! Auroral parameters:
!
      real :: rrad,h0,rh,rroth,e0,ree,rrote,fc,alfac,fd,alfad,
     |  alfk,alf6,alf21,rrot6,rrot21,rd6,rd6v,rd21,rh6,rh21,rt6,rt21,
     |  alfa0,ralfa,alfa20,ralfa2,e20,re2,alfa30,e30,fd2,alfad2,ed2
      COMMON /OVALR/ RRAD(2),H0,RH,RROTH,E0,REE,RROTE,FC,ALFAC,FD,ALFAD
     |, ALFK,ALF6,ALF21,RROT6,RROT21,RD6,RD6V,RD21,RH6,RH21,RT6,RT21
     |, ALFA0,RALFA,ALFA20,RALFA2,E20,RE2
     |, ALFA30,E30,FD2,ALFAD2,ED2