COMMON /MAICOM/ ENTRY 
      BYTE ENTRY (14,40) 
      DATA NENTRY /40/ 
      DO 1000 I=1,NENTRY
      DO 1000 J=1,14
1000  ENTRY(J,I)=0
      CALL EXIT
      END