Hello,
> For presentations at international assemblies and workshops it is
> suggestive to show the correct outlines. Does anybody know, if
> there exists an actual version of EZMAP that includes the
> corresponding international outlines or if there is an easy way to
> add new outlines to EZMAP ?
We use the following package of fortran subroutines that draw the
international borders missing in ezmapdatabase. It contains also the
MAPEOD routine in which you get rid of former border between BRD and
DDR.
I post it here by the courtesy of Emmanuel Legrand from Meteo-France
who is the author of the package below.
This is an example of a part of code:
.......
CALL MAPINT
CALL MAPGRD
CALL MAPLBL
CALL MAPLOT
C
C Draw new international borders
C
CALL MAPGTC('OU',COU)
IF (COU.EQ.'PO'.OR.COU.EQ.'PS') THEN
CALL MALTE
CALL TCHSLO
CALL SLOVEN
CALL CROATE
CALL SERCRO
CALL BOSSER
CALL MACED
CALL MOLDAV
CALL LETTON
CALL ESTONIE
CALL LITHU
CALL KALININ
CALL RUSBIEL
CALL BIELUK
CALL UKRUSS
ENDIF
...........
SUBROUTINE TCHSLO
C
C Trace la frontiere entre Tchequie et Slovaquie
C
IPENUP=0
IPENDN=1
Call MAPIT(48.64,16.96,IPENUP)
Call MAPIT(48.79,17.06,IPENDN)
Call MAPIT(48.90,17.20,IPENDN)
Call MAPIT(48.87,17.26,IPENDN)
Call MAPIT(48.88,17.34,IPENDN)
Call MAPIT(48.84,17.40,IPENDN)
Call MAPIT(48.87,17.48,IPENDN)
Call MAPIT(48.85,17.58,IPENDN)
Call MAPIT(48.88,17.67,IPENDN)
Call MAPIT(48.88,17.71,IPENDN)
Call MAPIT(48.94,17.84,IPENDN)
Call MAPIT(48.97,17.87,IPENDN)
Call MAPIT(48.98,17.98,IPENDN)
Call MAPIT(49.06,18.02,IPENDN)
Call MAPIT(49.09,18.14,IPENDN)
Call MAPIT(49.13,18.18,IPENDN)
Call MAPIT(49.27,18.17,IPENDN)
Call MAPIT(49.29,18.24,IPENDN)
Call MAPIT(49.32,18.24,IPENDN)
Call MAPIT(49.37,18.41,IPENDN)
Call MAPIT(49.42,18.46,IPENDN)
Call MAPIT(49.49,18.61,IPENDN)
Call MAPIT(49.52,18.61,IPENDN)
Call MAPIT(49.53,18.67,IPENDN)
Call MAPIT(49.53,18.79,IPENDN)
Call MAPIT(49.57,18.91,IPENDN)
Call MAPIT(49.60,18.97,IPENDN)
Call MAPIQ
RETURN
END
C*******************************************
SUBROUTINE SLOVEN
C
C Trace les contours de la Slovenie
C
IPENUP=0
IPENDN=1
Call MAPIT(45.39,13.42,IPENUP)
Call MAPIT(45.44,13.68,IPENDN)
Call MAPIT(45.47,13.86,IPENDN)
Call MAPIT(45.44,13.90,IPENDN)
Call MAPIT(45.43,13.99,IPENDN)
Call MAPIT(45.49,13.99,IPENDN)
Call MAPIT(45.50,14.06,IPENDN)
Call MAPIT(45.45,14.10,IPENDN)
Call MAPIT(45.46,14.14,IPENDN)
Call MAPIT(45.43,14.25,IPENDN)
Call MAPIT(45.49,14.23,IPENDN)
Call MAPIT(45.51,14.34,IPENDN)
Call MAPIT(45.50,14.37,IPENDN)
Call MAPIT(45.55,14.52,IPENDN)
Call MAPIT(45.62,14.52,IPENDN)
Call MAPIT(45.65,14.56,IPENDN)
Call MAPIT(45.68,14.57,IPENDN)
Call MAPIT(45.68,14.61,IPENDN)
Call MAPIT(45.61,14.61,IPENDN)
Call MAPIT(45.59,14.71,IPENDN)
Call MAPIT(45.53,14.71,IPENDN)
Call MAPIT(45.54,14.78,IPENDN)
Call MAPIT(45.48,14.86,IPENDN)
Call MAPIT(45.49,14.93,IPENDN)
Call MAPIT(45.53,14.95,IPENDN)
Call MAPIT(45.44,15.19,IPENDN)
Call MAPIT(45.45,15.26,IPENDN)
Call MAPIT(45.48,15.30,IPENDN)
Call MAPIT(45.48,15.36,IPENDN)
Call MAPIT(45.52,15.41,IPENDN)
Call MAPIT(45.55,15.36,IPENDN)
Call MAPIT(45.65,15.34,IPENDN)
Call MAPIT(45.67,15.37,IPENDN)
Call MAPIT(45.66,15.42,IPENDN)
Call MAPIT(45.70,15.38,IPENDN)
Call MAPIT(45.70,15.32,IPENDN)
Call MAPIT(45.71,15.28,IPENDN)
Call MAPIT(45.79,15.42,IPENDN)
Call MAPIT(45.79,15.52,IPENDN)
Call MAPIT(45.85,15.57,IPENDN)
Call MAPIT(45.83,15.65,IPENDN)
Call MAPIT(45.87,15.72,IPENDN)
Call MAPIT(45.91,15.70,IPENDN)
Call MAPIT(45.95,15.74,IPENDN)
Call MAPIT(46.01,15.72,IPENDN)
Call MAPIT(46.04,15.74,IPENDN)
Call MAPIT(46.09,15.65,IPENDN)
Call MAPIT(46.16,15.61,IPENDN)
Call MAPIT(46.17,15.66,IPENDN)
Call MAPIT(46.22,15.68,IPENDN)
Call MAPIT(46.22,15.74,IPENDN)
Call MAPIT(46.25,15.74,IPENDN)
Call MAPIT(46.34,15.99,IPENDN)
Call MAPIT(46.36,16.10,IPENDN)
Call MAPIT(46.41,16.14,IPENDN)
Call MAPIT(46.38,16.19,IPENDN)
Call MAPIT(46.41,16.23,IPENDN)
Call MAPIT(46.43,16.22,IPENDN)
Call MAPIT(46.55,16.23,IPENDN)
Call MAPIT(46.60,16.24,IPENDN)
Call MAPIT(46.60,16.32,IPENDN)
Call MAPIT(46.60,16.39,IPENDN)
Call MAPIT(46.60,16.59,IPENDN)
Call MAPIT(46.64,16.64,IPENDN)
Call MAPIQ
RETURN
END
C***************************************************
SUBROUTINE CROATE
C
C Trace le contour de la Croatie autour de la Bosnie
C
IPENUP=0
IPENDN=1
Call MAPIT(42.40,18.44,IPENUP)
Call MAPIT(42.59,18.44,IPENDN)
Call MAPIT(42.66,18.34,IPENDN)
Call MAPIT(42.63,18.26,IPENDN)
Call MAPIT(42.95,17.80,IPENDN)
Call MAPIT(42.95,17.73,IPENDN)
Call MAPIT(42.90,17.66,IPENDN)
Call MAPIT(42.93,17.60,IPENDN)
Call MAPIT(42.98,17.72,IPENDN)
Call MAPIT(43.10,17.66,IPENDN)
Call MAPIT(43.27,17.31,IPENDN)
Call MAPIT(43.39,17.25,IPENDN)
Call MAPIT(43.48,17.27,IPENDN)
Call MAPIT(43.55,17.06,IPENDN)
Call MAPIT(44.02,16.56,IPENDN)
Call MAPIT(44.07,16.46,IPENDN)
Call MAPIT(44.22,16.27,IPENDN)
Call MAPIT(44.26,16.19,IPENDN)
Call MAPIT(44.33,16.21,IPENDN)
Call MAPIT(44.39,16.16,IPENDN)
Call MAPIT(44.49,16.17,IPENDN)
Call MAPIT(44.75,15.94,IPENDN)
Call MAPIT(44.72,15.90,IPENDN)
Call MAPIT(44.81,15.78,IPENDN)
Call MAPIT(44.99,15.76,IPENDN)
Call MAPIT(45.05,15.81,IPENDN)
Call MAPIT(45.09,15.77,IPENDN)
Call MAPIT(45.15,15.81,IPENDN)
Call MAPIT(45.23,15.81,IPENDN)
Call MAPIT(45.25,15.97,IPENDN)
Call MAPIT(45.17,16.07,IPENDN)
Call MAPIT(45.09,16.21,IPENDN)
Call MAPIT(45.03,16.29,IPENDN)
Call MAPIT(45.27,16.47,IPENDN)
Call MAPIT(45.28,16.57,IPENDN)
Call MAPIT(45.24,16.73,IPENDN)
Call MAPIT(45.34,16.83,IPENDN)
Call MAPIT(45.22,17.10,IPENDN)
Call MAPIT(45.27,17.15,IPENDN)
Call MAPIT(45.23,17.27,IPENDN)
Call MAPIT(45.26,17.31,IPENDN)
Call MAPIT(45.19,17.32,IPENDN)
Call MAPIT(45.23,17.52,IPENDN)
Call MAPIT(45.15,17.67,IPENDN)
Call MAPIT(45.23,17.77,IPENDN)
Call MAPIT(45.26,17.87,IPENDN)
Call MAPIT(45.21,17.91,IPENDN)
Call MAPIT(45.21,17.99,IPENDN)
Call MAPIT(45.26,18.02,IPENDN)
Call MAPIT(45.23,18.11,IPENDN)
Call MAPIT(45.25,18.21,IPENDN)
Call MAPIT(45.19,18.27,IPENDN)
Call MAPIT(45.24,18.34,IPENDN)
Call MAPIT(45.26,18.44,IPENDN)
Call MAPIT(45.13,18.49,IPENDN)
Call MAPIT(45.09,18.56,IPENDN)
Call MAPIT(45.09,18.50,IPENDN)
Call MAPIT(45.00,18.61,IPENDN)
Call MAPIT(45.00,18.87,IPENDN)
Call MAPIT(44.91,18.96,IPENDN)
Call MAPIT(44.91,19.14,IPENDN)
Call MAPIQ
RETURN
END
C***************************************************
SUBROUTINE MACED
C
C Trace la frontiere entre Macedoine et Serbie
C
IPENUP=0
IPENDN=1
Call MAPIT(41.90,20.66,IPENUP)
Call MAPIT(41.90,20.75,IPENDN)
Call MAPIT(42.02,20.77,IPENDN)
Call MAPIT(42.10,20.82,IPENDN)
Call MAPIT(42.20,21.12,IPENDN)
Call MAPIT(42.10,21.27,IPENDN)
Call MAPIT(42.12,21.31,IPENDN)
Call MAPIT(42.16,21.28,IPENDN)
Call MAPIT(42.22,21.36,IPENDN)
Call MAPIT(42.26,21.76,IPENDN)
Call MAPIT(42.33,21.82,IPENDN)
Call MAPIT(42.29,22.14,IPENDN)
Call MAPIT(42.34,22.33,IPENDN)
Call MAPIT(42.32,22.56,IPENDN)
Call MAPIQ
RETURN
END
C*****************************************************
SUBROUTINE BOSSER
C
C Trace une frontiere entre Bosnie et Serbie
C
IPENUP=0
IPENDN=1
Call MAPIT(42.59,18.44,IPENUP)
Call MAPIT(42.60,18.47,IPENDN)
Call MAPIT(42.62,18.48,IPENDN)
Call MAPIT(42.63,18.51,IPENDN)
Call MAPIT(42.65,18.51,IPENDN)
Call MAPIT(42.66,18.55,IPENDN)
Call MAPIT(42.73,18.58,IPENDN)
Call MAPIT(42.80,18.50,IPENDN)
Call MAPIT(42.92,18.48,IPENDN)
Call MAPIT(42.94,18.53,IPENDN)
Call MAPIT(42.99,18.52,IPENDN)
Call MAPIT(43.05,18.64,IPENDN)
Call MAPIT(43.05,18.77,IPENDN)
Call MAPIT(43.22,18.72,IPENDN)
Call MAPIT(43.26,18.77,IPENDN)
Call MAPIT(43.30,18.76,IPENDN)
Call MAPIT(43.34,18.89,IPENDN)
Call MAPIT(43.38,18.90,IPENDN)
Call MAPIT(43.37,18.98,IPENDN)
Call MAPIT(43.31,18.97,IPENDN)
Call MAPIT(43.26,19.02,IPENDN)
Call MAPIT(43.33,19.11,IPENDN)
Call MAPIT(43.55,19.01,IPENDN)
Call MAPIT(43.58,19.09,IPENDN)
Call MAPIT(43.54,19.08,IPENDN)
Call MAPIT(43.55,19.26,IPENDN)
Call MAPIT(43.61,19.30,IPENDN)
Call MAPIT(43.63,19.39,IPENDN)
Call MAPIT(43.53,19.41,IPENDN)
Call MAPIT(43.60,19.53,IPENDN)
Call MAPIT(43.70,19.55,IPENDN)
Call MAPIT(43.98,19.35,IPENDN)
Call MAPIT(44.01,19.42,IPENDN)
Call MAPIT(43.98,19.44,IPENDN)
Call MAPIT(43.98,19.57,IPENDN)
Call MAPIT(44.03,19.61,IPENDN)
Call MAPIT(44.04,19.67,IPENDN)
Call MAPIT(44.07,19.67,IPENDN)
Call MAPIT(44.08,19.60,IPENDN)
Call MAPIT(44.17,19.54,IPENDN)
Call MAPIT(44.17,19.50,IPENDN)
Call MAPIT(44.22,19.44,IPENDN)
Call MAPIT(44.32,19.42,IPENDN)
Call MAPIT(44.32,19.33,IPENDN)
C Call MAPIT(44.41,19.25,IPENDN)
C
C Call MAPIT(44.28,19.24,IPENDN)
Call MAPIT(44.31,19.19,IPENDN)
Call MAPIT(44.41,19.14,IPENDN)
Call MAPIT(44.45,19.18,IPENDN)
Call MAPIT(44.55,19.17,IPENDN)
Call MAPIT(44.56,19.23,IPENDN)
Call MAPIT(44.65,19.26,IPENDN)
Call MAPIT(44.74,19.36,IPENDN)
Call MAPIT(44.76,19.36,IPENDN)
Call MAPIT(44.80,19.42,IPENDN)
Call MAPIT(44.86,19.41,IPENDN)
Call MAPIT(44.91,19.43,IPENDN)
Call MAPIT(44.95,19.31,IPENDN)
Call MAPIT(44.96,19.25,IPENDN)
Call MAPIT(44.91,19.13,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE SERCRO
C
C Trace le bout de frontiere entre Serbie et Croatie
C
IPENUP=0
IPENDN=1
Call MAPIT(44.91,19.14,IPENUP)
Call MAPIT(44.95,19.14,IPENDN)
Call MAPIT(45.00,19.21,IPENDN)
Call MAPIT(45.01,19.18,IPENDN)
Call MAPIT(45.11,19.21,IPENDN)
Call MAPIT(45.18,19.20,IPENDN)
Call MAPIT(45.19,19.27,IPENDN)
Call MAPIT(45.23,19.30,IPENDN)
Call MAPIT(45.20,19.35,IPENDN)
Call MAPIT(45.21,19.39,IPENDN)
Call MAPIT(45.23,19.40,IPENDN)
Call MAPIT(45.20,19.45,IPENDN)
Call MAPIT(45.20,19.52,IPENDN)
Call MAPIT(45.25,19.51,IPENDN)
Call MAPIT(45.27,19.44,IPENDN)
Call MAPIT(45.32,19.35,IPENDN)
Call MAPIT(45.33,19.24,IPENDN)
Call MAPIT(45.38,19.21,IPENDN)
Call MAPIT(45.38,19.15,IPENDN)
Call MAPIT(45.44,19.12,IPENDN)
Call MAPIT(45.48,19.16,IPENDN)
Call MAPIT(45.52,19.12,IPENDN)
Call MAPIT(45.57,19.14,IPENDN)
Call MAPIT(45.56,19.23,IPENDN)
Call MAPIT(45.59,19.23,IPENDN)
Call MAPIT(45.60,19.12,IPENDN)
Call MAPIT(45.69,19.07,IPENDN)
Call MAPIT(45.74,19.13,IPENDN)
Call MAPIT(45.82,19.07,IPENDN)
Call MAPIT(45.88,19.08,IPENDN)
Call MAPIT(45.92,19.02,IPENDN)
Call MAPIT(45.95,19.08,IPENDN)
Call MAPIT(46.02,18.98,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE MOLDAV
C
C Trace la frontiere entre Moldavie et Ukraine
C
IPENUP=0
IPENDN=1
Call MAPIT(45.39,28.46,IPENUP)
Call MAPIT(45.39,28.59,IPENDN)
Call MAPIT(45.52,28.49,IPENDN)
Call MAPIT(45.89,28.72,IPENDN)
Call MAPIT(45.89,28.87,IPENDN)
Call MAPIT(46.22,28.95,IPENDN)
Call MAPIT(46.45,28.85,IPENDN)
Call MAPIT(46.51,29.05,IPENDN)
Call MAPIT(46.49,29.90,IPENDN)
Call MAPIT(46.71,29.62,IPENDN)
Call MAPIT(46.90,29.62,IPENDN)
Call MAPIT(46.98,29.38,IPENDN)
Call MAPIT(47.38,29.33,IPENDN)
Call MAPIT(47.58,28.77,IPENDN)
Call MAPIT(47.73,28.92,IPENDN)
Call MAPIT(48.10,28.85,IPENDN)
Call MAPIT(48.08,28.56,IPENDN)
Call MAPIT(48.18,28.10,IPENDN)
Call MAPIT(48.47,27.59,IPENDN)
Call MAPIT(48.55,26.64,IPENDN)
Call MAPIT(48.40,26.46,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE LETTON
C
C Trace le contour de la Lettonie (complet)
C
IPENUP=0
IPENDN=1
Call MAPIT(55.91,21.07,IPENUP)
Call MAPIT(56.21,22.48,IPENDN)
Call MAPIT(56.15,24.08,IPENDN)
Call MAPIT(56.01,24.54,IPENDN)
Call MAPIT(56.05,24.97,IPENDN)
Call MAPIT(56.23,25.21,IPENDN)
Call MAPIT(55.97,25.43,IPENDN)
Call MAPIT(55.91,25.98,IPENDN)
Call MAPIT(55.63,26.41,IPENDN)
Call MAPIT(55.49,26.87,IPENDN)
Call MAPIT(55.77,27.21,IPENDN)
Call MAPIT(55.67,27.67,IPENDN)
Call MAPIT(56.32,28.16,IPENDN)
Call MAPIT(56.74,27.79,IPENDN)
Call MAPIT(56.86,27.55,IPENDN)
Call MAPIT(57.21,27.70,IPENDN)
Call MAPIT(57.37,27.42,IPENDN)
Call MAPIT(57.49,27.42,IPENDN)
Call MAPIT(57.53,26.84,IPENDN)
Call MAPIT(57.43,26.56,IPENDN)
Call MAPIT(57.65,26.29,IPENDN)
Call MAPIT(57.96,25.43,IPENDN)
Call MAPIT(57.73,24.39,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE ESTONIE
C
C Trace la frontiere entre Estonie et Russie
C
IPENUP=0
IPENDN=1
Call MAPIT(57.51,27.21,IPENUP)
Call MAPIT(57.79,27.36,IPENDN)
Call MAPIT(57.81,27.61,IPENDN)
Call MAPIT(58.12,27.42,IPENDN)
Call MAPIT(58.36,27.27,IPENDN)
Call MAPIT(59.03,27.30,IPENDN)
Call MAPIT(59.32,27.64,IPENDN)
Call MAPIT(59.42,27.48,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE LITHU
C
C Trace la frontiere entre Lithuanie et Bielorussie
C
IPENUP=0
IPENDN=1
Call MAPIT(53.79,23.68,IPENUP)
Call MAPIT(53.73,24.42,IPENDN)
Call MAPIT(53.81,24.51,IPENDN)
Call MAPIT(53.92,24.86,IPENDN)
Call MAPIT(54.02,24.68,IPENDN)
Call MAPIT(54.19,25.44,IPENDN)
Call MAPIT(54.06,25.79,IPENDN)
Call MAPIT(54.29,25.71,IPENDN)
Call MAPIT(54.90,25.76,IPENDN)
Call MAPIT(54.98,26.09,IPENDN)
Call MAPIT(55.15,26.15,IPENDN)
Call MAPIT(55.42,26.56,IPENDN)
Call MAPIT(55.40,26.38,IPENDN)
Call MAPIT(55.68,26.35,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE KALININ
C
C Trace la frontiere de l'enclave russe de Kaliningrad
C
IPENUP=0
IPENDN=1
Call MAPIT(54.44,22.71,IPENUP)
Call MAPIT(54.90,22.73,IPENDN)
Call MAPIT(55.11,21.30,IPENDN)
Call MAPIT(55.37,21.08,IPENDN)
Call MAPIT(55.47,20.90,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE RUSBIEL
C
C Trace la frontiere entre Russie et Bielorussie
C
IPENUP=0
IPENDN=1
Call MAPIT(56.17,28.07,IPENUP)
Call MAPIT(56.07,28.30,IPENDN)
Call MAPIT(56.05,28.81,IPENDN)
Call MAPIT(56.14,29.07,IPENDN)
Call MAPIT(56.04,29.22,IPENDN)
Call MAPIT(56.01,29.39,IPENDN)
Call MAPIT(55.76,29.37,IPENDN)
Call MAPIT(55.94,29.96,IPENDN)
Call MAPIT(55.55,31.00,IPENDN)
Call MAPIT(55.08,31.00,IPENDN)
Call MAPIT(54.91,30.79,IPENDN)
Call MAPIT(54.38,31.31,IPENDN)
Call MAPIT(54.26,31.41,IPENDN)
Call MAPIT(54.12,31.98,IPENDN)
Call MAPIT(53.79,31.90,IPENDN)
Call MAPIT(53.82,32.10,IPENDN)
Call MAPIT(53.73,32.44,IPENDN)
Call MAPIT(53.57,32.40,IPENDN)
Call MAPIT(53.50,32.78,IPENDN)
Call MAPIT(53.40,32.72,IPENDN)
Call MAPIT(53.13,32.19,IPENDN)
Call MAPIT(53.21,31.43,IPENDN)
Call MAPIT(52.96,31.28,IPENDN)
Call MAPIT(52.77,31.53,IPENDN)
Call MAPIT(52.60,31.42,IPENDN)
Call MAPIT(52.12,31.70,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE BIELUK
C
C Trace la frontiere entre Bielorussie et Ukraine
C
IPENUP=0
IPENDN=1
Call MAPIT(52.12,31.70,IPENUP)
Call MAPIT(52.02,30.91,IPENDN)
Call MAPIT(51.53,30.50,IPENDN)
Call MAPIT(51.35,30.52,IPENDN)
Call MAPIT(51.43,30.26,IPENDN)
Call MAPIT(51.38,29.93,IPENDN)
Call MAPIT(51.43,29.72,IPENDN)
Call MAPIT(51.36,29.56,IPENDN)
Call MAPIT(51.51,29.27,IPENDN)
Call MAPIT(51.50,29.11,IPENDN)
Call MAPIT(51.40,28.87,IPENDN)
Call MAPIT(51.54,28.77,IPENDN)
Call MAPIT(51.55,28.46,IPENDN)
Call MAPIT(51.62,28.25,IPENDN)
Call MAPIT(51.43,27.85,IPENDN)
Call MAPIT(51.56,27.65,IPENDN)
Call MAPIT(51.55,27.34,IPENDN)
Call MAPIT(51.70,27.11,IPENDN)
Call MAPIT(51.76,26.21,IPENDN)
Call MAPIT(51.94,26.10,IPENDN)
Call MAPIT(51.92,25.06,IPENDN)
Call MAPIT(51.86,24.71,IPENDN)
Call MAPIT(51.91,24.47,IPENDN)
Call MAPIT(51.63,24.35,IPENDN)
Call MAPIT(51.53,23.97,IPENDN)
Call MAPIT(51.69,23.89,IPENDN)
Call MAPIT(51.68,23.64,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE UKRUSS
C
C Trace la frontiere entre Russie et Ukraine
C
IPENUP=0
IPENDN=1
Call MAPIT(52.12,31.70,IPENUP)
Call MAPIT(51.94,31.98,IPENDN)
Call MAPIT(51.97,32.30,IPENDN)
Call MAPIT(52.20,32.31,IPENDN)
Call MAPIT(52.17,32.80,IPENDN)
Call MAPIT(52.29,33.08,IPENDN)
Call MAPIT(52.25,33.66,IPENDN)
Call MAPIT(52.08,34.00,IPENDN)
Call MAPIT(51.85,33.91,IPENDN)
Call MAPIT(51.76,34.26,IPENDN)
Call MAPIT(51.57,34.31,IPENDN)
Call MAPIT(51.54,34.06,IPENDN)
Call MAPIT(51.18,34.16,IPENDN)
Call MAPIT(51.17,34.43,IPENDN)
Call MAPIT(51.10,34.54,IPENDN)
Call MAPIT(51.08,34.75,IPENDN)
Call MAPIT(51.13,34.82,IPENDN)
Call MAPIT(50.67,35.32,IPENDN)
Call MAPIT(50.40,35.22,IPENDN)
Call MAPIT(50.18,35.47,IPENDN)
Call MAPIT(50.29,35.71,IPENDN)
Call MAPIT(50.25,36.06,IPENDN)
Call MAPIT(50.11,36.51,IPENDN)
Call MAPIT(50.20,36.78,IPENDN)
Call MAPIT(50.18,36.93,IPENDN)
Call MAPIT(50.30,37.27,IPENDN)
Call MAPIT(50.17,37.41,IPENDN)
Call MAPIT(49.93,37.62,IPENDN)
Call MAPIT(49.79,38.00,IPENDN)
Call MAPIT(49.94,38.11,IPENDN)
Call MAPIT(49.84,38.32,IPENDN)
Call MAPIT(49.85,38.54,IPENDN)
Call MAPIT(49.72,38.86,IPENDN)
Call MAPIT(49.79,39.13,IPENDN)
Call MAPIT(49.66,39.21,IPENDN)
Call MAPIT(49.65,39.48,IPENDN)
Call MAPIT(49.57,39.55,IPENDN)
Call MAPIT(49.53,40.08,IPENDN)
Call MAPIT(49.26,40.18,IPENDN)
Call MAPIT(48.98,39.72,IPENDN)
Call MAPIT(48.82,39.76,IPENDN)
Call MAPIT(48.86,40.10,IPENDN)
Call MAPIT(48.73,40.03,IPENDN)
Call MAPIT(48.69,39.84,IPENDN)
Call MAPIT(48.52,39.81,IPENDN)
Call MAPIT(48.38,40.03,IPENDN)
Call MAPIT(47.80,39.78,IPENDN)
Call MAPIT(47.85,38.94,IPENDN)
Call MAPIT(47.61,38.81,IPENDN)
Call MAPIT(47.53,38.43,IPENDN)
Call MAPIT(47.35,38.35,IPENDN)
Call MAPIT(47.17,38.25,IPENDN)
C
C On saute la mer d'Azov
C
Call MAPIT(45.40,36.80,IPENUP)
Call MAPIT(45.04,36.31,IPENDN)
Call MAPIQ
RETURN
END
C***********************************************
SUBROUTINE MALTE
C
C Trace l'ile du meme nom
C
IPENUP=0
IPENDN=1
Call MAPIT(35.90,14.45,IPENUP)
Call MAPIT(35.85,14.55,IPENDN)
Call MAPIT(35.95,14.55,IPENDN)
Call MAPIT(35.90,14.45,IPENDN)
Call MAPIQ
RETURN
END
SUBROUTINE MAPEOD (NOUT,NSEG,IDLS,IDRS,NPTS,PNTS)
C
DIMENSION PNTS(*)
C
C Cette version supprime la frontiere entre les deux Allemagnes
C et entre l'Angleterre et l'Ecosse et le Pays de Galles
C
C
IBRD=1166
IDDR=1180
IWALES=1152
ISCOT=1149
IENGL=1150
C
IF ((IDLS.EQ.IBRD .AND. IDRS.EQ.IDDR).OR.
+ (IDLS.EQ.IDDR .AND. IDRS.EQ.IBRD)) NPTS=0
C
IF ((IDLS.EQ.IWALES .AND. IDRS.EQ.IENGL).OR.
+ (IDLS.EQ.IENGL .AND. IDRS.EQ.IWALES)) NPTS=0
C
IF ((IDLS.EQ.ISCOT .AND. IDRS.EQ.IENGL).OR.
+ (IDLS.EQ.IENGL .AND. IDRS.EQ.ISCOT)) NPTS=0
C
C Done.
C
RETURN
END
______________________________________________________
| |
| Martin Janousek |
| |
| Cesky hydrometeorologicky ustav |
| Czech Hydrometeorological Institute |
| Na Sabatce 17 phone: (+42 2) 44 03 2242 |
| 143 06 Praha 4 fax: (+42 2) 44 03 2128 |
| Czech Republic mailto:janousek@chmi.cz |
|______________________________________________________|
This archive was generated by hypermail 2b29 : Wed Jun 28 2000 - 09:45:38 MDT