1*-----------------------------------------------------------------------
2      SUBROUTINE SGPMXR(N,RPX,RPY,ITYPE,INDEX,ICOLOR,RSIZE)
3
4      REAL      RPX(*),RPY(*)
5      LOGICAL   LFCATR
6
7      CALL SWQFCC(LFCATR)
8      IF(.NOT.LFCATR) THEN
9        CALL MSGDMP('M','SGPMXR','FULL COLOR MODE IS NOT SUPPORTED.')
10      END IF
11
12      IF (N.LT.1) THEN
13        CALL MSGDMP('E','SGPMXR','NUMBER OF POINTS IS LESS THAN 1.')
14      END IF
15      IF (ITYPE.EQ.0) THEN
16        CALL MSGDMP('M','SGPMXR','MARKER TYPE IS 0 / DO NOTHING.')
17        RETURN
18      END IF
19      IF (INDEX.EQ.0) THEN
20        CALL MSGDMP('M','SGPMXR','POLYMARKER INDEX IS 0 / DO NOTHING.')
21        RETURN
22      END IF
23      IF (INDEX.LT.0) THEN
24        CALL MSGDMP('E','SGPMXR','POLYMARKER INDEX IS LESS THAN 0.')
25      END IF
26      IF (RSIZE.EQ.0) THEN
27        CALL MSGDMP('M','SGPMXR','MARKER SIZE IS 0 / DO NOTHING.')
28        RETURN
29      END IF
30      IF (RSIZE.LT.0) THEN
31        CALL MSGDMP('E','SGPMXR','MARKER SIZE IS LESS THAN ZERO.')
32      END IF
33
34      CALL SWSFCM(.TRUE.)
35      CALL SWSLCL(ICOLOR)
36
37      CALL SZPMOP(ITYPE,INDEX,RSIZE)
38      CALL SZPMZR(N,RPX,RPY)
39      CALL SZPMCL
40
41      CALL SWSFCM(.FALSE.)
42
43      END
44