C-----------------------------------------------------------------------
                             COMMON /LOOPS/
     & IHLA(JAM),IHHA(JAM),IVLA(JAM),IVHA(JAM),JRA(JAM)
     &,LMH(IDIM1:IDIM2,JDIM1:JDIM2),LMV(IDIM1:IDIM2,JDIM1:JDIM2)
                             save /LOOPS/
C-----------------------------------------------------------------------