# Example 9 - plot first and second order neighbors

```      PROGRAM NNEX09
C
C  Code to illustrate plotting neighbors with the display tool.
C
PARAMETER(ISLIM = 131, NUMXOUT = 21, NUMYOUT = 21,
+          IDIM=2*NUMXOUT*NUMYOUT)
C
REAL X(ISLIM), Y(ISLIM), Z(ISLIM)
REAL XI(NUMXOUT),YI(NUMYOUT),ZI(NUMXOUT,NUMYOUT)
C
INTEGER I,J
C
C  The data values for Z (defined in BLOCKDATA) are pressure fields.
C
COMMON /DVALUE/X,Y,Z
C
C  Normalize Z to be between 0. and 1.
C
ZMAX = Z(1)
ZMIN = Z(1)
DO 4 I=2,ISLIM
ZMAX = MAX(ZMAX,Z(I))
ZMIN = MIN(ZMIN,Z(I))
4 CONTINUE
C
RC = 1./(ZMAX-ZMIN)
DO 5 I=1,ISLIM
Z(I) = RC*(Z(I)-ZMIN)
5 CONTINUE
C
C  Define the output grid.
C
XMIN =  0.1
XMAX =  0.9
XINC = (XMAX-XMIN)/(NUMXOUT-1.)
DO 20 I=1,NUMXOUT
XI(I) = XMIN+REAL(I-1) * XINC
20 CONTINUE
C
YMIN =  0.1
YMAX =  0.5
YINC = (YMAX-YMIN)/(NUMYOUT-1.)
DO 30 J=1,NUMYOUT
YI(J) = YMIN+REAL(J-1) * YINC
30 CONTINUE
C
CALL NNSETC('ALG','example9.dat')
CALL NATGRIDS(ISLIM,X,Y,Z,NUMXOUT,NUMYOUT,XI,YI,ZI,IER)
C
STOP
END
BLOCKDATA DATAV
COMMON /DVALUE/X,Y,Z
DIMENSION X(131),Y(131),Z(131)
C
DATA X/
+   0.120, 0.127, 0.135, 0.140, 0.140, 0.142, 0.146, 0.153, 0.153,
+   0.156, 0.169, 0.191, 0.200, 0.202, 0.208, 0.228, 0.228, 0.230,
+   0.247, 0.251, 0.266, 0.277, 0.279, 0.279, 0.300, 0.326, 0.327,
+   0.333, 0.342, 0.349, 0.350, 0.366, 0.379, 0.385, 0.386, 0.387,
+   0.389, 0.393, 0.416, 0.431, 0.436, 0.440, 0.441, 0.449, 0.453,
+   0.453, 0.458, 0.467, 0.476, 0.477, 0.486, 0.502, 0.503, 0.505,
+   0.511, 0.511, 0.517, 0.524, 0.526, 0.527, 0.531, 0.550, 0.555,
+   0.559, 0.563, 0.563, 0.567, 0.577, 0.585, 0.587, 0.602, 0.605,
+   0.606, 0.607, 0.619, 0.626, 0.637, 0.638, 0.642, 0.642, 0.653,
+   0.658, 0.660, 0.667, 0.670, 0.677, 0.686, 0.690, 0.694, 0.695,
+   0.704, 0.705, 0.706, 0.718, 0.724, 0.727, 0.730, 0.738, 0.744,
+   0.746, 0.763, 0.766, 0.770, 0.790, 0.790, 0.792, 0.793, 0.800,
+   0.815, 0.817, 0.821, 0.822, 0.823, 0.823, 0.830, 0.833, 0.840,
+   0.841, 0.846, 0.849, 0.849, 0.850, 0.853, 0.856, 0.865, 0.871,
+   0.871, 0.878, 0.884, 0.097, 0.100
+  /
DATA Y/
+   0.398, 0.445, 0.317, 0.288, 0.522, 0.254, 0.557, 0.505, 0.374,
+   0.222, 0.538, 0.394, 0.209, 0.490, 0.285, 0.349, 0.440, 0.523,
+   0.310, 0.216, 0.185, 0.416, 0.371, 0.249, 0.488, 0.382, 0.329,
+   0.491, 0.465, 0.238, 0.168, 0.404, 0.475, 0.338, 0.199, 0.366,
+   0.307, 0.285, 0.426, 0.168, 0.329, 0.242, 0.510, 0.481, 0.367,
+   0.403, 0.433, 0.297, 0.137, 0.181, 0.435, 0.486, 0.337, 0.118,
+   0.297, 0.248, 0.397, 0.165, 0.195, 0.078, 0.033, 0.336, 0.453,
+   0.384, 0.494, 0.132, 0.253, 0.297, 0.192, 0.438, 0.143, 0.248,
+   0.464, 0.393, 0.338, 0.362, 0.431, 0.308, 0.262, 0.412, 0.201,
+   0.476, 0.151, 0.334, 0.441, 0.375, 0.405, 0.298, 0.177, 0.347,
+   0.437, 0.243, 0.370, 0.219, 0.282, 0.396, 0.430, 0.306, 0.366,
+   0.259, 0.420, 0.478, 0.189, 0.268, 0.442, 0.360, 0.314, 0.495,
+   0.246, 0.209, 0.467, 0.339, 0.148, 0.410, 0.381, 0.505, 0.443,
+   0.167, 0.123, 0.469, 0.413, 0.316, 0.379, 0.499, 0.546, 0.519,
+   0.608, 0.353, 0.118, 0.423, 0.349
+  /
DATA Z/
+   137.0, 161.0, 161.0, 157.0, 161.0, 174.0, 173.0, 166.0, 124.0,
+   179.0, 166.0, 133.0, 130.0, 150.0, 139.0, 134.0, 127.0, 155.0,
+   175.0, 143.0, 155.0, 160.0, 150.0, 185.0, 240.0, 200.0, 218.0,
+   245.0, 242.0, 169.0, 151.0, 197.0, 253.0, 189.0, 150.0, 194.0,
+   188.0, 184.0, 205.0, 152.0, 168.0, 137.0, 291.0, 256.0, 150.0,
+   160.0, 174.0, 143.0, 200.0, 165.0, 173.0, 212.0, 109.0, 181.1,
+   143.0, 160.0, 113.0, 181.0, 173.0, 179.0, 173.0, 145.0, 169.0,
+   143.0, 197.0, 188.0, 189.0, 181.0, 193.0, 166.0, 196.0, 192.0,
+   189.0, 168.0, 184.0, 179.0, 178.0, 197.0, 199.0, 181.0, 198.0,
+   174.0, 193.0, 200.0, 178.0, 200.0, 197.0, 214.0, 197.0, 202.0,
+   192.0, 209.0, 210.0, 197.0, 205.0, 210.0, 200.0, 205.0, 208.0,
+   200.0, 206.0, 183.0, 191.0, 195.0, 212.0, 207.0, 205.0, 174.0,
+   204.0, 203.0, 184.0, 197.0, 195.0, 186.0, 189.0, 178.0, 180.1,
+   200.0, 183.0, 179.9, 184.0, 193.0, 193.0, 176.0, 156.0, 163.0,
+   139.0, 191.0, 179.0, 157.0, 159.0
+  /
C
END
```

home | contents | defs | params | procedures | exmpls | index