Re: International Outlines

From: Martin Janousek (janousek AT unknown)
Date: Mon Feb 03 1997 - 04:13:43 MST


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 AT unknown |
|______________________________________________________|



This archive was generated by hypermail 2b29 : Wed Jun 28 2000 - 09:40:31 MDT