C     SccsID = "@(#)getnew.f	1.1     07/23/03"
       SUBROUTINE GETNEW(OLD, NZONE, FOUND)

* PARAMETERS

       LOGICAL*4     FOUND
       INTEGER*4     NZONE
       INTEGER*4     OLD

*  LOCAL STATIC VARIABLES

       INTEGER*4     ZOLD(134)
       INTEGER*4     ZNEW(134)

*  ALABAMA

      DATA (ZOLD(I), I=1, 2) /0101, 0102 /

      DATA (ZNEW(I), I=1, 2) /011, 012 /


*  ALASKA

      DATA (ZOLD(I), I=3, 12) /5001, 5002, 5003, 5004,
     .                         5005, 5006, 5007, 5008,
     .                         5009, 5010 /

      DATA (ZNEW(I), I=3, 12) /021, 022, 023, 024, 025, 026,
     .                          027, 028, 029, 020 /


*  ARIZONA

      DATA (ZOLD(I), I=13, 15) /0201, 0202, 0203 /

      DATA (ZNEW(I), I=13, 15) /041, 042, 043 /


*  ARKANSAS

      DATA (ZOLD(I), I=16, 17) /0301, 0302/
      DATA (ZNEW(I), I=16, 17) /051, 052 /

* CALIFONIA

      DATA (ZOLD(I), I=18, 24) /0401, 0402, 0403, 0404, 0405,
     .                          0406, 0407 /
      DATA (ZNEW(I), I=18, 24) /061, 062, 063, 064, 065, 066,
     .                          067 /

*  COLORADO

      DATA (ZOLD(I), I=25, 27) /0501, 0502, 0503 /
      DATA (ZNEW(I), I=25, 27) /081, 082, 083 /

*  CONNECTICUT

      DATA (ZOLD(I), I=28, 28) /0600 /
      DATA (ZNEW(I), I=28, 28) /090 /

*  DELAWARE

      DATA (ZOLD(I), I=29, 29) /0700 /
      DATA (ZNEW(I), I=29, 29) /100 /

*  FLORIDA

      DATA (ZOLD(I), I=30, 32) /0901, 0902, 0903/
      DATA (ZNEW(I), I=30, 32) /121, 122, 123 /

*  GEORGIA

      DATA (ZOLD(I), I=33, 34) /1001, 1002 /
      DATA (ZNEW(I), I=33, 34) /131, 132 /

*  HAWAII

      DATA (ZOLD(I), I=35, 39) /5101, 5102, 5103, 5104, 5105 /
      DATA (ZNEW(I), I=35, 39) /151, 152, 153, 154, 155 /

*  IDAHO

      DATA (ZOLD(I), I=40, 42) /1101, 1102, 1103 /
      DATA (ZNEW(I), I=40, 42) /161, 162, 163 /

*  ILLINOIS

      DATA (ZOLD(I), I=43, 44) /1201, 1202 /
      DATA (ZNEW(I), I=43, 44) /171, 172 /

*  INDIANA

      DATA (ZOLD(I), I=45, 46) /1301, 1302 /
      DATA (ZNEW(I), I=45, 46) /181, 182 /

*  IOWA

      DATA (ZOLD(I), I=47, 48) /1401, 1402 /
      DATA (ZNEW(I), I=47, 48) /191, 192 /

*  KANSAS

      DATA (ZOLD(I), I=49, 50) /1501, 1502 /
      DATA (ZNEW(I), I=49, 50) /201, 202 /

*  KENTUCKY

      DATA (ZOLD(I), I=51, 52) /1601, 1602/
      DATA (ZNEW(I), I=51, 52) /211, 212 /

*  LOUISIANA

      DATA (ZOLD(I), I=53, 55) /1701, 1702, 1703 /
      DATA (ZNEW(I), I=53, 55) /221, 222, 223 /

*  MAINE

      DATA (ZOLD(I), I=56, 57) /1801, 1802 /
      DATA (ZNEW(I), I=56, 57) /231, 232 /

*  MARYLAND

      DATA (ZOLD(I), I=58, 58) /1900 /
      DATA (ZNEW(I), I=58, 58) /240 /

*  MASSACHUSETTS

      DATA (ZOLD(I), I=59, 60) /2001, 2002 /
      DATA (ZNEW(I), I=59, 60) /251, 252 /

*MICHIGAN

      DATA (ZOLD(I), I=61, 66) /2101, 2102, 2103, 2111, 2112, 2113 /
      DATA (ZNEW(I), I=61, 66) /261, 262, 263, 264, 265, 266 /

*  MINNESOTA

      DATA (ZOLD(I), I=67, 69) /2201, 2202, 2203 /
      DATA (ZNEW(I), I=67, 69) /271, 272, 273 /

*  MISSISSIPPI

      DATA (ZOLD(I), I=70, 71) /2301, 2302 /
      DATA (ZNEW(I), I=70, 71) /281, 282 /

*  MISSOURI

      DATA (ZOLD(I), I=72, 74) /2401, 2402, 2403 /
      DATA (ZNEW(I), I=72, 74) /291, 292, 293 /

