C     SccsID = "@(#)usng_gzd.f	1.2	09/26/02"  
C     -----------------------------------------------------------
C     Routine to fill all possible two letter
C     100,000-meter Grid Zone ID
C     -----------------------------------------------------------
      SUBROUTINE FILL_SET1()
      CHARACTER*2 SET1(20,8)
      CHARACTER*2 SET2(20,8)
      CHARACTER*2 SET3(20,8)
      CHARACTER*2 SET4(20,8)
      CHARACTER*2 SET5(20,8)
      CHARACTER*2 SET6(20,8)
      CHARACTER*1 L1(8)
      CHARACTER*2 L2(20)
      INTEGER I, J
      COMMON/SETS/SET1,SET2,SET3,SET4,SET5,SET6

      DATA L1 /'A','B','C','D','E','F','G','H'/

      DATA L2
     */'A','B','C','D','E','F','G','H',
     *'J','K','L','M','N','P','Q','R',
     *'S','T','U','V'/


      DO 20, I=1,20
        DO 19, J=1,8
          SET1(I,J) = L1(J) // L2(I)
   19   CONTINUE
   20 CONTINUE



      RETURN
      END
      SUBROUTINE FILL_SET2()
      CHARACTER*2 SET1(20,8)
      CHARACTER*2 SET2(20,8)
      CHARACTER*2 SET3(20,8)
      CHARACTER*2 SET4(20,8)
      CHARACTER*2 SET5(20,8)
      CHARACTER*2 SET6(20,8)
      CHARACTER*1 L1(8)
      CHARACTER*2 L2(20)
      INTEGER I, J
      COMMON/SETS/SET1,SET2,SET3,SET4,SET5,SET6

      DATA L1 /'J','K','L','M','N','P','Q','R'/

      DATA L2
     */'F','G','H','J','K','L','M','N',
     *'P','Q','R','S','T','U','V',
     *'A','B','C','D','E'/



      DO 20, I=1,20
        DO 19, J=1,8
          SET2(I,J) = L1(J) // L2(I)
   19   CONTINUE
   20 CONTINUE




      RETURN
      END
      SUBROUTINE FILL_SET3()
      CHARACTER*2 SET1(20,8)
      CHARACTER*2 SET2(20,8)
      CHARACTER*2 SET3(20,8)
      CHARACTER*2 SET4(20,8)
      CHARACTER*2 SET5(20,8)
      CHARACTER*2 SET6(20,8)
      CHARACTER*1 L1(8)
      CHARACTER*2 L2(20)
      INTEGER I, J
      COMMON/SETS/SET1,SET2,SET3,SET4,SET5,SET6

      DATA L1 /'S','T','U','V','W','X','Y','Z'/

      DATA L2
     */'A','B','C','D','E','F','G','H',
     *'J','K','L','M','N','P','Q','R',
     *'S','T','U','V'/


      DO 20, I=1,20
        DO 19, J=1,8
          SET3(I,J) = L1(J) // L2(I)
   19   CONTINUE
   20 CONTINUE



      RETURN
      END
      SUBROUTINE FILL_SET4()
      CHARACTER*2 SET1(20,8)
      CHARACTER*2 SET2(20,8)
      CHARACTER*2 SET3(20,8)
      CHARACTER*2 SET4(20,8)
      CHARACTER*2 SET5(20,8)
      CHARACTER*2 SET6(20,8)
      CHARACTER*1 L1(8)
      CHARACTER*2 L2(20)
      INTEGER I, J
      COMMON/SETS/SET1,SET2,SET3,SET4,SET5,SET6

      DATA L1 /'A','B','C','D','E','F','G','H'/

      DATA L2
     */'F','G','H','J','K','L','M','N',
     *'P','Q','R','S','T','U','V',
     *'A','B','C','D','E'/



      DO 20, I=1,20
        DO 19, J=1,8
          SET4(I,J) = L1(J) // L2(I)
   19   CONTINUE
   20 CONTINUE




      RETURN
      END
      SUBROUTINE FILL_SET5()
      CHARACTER*2 SET1(20,8)
      CHARACTER*2 SET2(20,8)
      CHARACTER*2 SET3(20,8)
      CHARACTER*2 SET4(20,8)
      CHARACTER*2 SET5(20,8)
      CHARACTER*2 SET6(20,8)
      CHARACTER*1 L1(8)
      CHARACTER*2 L2(20)
      INTEGER I, J
      COMMON/SETS/SET1,SET2,SET3,SET4,SET5,SET6

      DATA L1 /'J','K','L','M','N','P','Q','R'/

      DATA L2
     */'A','B','C','D','E','F','G','H',
     *'J','K','L','M','N','P','Q','R',
     *'S','T','U','V'/


      DO 20, I=1,20
        DO 19, J=1,8
          SET5(I,J) = L1(J) // L2(I)
   19   CONTINUE
   20 CONTINUE



      RETURN
      END
      SUBROUTINE FILL_SET6()
      CHARACTER*2 SET1(20,8)
      CHARACTER*2 SET2(20,8)
      CHARACTER*2 SET3(20,8)
      CHARACTER*2 SET4(20,8)
      CHARACTER*2 SET5(20,8)
      CHARACTER*2 SET6(20,8)
      CHARACTER*1 L1(8)
      CHARACTER*2 L2(20)
      INTEGER I, J
      COMMON/SETS/SET1,SET2,SET3,SET4,SET5,SET6

      DATA L1 /'S','T','U','V','W','X','Y','Z'/

      DATA L2
     */'F','G','H','J','K','L','M','N',
     *'P','Q','R','S','T','U','V',
     *'A','B','C','D','E'/



      DO 20, I=1,20
        DO 19, J=1,8
          SET6(I,J) = L1(J) // L2(I)
   19   CONTINUE
   20 CONTINUE




      RETURN
      END