C==================================================================
C PROGRAM TO READ THE NASA-GISS COUNTRY/STATE-PROVINCE CODE-IDS AND 
C  NAMES AND THE LINKS BETWEEN THE NASA-GISS CODE-IDS WITH THE
C  UNITED NATIONS CODE-IDS AND NAMES
C==================================================================

      DIMENSION ICODE(355)
      CHARACTER*14 CNAME(355)
      DIMENSION IDUN(217),IGISS(217)
      CHARACTER*42 GNAME(217)
C
C CNTRY1X1.CODE IDENTIFIES THE NASA-GISS COUNTRY/STATE 
C  OR PROVINCE CODE-IDS AND NAMES
      OPEN (10,FILE='CNTRY1X1.COD',STATUS='OLD')
      DO 10 K=1,355
      READ (10,'(I6,5X,A14)') ICODE(K),CNAME(K)
  10  CONTINUE
      CLOSE(UNIT=10)
C
C GISSUN.CODE LINKS THE NASA-GISS CODE-IDS WITH THE 
C  UNITED NATIONS CODE-IDS AND NAMES
      OPEN(20,FILE='GISSUN.COD',STATUS='OLD')
      DO 20 I=1,217
          READ(20,'(6X,I3,4X,I6,2X,A42)')
     &IDUN(I),IGISS(I),GNAME(I)
  20  CONTINUE
      CLOSE(UNIT=20)
C
      STOP
      END