C-----------------------------------------------------------------------
                             C O M M O N /LOOPS/
     & IHLA  (JAM),IHHA  (JAM),IVLA  (JAM),IVHA  (JAM),JRA   (JAM)
C
     &,LMH   (IM,JM),LMV   (IM,JM)
C-----------------------------------------------------------------------
                             save /LOOPS/