*  MONTANA

      DATA (ZOLD(I), I=75, 77) /2501, 2502, 2503 /
      DATA (ZNEW(I), I=75, 77) /301, 302, 303 /

*  NEBRASKA

      DATA (ZOLD(I), I=78, 79) /2601, 2602 /
      DATA (ZNEW(I), I=78, 79) /311, 312 /

*  NEVADA

      DATA (ZOLD(I), I=80, 82) /2701, 2702, 2703 /
      DATA (ZNEW(I), I=80, 82) /321, 322, 323 /

*  NEW HAMPSHIRE

      DATA (ZOLD(I), I=83,83) /2800 /
      DATA (ZNEW(I), I=83,83) /330 /

*  NEW JERSEY

      DATA (ZOLD(I), I=84,84) /2900 /
      DATA (ZNEW(I), I=84,84) /340 /

*  NEW MEXICO

      DATA (ZOLD(I), I=85,87) /3001, 3002, 3003 /
      DATA (ZNEW(I), I=85,87) /351, 352, 353 /

*  NEW YORK

      DATA (ZOLD(I), I=88,91) /3101, 3102, 3103, 3104 /
      DATA (ZNEW(I), I=88,91) /361, 362, 363, 364 /

*  NORTH CAROLINA

      DATA (ZOLD(I), I=92,92) /3200 /
      DATA (ZNEW(I), I=92,92) /370 /

*  NORTH DAKOTA

      DATA (ZOLD(I), I=93,94) /3301, 3302 /
      DATA (ZNEW(I), I=93,94) /381, 382 /

*  OHIO

      DATA (ZOLD(I), I=95,96) /3401, 3402 /
      DATA (ZNEW(I), I=95,96) /391 , 392 /

*  OKLAHOMA

      DATA (ZOLD(I), I=97,98) /3501, 3502 /
      DATA (ZNEW(I), I=97,98) /401, 402 /

*  OREGON

      DATA (ZOLD(I), I=99,100) /3601, 3602 /
      DATA (ZNEW(I), I=99,100) /411, 412 /

*  PENNSYLVANIA

      DATA (ZOLD(I), I=101,102) /3701, 3702 /
      DATA (ZNEW(I), I=101,102) /421, 422 /

*  RHODE ISLAND

      DATA (ZOLD(I), I=103,103) / 3800 /
      DATA (ZNEW(I), I=103,103) /440 /

*  SOUTH CAROLINA

      DATA (ZOLD(I), I=104,105) /3901, 3902 /
      DATA (ZNEW(I), I=104,105) /451, 452 /

*  SOUTH DAKOTA

      DATA (ZOLD(I), I=106,107) /4001, 4002 /
      DATA (ZNEW(I), I=106,107) /461, 462 /

*  TENNESSEE

      DATA (ZOLD(I), I=108,108) /4100 /
      DATA (ZNEW(I), I=108,108) /470 /

*  TEXAS

      DATA (ZOLD(I), I=109,113) /4201, 4202, 4203, 4204, 4205/
      DATA (ZNEW(I), I=109,113) /481, 482, 483, 484, 485 /

*  UTAH

      DATA (ZOLD(I), I=114,116) /4301, 4302, 4303 /
      DATA (ZNEW(I), I=114,116) /491, 492, 493 /

*  VERMONT

      DATA (ZOLD(I), I=117,117) /4400 /
      DATA (ZNEW(I), I=117,117) /500 /

*  VIRGINIA

      DATA (ZOLD(I), I=118,119) /4501, 4502 /
      DATA (ZNEW(I), I=118,119) /511, 512 /

*  WASHINGTON

      DATA (ZOLD(I), I=120,121) /4601, 4602 /
      DATA (ZNEW(I), I=120,121) /531 ,532 /

*  WEST VIRGINIA

      DATA (ZOLD(I), I=122,123) /4701 ,4702 /
      DATA (ZNEW(I), I=122,123) /541, 542 /

*  WISCONSIN

      DATA (ZOLD(I), I=124,126) /4801, 4802, 4803 /
      DATA (ZNEW(I), I=124,126) /551, 552, 553 /

*  WYOMING

      DATA (ZOLD(I), I=127,130) /4901, 4902, 4903, 4904 /
      DATA (ZNEW(I), I=127,130) /561, 562, 563, 564 /

*  AMERICIAN SOMOA

      DATA (ZOLD(I), I=131,131) /5300 /
      DATA (ZNEW(I), I=131,131) /030 /

*  GUAM

      DATA (ZOLD(I), I=132,132) /5400 /
      DATA (ZNEW(I), I=132,132) /140 /

*  PUERTO RICO AND VIRGIN ISLANDS

      DATA (ZOLD(I), I=133,133) /5201 /
      DATA (ZNEW(I), I=133,133) /431 /

*  ST. CROIX
      DATA (ZOLD(I), I=134,134) /5202 /
      DATA (ZNEW(I), I=134,134) /432 /

         FOUND=.FALSE.
      DO 100 I=1, 134
        IF(OLD.EQ.ZOLD(I)) THEN
         FOUND=.TRUE.
         K=I
         NZONE=ZNEW(K)
         RETURN
        ENDIF

 100  CONTINUE

       RETURN
       END
C