Proximity check

This program reads the coordinate list and finds stations with a defined radius and looks at vertical slopes to determine slopes above a selected minimum.

 
 Enter search radius
 100
 
 Enter minimum slope
 10
 
 Stations within a radius of    100.0 meters
    and with a slope greater than 10.000% are listed
 
 All stations           [CR][A]
 Select a station           [S]
 
 a
      [ 36733US B]   48 40 32.595650N 116 20  1.591390W      561.700
 [to] [ 36734US D]   48 36 51.379000N 116 13 12.713860W     2041.400
                                             Large slope    1479.7000   13.69

      [ 696328  S]   51  1 35.452810N 114 32 36.732170W    1372.8190
 [to] [ 27610   S]   51  1 35.716350N 114 32 36.403670W    1372.8190
                           -8.144(m)         -6.402(m)  az =  38 10    10.359(m)
                                             Large slope       4.2170   40.71

      [ 697000  C]   51 25 41.772310N 116 28  0.374000W     2406.254
 [to] [ 697003  F]   51 23 55.709890N 116 26 10.811320W     3201.146
                                             Large slope     794.8920   20.37

      [ 697002  L]   51 23 36.122810N 116 29 49.542180W     1255.726
 [to] [ 697003  F]   51 23 55.709890N 116 26 10.811320W     3201.146
                                             Large slope    1945.4200   45.54
 [to] [ 697000  C]   51 25 41.772310N 116 28  0.374000W     2406.254
                                             Large slope    1150.5280   26.03

      [ 697001  V]   51 17 51.268490N 116 32 47.707850W     2502.223
 [to] [ 697002  L]   51 23 36.122810N 116 29 49.542180W     1255.726
                                             Large slope    1246.4970   11.13

      [ 697004  Y]   51 29 42.272460N 116 34  2.523760W     3039.966
 [to] [ 697002  L]   51 23 36.122810N 116 29 49.542180W     1255.726
                                             Large slope    1784.2400   14.48

      [ 677100  G]   49  8 59.436300N 117 54 43.538670W    2375.9160
 [to] [ 25705   G]   49  8 59.463400N 117 54 43.761640W    2375.9160
                           -0.837(m)          4.518(m)  az = 280 29     4.595(m)
                                             Large slope       1.4020   30.51