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