C-----------------------------------------------------------------------
                             common /MASKS/
     & HBM2(IM,JM),VBM2(IM,JM),VBM3(IM,JM),SM  (IM,JM),SICE(IM,JM)
C
     &,HTM (IM,JM,LM),VTM (IM,JM,LM)
C-----------------------------------------------------------------------
                             save /MASKS/