!-----------------------------------------------------------------------
      integer(4),pointer::ihla(:),ihha(:),ivla(:),ivha(:),jra(:)
      integer(4),pointer::lmh(:,:),lmv(:,:)
      COMMON/LOOPS/IHLA,IHHA,IVLA,IVHA,JRA,LMH,LMV
!-----------------------------------------------------------------------