c
c------------------------------------------------------------------
c Begin file /home/sting/foster/libplt/mapeod.f
c------------------------------------------------------------------
c
      SUBROUTINE MAPEOD (NOUT,NSEG,IDLS,IDRS,NPTS,PNTS)
C
C Suppress all but major land masses:
C
      DIMENSION PNTS(*)
      IF (IDLS.NE.2.AND.IDRS.NE.2) NPTS=0
      IF (IDLS.NE.   1.AND.IDRS.NE.   1.AND.
     +    IDLS.NE.   3.AND.IDRS.NE.   3.AND.
     +    IDLS.NE.   11.AND.IDRS.NE.  11.AND.
     +    IDLS.NE.   79.AND.IDRS.NE.  79.AND.
     +    IDLS.NE.   99.AND.IDRS.NE.  99.AND.
     +    IDLS.NE.  104.AND.IDRS.NE. 104.AND.
     +    IDLS.NE.  107.AND.IDRS.NE. 107.AND.
     +    IDLS.NE.  163.AND.IDRS.NE. 163     ) NPTS=0
      RETURN
      END