1*-----------------------------------------------------------------------
2*     SCATTERED POINTS
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE UMSPNT(N, UX, UY)
7
8      REAL      UX(*), UY(*)
9
10      PARAMETER (NMAX=64)
11
12      REAL      UXZ(NMAX), UYZ(NMAX)
13
14      SAVE
15
16      DATA      NDATA / 0 /
17
18
19      DO 10 I=1, N
20        IF (NDATA .GE. NMAX) THEN
21          CALL MSGDMP('W', 'UMSPNT', 'TOO MANY POINTS IGNORED.')
22          RETURN
23        END IF
24        NDATA = NDATA + 1
25        UXZ(NDATA) = UX(NDATA)
26        UYZ(NDATA) = UY(NDATA)
27   10 CONTINUE
28
29      RETURN
30*-----------------------------------------------------------------------
31      ENTRY UMQPNT(N, UXA, UYA)
32
33      UXA = UXZ(N)
34      UYA = UYZ(N)
35
36      RETURN
37*-----------------------------------------------------------------------
38      ENTRY UMQPTN(N)
39
40      N = NDATA
41
42      RETURN
43*-----------------------------------------------------------------------
44      ENTRY UMRPNT
45
46      NDATA = 0
47
48      RETURN
49      END
50