C-----------------------------------------------------------------------
                             COMMON /Z0EFFT/
     & ZEFFIJ(IDIM1:IDIM2,JDIM1:JDIM2,4)
                             save /Z0EFFT/
C-----------------------------------------------------------------------