!
      subroutine mapeod (nout,nseg,idls,idrs,npts,pnts)
!
! Suppress all but major land masses:
!
      real :: PNTS(*)
      integer :: nout,nseg,idls,idrs,npts
      
      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 subroutine mapeod