C-----------------------------------------------------------------------
                        C O M M O N /INDX/
     & IHE(JM),IHW(JM),IVE(JM),IVW(JM)
C-----------------------------------------------------------------------
                        save /INDX/