!-----------------------------------------------------------------------
!       integer(4),pointer::ihe(:),ihw(:),ive(:),ivw(:),irad(:)
!       COMMON/INDX/IHE,IHW,IVE,IVW,IRAD

       integer(4),pointer::ihe(:),ihw(:),ive(:),ivw(:)
       COMMON/INDX/IHE,IHW,IVE,IVW
!-----------------------------------------------------------------------
       integer(4),pointer::iheg(:),ihwg(:),iveg(:),ivwg(:),iradg(:)
       COMMON/INDXG/IHEG,IHWG,IVEG,IVWG,IRADG
!-----------------------------------------------------------------------