C   
C
      PARAMETER (Nrad=500)              ! Number of shells
      COMMON /CONTROL/AEXPN,dA,Time,Ndisk,Ngulge,aMdisk,Ntab
      COMMON /DISK/ Nradd(0:Nrad),Vfi(0:Nrad),Vrad(0:Nrad),
     +             Vzz(0:Nrad),Vfi2(0:Nrad),
     +             Vrad2(0:Nrad),Vcdisk(0:Nrad),Radd(0:Nrad),
     +             Radout(0:Nrad),Nradout(0:Nrad),
     +             Vctot(0:Nrad)
      COMMON /BULGE/ Nradb(0:Nrad),Nradbout(0:Nrad),Vfib(0:Nrad),
     +             Vcbulge(0:Nrad)
      COMMON /HALO/ Nradh(0:Nrad),Nradhout(0:Nrad),
     +             Vch(0:Nrad),Densh(0:Nrad),
     +             Radh(0:Nrad),Radhout(0:Nrad)