C-----------------------------------------------------------------------
                        COMMON /INDX/
     & IHE(JDIM1:JDIM2),IHW(JDIM1:JDIM2)
     &,IVE(JDIM1:JDIM2),IVW(JDIM1:JDIM2)
     &,IRAD(IDIM1:IDIM2)
                        save /INDX/
C-----------------------------------------------------------------------
                        COMMON /INDXG/
     & IHEG(JM),IHWG(JM),IVEG(JM),IVWG(JM),IRADG(2*IM-1)
                        save /INDXG/
C-----------------------------------------------------------------------