      subroutine setnam

c set up F-E geographic region names

      common /gnames/ lx, gands
      integer*2 lx(757)
      character*13000 gands

      call makeup (  1,'Central Alaska', gands, lx)
      call makeup (  2,'Southern Alaska', gands, lx)
      call makeup (  3,'Bering Sea', gands, lx)
      call makeup (  4,'Komandorsky Islands region', gands, lx)
      call makeup (  5,'Near Islands', gands, lx)
      call makeup (  6,'Rat Islands', gands, lx)
      call makeup (  7,'Andreanof Islands', gands, lx)
      call makeup (  8,'Pribilof Islands', gands, lx)
      call makeup (  9,'Fox Islands', gands, lx)
      call makeup ( 10,'Unimak Island region', gands, lx)
      call makeup ( 11,'Bristol Bay', gands, lx)
      call makeup ( 12,'Alaska Peninsula', gands, lx)
      call makeup ( 13,'Kodiak Island region', gands, lx)
      call makeup ( 14,'Kenai Peninsula', gands, lx)
      call makeup ( 15,'Gulf of Alaska', gands, lx)
      call makeup ( 16,'Aleutian Islands region', gands, lx)
      call makeup ( 17,'South of Alaska', gands, lx)
      call makeup ( 18,'Southern Yukon Territory', gands, lx)
      call makeup ( 19,'South-Eastern Alaska', gands, lx)
      call makeup ( 20,'Off coast of South-Eastern Alaska', gands, lx)
      call makeup ( 21,'West of Vancouver Island', gands, lx)
      call makeup ( 22,'Queen Charlotte Islands region', gands, lx)
      call makeup ( 23,'British Columbia', gands, lx)
      call makeup ( 24,'Alberta', gands, lx)
      call makeup ( 25,'Vancouver Island region', gands, lx)
      call makeup ( 26,'Off coast of Washington', gands, lx)
      call makeup ( 27,'Near coast of Washington', gands, lx)
      call makeup ( 28,'Washington-Oregon border region', gands, lx)
      call makeup ( 29,'Washington State', gands, lx)
      call makeup ( 30,'Off coast of Oregon', gands, lx)
      call makeup ( 31,'Near coast of Oregon', gands, lx)
      call makeup ( 32,'Oregon', gands, lx)
      call makeup ( 33,'Western Idaho', gands, lx)
      call makeup ( 34,'Off coast of Northern California', gands, lx)
      call makeup ( 35,'Near coast of Northern California', gands, lx)
      call makeup ( 36,'Northern California', gands, lx)
      call makeup ( 37,'Nevada', gands, lx)
      call makeup ( 38,'Off coast of California', gands, lx)
      call makeup ( 39,'Central California', gands, lx)
      call makeup ( 40,'California-Nevada border region', gands, lx)
      call makeup ( 41,'Southern Nevada', gands, lx)
      call makeup ( 42,'Western Arizona', gands, lx)
      call makeup ( 43,'Southern California', gands, lx)
      call makeup ( 44,'California-Arizona border region', gands, lx)
      call makeup ( 45,'California-Mexico border region', gands, lx)
      call makeup ( 46,'Western Arizona-Mexico border region', gands,
     2              lx)
      call makeup ( 47,'Off west coast of Lower California', gands, lx)
      call makeup ( 48,'Lower California', gands, lx)
      call makeup ( 49,'Gulf of California', gands, lx)
      call makeup ( 50,'North-Western Mexico', gands, lx)
      call makeup ( 51,'Off coast of Central Mexico', gands, lx)
      call makeup ( 52,'Near coast of Central Mexico', gands, lx)
      call makeup ( 53,'Revilla Gigedo Islands region', gands, lx)
      call makeup ( 54,'Off coast of Jalisco', gands, lx)
      call makeup ( 55,'Near coast of Jalisco', gands, lx)
      call makeup ( 56,'Near coast of Michoacan', gands, lx)
      call makeup ( 57,'Michoacan', gands, lx)
      call makeup ( 58,'Near coast of Guerrero', gands, lx)
      call makeup ( 59,'Guerrero', gands, lx)
      call makeup ( 60,'Oaxaca', gands, lx)
      call makeup ( 61,'Chiapas', gands, lx)
      call makeup ( 62,'Mexico-Guatemala border region', gands, lx)
      call makeup ( 63,'Off coast of Mexico', gands, lx)
      call makeup ( 64,'Off coast of Michoacan', gands, lx)
      call makeup ( 65,'Off coast of Guerrero', gands, lx)
      call makeup ( 66,'Near coast of Oaxaca', gands, lx)
      call makeup ( 67,'Off coast of Oaxaca', gands, lx)
      call makeup ( 68,'Off coast of Chiapas', gands, lx)
      call makeup ( 69,'Near coast of Chiapas', gands, lx)
      call makeup ( 70,'Guatemala', gands, lx)
      call makeup ( 71,'Near coast of Guatemala', gands, lx)
      call makeup ( 72,'Honduras', gands, lx)
      call makeup ( 73,'El Salvador', gands, lx)
      call makeup ( 74,'Near coast of Nicaragua', gands, lx)
      call makeup ( 75,'Nicaragua', gands, lx)
      call makeup ( 76,'Off coast of Central America', gands, lx)
      call makeup ( 77,'Off coast of Costa Rica', gands, lx)
      call makeup ( 78,'Costa Rica', gands, lx)
      call makeup ( 79,'North of Panama', gands, lx)
      call makeup ( 80,'Panama-Costa Rica border region', gands, lx)
      call makeup ( 81,'Panama', gands, lx)
      call makeup ( 82,'Panama-Colombia border region', gands, lx)
      call makeup ( 83,'South of Panama', gands, lx)
      call makeup ( 84,'Yucatan Peninsula', gands, lx)
      call makeup ( 85,'Cuba region', gands, lx)
      call makeup ( 86,'Jamaica region', gands, lx)
      call makeup ( 87,'Haiti region', gands, lx)
      call makeup ( 88,'Dominican Republic region', gands, lx)
      call makeup ( 89,'Mona Passage', gands, lx)
      call makeup ( 90,'Puerto Rico region', gands, lx)
      call makeup ( 91,'Virgin Islands', gands, lx)
      call makeup ( 92,'Leeward Islands', gands, lx)
      call makeup ( 93,'Belize', gands, lx)
      call makeup ( 94,'Caribbean Sea', gands, lx)
      call makeup ( 95,'Windward Islands', gands, lx)
      call makeup ( 96,'Near north coast of Colombia', gands, lx)
      call makeup ( 97,'Near coast of Venezuela', gands, lx)
      call makeup ( 98,'Trinidad', gands, lx)
      call makeup ( 99,'Northern Colombia', gands, lx)
      call makeup (100,'Lake Maracaibo', gands, lx)
      call makeup (101,'Venezuela', gands, lx)
      call makeup (102,'Near west coast of Colombia', gands, lx)
      call makeup (103,'Colombia', gands, lx)
      call makeup (104,'Off coast of Ecuador', gands, lx)
      call makeup (105,'Near coast of Ecuador', gands, lx)
      call makeup (106,'Colombia-Ecuador border region', gands, lx)
      call makeup (107,'Ecuador', gands, lx)
      call makeup (108,'Off coast of Northern Peru', gands, lx)
      call makeup (109,'Near coast of Northern Peru', gands, lx)
      call makeup (110,'Peru-Ecuador border region', gands, lx)
      call makeup (111,'Northern Peru', gands, lx)
      call makeup (112,'Peru-Brazil border region', gands, lx)
      call makeup (113,'Western Brazil', gands, lx)
      call makeup (114,'Off coast of Peru', gands, lx)
      call makeup (115,'Near coast of Peru', gands, lx)
      call makeup (116,'Peru', gands, lx)
      call makeup (117,'Southern Peru', gands, lx)
      call makeup (118,'Peru-Bolivia border region', gands, lx)
      call makeup (119,'Northern Bolivia', gands, lx)
      call makeup (120,'Bolivia', gands, lx)
      call makeup (121,'Off coast of Northern Chile', gands, lx)
      call makeup (122,'Near coast of Northern Chile', gands, lx)
      call makeup (123,'Northern Chile', gands, lx)
      call makeup (124,'Chile-Bolivia border region', gands, lx)
      call makeup (125,'Southern Bolivia', gands, lx)
      call makeup (126,'Paraguay', gands, lx)
      call makeup (127,'Chile-Argentina border region', gands, lx)
      call makeup (128,'Jujuy Province', gands, lx)
      call makeup (129,'Salta Province', gands, lx)
      call makeup (130,'Catamarca Province', gands, lx)
      call makeup (131,'Tucuman Province', gands, lx)
      call makeup (132,'Santiago del Estero Province', gands, lx)
      call makeup (133,'North-Eastern Argentina', gands, lx)
      call makeup (134,'Off coast of Central Chile', gands, lx)
      call makeup (135,'Near coast of Central Chile', gands, lx)
      call makeup (136,'Central Chile', gands, lx)
      call makeup (137,'San Juan Province', gands, lx)
      call makeup (138,'La Rioja Province', gands, lx)
      call makeup (139,'Mendoza Province', gands, lx)
      call makeup (140,'San Luis Province', gands, lx)
      call makeup (141,'Cordoba Province', gands, lx)
      call makeup (142,'Uruguay', gands, lx)
      call makeup (143,'Off coast of Southern Chile', gands, lx)
      call makeup (144,'Near coast of Southern Chile', gands, lx)
      call makeup (145,'Southern Chile-Argentina border region', gands,
     2               lx)
      call makeup (146,'Argentina', gands, lx)
      call makeup (147,'Tierra del Fuego', gands, lx)
      call makeup (148,'Falkland Islands region', gands, lx)
      call makeup (149,'Drake Passage', gands, lx)
      call makeup (150,'Scotia Sea', gands, lx)
      call makeup (151,'South Georgia Island region', gands, lx)
      call makeup (152,'South Georgia Rise', gands, lx)
      call makeup (153,'South Sandwich Islands region', gands, lx)
      call makeup (154,'South Shetland Islands', gands, lx)
      call makeup (155,'Palmer Peninsula', gands, lx)
      call makeup (156,'South-Western Atlantic Ocean', gands, lx)
      call makeup (157,'Weddell Sea', gands, lx)
      call makeup (158,'Off west coast of North Island', gands, lx)
      call makeup (159,'North Island', gands, lx)
      call makeup (160,'Off east coast of North Island', gands, lx)
      call makeup (161,'Off west coast of South Island', gands, lx)
      call makeup (162,'South Island', gands, lx)
      call makeup (163,'Cook Strait', gands, lx)
      call makeup (164,'Off east coast of South Island', gands, lx)
      call makeup (165,'North of Macquarie Island', gands, lx)
      call makeup (166,'Auckland Islands region', gands, lx)
      call makeup (167,'Macquarie Island region', gands, lx)
      call makeup (168,'South of New Zealand', gands, lx)
      call makeup (169,'Samoa region', gands, lx)
      call makeup (170,'Samoa', gands, lx)
      call makeup (171,'South of Fiji', gands, lx)
      call makeup (172,'-unused-', gands, lx)
      call makeup (173,'Tonga', gands, lx)
      call makeup (174,'Tonga region', gands, lx)
      call makeup (175,'South of Tonga', gands, lx)
      call makeup (176,'North of New Zealand', gands, lx)
      call makeup (177,'Kermadec Islands region', gands, lx)
      call makeup (178,'Kermadec Islands', gands, lx)
      call makeup (179,'South of Kermadec Islands', gands, lx)
      call makeup (180,'North of Fiji', gands, lx)
      call makeup (181,'Fiji region', gands, lx)
      call makeup (182,'Fiji', gands, lx)
      call makeup (183,'Santa Cruz Islands region', gands, lx)
      call makeup (184,'Santa Cruz Islands', gands, lx)
      call makeup (185,'Vanuatu region', gands, lx)
      call makeup (186,'Vanuatu', gands, lx)
      call makeup (187,'New Caledonia', gands, lx)
      call makeup (188,'Loyalty Islands', gands, lx)
      call makeup (189,'Loyalty Islands region', gands, lx)
      call makeup (190,'New Ireland region', gands, lx)
      call makeup (191,'North of Solomon Islands', gands, lx)
      call makeup (192,'New Britain region', gands, lx)
      call makeup (193,'Solomon Islands', gands, lx)
      call makeup (194,'D''Entrecasteaux Islands region', gands, lx)
      call makeup (195,'Solomon Islands region', gands, lx)
      call makeup (196,'West Irian region', gands, lx)
      call makeup (197,'Near north coast of West Irian', gands, lx)
      call makeup (198,'New Guinea region', gands, lx)
      call makeup (199,'Admiralty Islands region', gands, lx)
      call makeup (200,'Near north coast of New Guinea', gands, lx)
      call makeup (201,'West Irian', gands, lx)
      call makeup (202,'New Guinea', gands, lx)
      call makeup (203,'Bismarck Sea', gands, lx)
      call makeup (204,'Aroe Islands region', gands, lx)
      call makeup (205,'Near south coast of West Irian', gands, lx)
      call makeup (206,'Near south coast of New Guinea', gands, lx)
      call makeup (207,'Eastern New Guinea region', gands, lx)
      call makeup (208,'Arafura Sea', gands, lx)
      call makeup (209,'Western Caroline Islands', gands, lx)
      call makeup (210,'South of the Marianas', gands, lx)
      call makeup (211,'South of Honshu', gands, lx)
      call makeup (212,'Bonin Islands region', gands, lx)
      call makeup (213,'Volcano Islands region', gands, lx)
      call makeup (214,'West of the Marianas', gands, lx)
      call makeup (215,'Marianas region', gands, lx)
      call makeup (216,'Marianas', gands, lx)
      call makeup (217,'Kamchatka', gands, lx)
      call makeup (218,'Near east coast of Kamchatka', gands, lx)
      call makeup (219,'Off east coast of Kamchatka', gands, lx)
      call makeup (220,'North-west of Kuril Islands', gands, lx)
      call makeup (221,'Kuril Islands', gands, lx)
      call makeup (222,'Kuril Islands region', gands, lx)
      call makeup (223,'Eastern Sea of Japan', gands, lx)
      call makeup (224,'Hokkaido region', gands, lx)
      call makeup (225,'Off coast of Hokkaido', gands, lx)
      call makeup (226,'Near west coast of Honshu', gands, lx)
      call makeup (227,'Honshu', gands, lx)
      call makeup (228,'Near east coast of Honshu', gands, lx)
      call makeup (229,'Off east coast of Honshu', gands, lx)
      call makeup (230,'Near south coast of Honshu', gands, lx)
      call makeup (231,'South Korea', gands, lx)
      call makeup (232,'Southern Honshu', gands, lx)
      call makeup (233,'Near south coast of Southern Honshu', gands, lx)
      call makeup (234,'East China Sea', gands, lx)
      call makeup (235,'Kyushu', gands, lx)
      call makeup (236,'Shikoku', gands, lx)
      call makeup (237,'South-east of Shikoku', gands, lx)
      call makeup (238,'Ryukyu Islands', gands, lx)
      call makeup (239,'Ryukyu Islands region', gands, lx)
      call makeup (240,'East of Ryukyu Islands', gands, lx)
      call makeup (241,'Philippine Sea', gands, lx)
      call makeup (242,'Near south-eastern coast of China', gands, lx)
      call makeup (243,'Taiwan region', gands, lx)
      call makeup (244,'Taiwan', gands, lx)
      call makeup (245,'North-east of Taiwan', gands, lx)
      call makeup (246,'South-western Ryukyu Islands', gands, lx)
      call makeup (247,'South-east of Taiwan', gands, lx)
      call makeup (248,'Philippine Islands region', gands, lx)
      call makeup (249,'Luzon', gands, lx)
      call makeup (250,'Mindoro', gands, lx)
      call makeup (251,'Samar', gands, lx)
      call makeup (252,'Palawan', gands, lx)
      call makeup (253,'Sulu Sea', gands, lx)
      call makeup (254,'Panay', gands, lx)
      call makeup (255,'Cebu', gands, lx)
      call makeup (256,'Leyte', gands, lx)
      call makeup (257,'Negros', gands, lx)
      call makeup (258,'Sangihe Islands', gands, lx)
      call makeup (259,'Mindanao', gands, lx)
      call makeup (260,'East of Philippine Islands', gands, lx)
      call makeup (261,'Kalimantan', gands, lx)
      call makeup (262,'Celebes Sea', gands, lx)
      call makeup (263,'Talaud Islands', gands, lx)
      call makeup (264,'North of Djailolo Gilolo', gands, lx)
      call makeup (265,'Minahassa Peninsula', gands, lx)
      call makeup (266,'Molucca Passage', gands, lx)
      call makeup (267,'Djailolo Gilolo', gands, lx)
      call makeup (268,'Sulawesi', gands, lx)
      call makeup (269,'Molucca Sea', gands, lx)
      call makeup (270,'Ceram Sea', gands, lx)
      call makeup (271,'Buru', gands, lx)
      call makeup (272,'Seram', gands, lx)
      call makeup (273,'South-west of Sumatera', gands, lx)
      call makeup (274,'Southern Sumatera', gands, lx)
      call makeup (275,'Java Sea', gands, lx)
      call makeup (276,'Sunda Strait', gands, lx)
      call makeup (277,'Java', gands, lx)
      call makeup (278,'Bali Sea', gands, lx)
      call makeup (279,'Flores Sea', gands, lx)
      call makeup (280,'Banda Sea', gands, lx)
      call makeup (281,'Tanimbar Islands region', gands, lx)
      call makeup (282,'South of Java', gands, lx)
      call makeup (283,'Bali region', gands, lx)
      call makeup (284,'South of Bali', gands, lx)
      call makeup (285,'Sumbawa region', gands, lx)
      call makeup (286,'Flores region', gands, lx)
      call makeup (287,'Sumba region', gands, lx)
      call makeup (288,'Savu Sea', gands, lx)
      call makeup (289,'Timor', gands, lx)
      call makeup (290,'Timor Sea', gands, lx)
      call makeup (291,'South of Sumbawa', gands, lx)
      call makeup (292,'South of Sumba', gands, lx)
      call makeup (293,'South of Timor', gands, lx)
      call makeup (294,'Myanmar-India border region', gands, lx)
      call makeup (295,'Myanmar-Bangladesh border region', gands, lx)
      call makeup (296,'Myanmar', gands, lx)
      call makeup (297,'Myanmar-China border region', gands, lx)
      call makeup (298,'South Myanmar', gands, lx)
      call makeup (299,'Indo-Pacific Peninsula', gands, lx)
      call makeup (300,'Hai-nan Island', gands, lx)
      call makeup (301,'South China Sea', gands, lx)
      call makeup (302,'Eastern Kashmir', gands, lx)
      call makeup (303,'Southern Kashmir region', gands, lx)
      call makeup (304,'Kashmir-Xizang border region', gands, lx)
      call makeup (305,'Xizang-India border region', gands, lx)
      call makeup (306,'Xizang', gands, lx)
      call makeup (307,'Sichuan Province', gands, lx)
      call makeup (308,'Northern India', gands, lx)
      call makeup (309,'Nepal-India border region', gands, lx)
      call makeup (310,'Nepal', gands, lx)
      call makeup (311,'Sikkim', gands, lx)
      call makeup (312,'Bhutan', gands, lx)
      call makeup (313,'India-China border region', gands, lx)
      call makeup (314,'India', gands, lx)
      call makeup (315,'India-Bangladesh border region', gands, lx)
      call makeup (316,'Bangladesh', gands, lx)
      call makeup (317,'Eastern India', gands, lx)
      call makeup (318,'Yunnan Province', gands, lx)
      call makeup (319,'Bay of Bengal', gands, lx)
      call makeup (320,'Kirgiziya-Xinjiang border region', gands, lx)
      call makeup (321,'Southern Xinjiang Province', gands, lx)
      call makeup (322,'Gansu Province', gands, lx)
      call makeup (323,'Northern China', gands, lx)
      call makeup (324,'Kashmir-Xinjiang border region', gands, lx)
      call makeup (325,'Qinghai Province', gands, lx)
      call makeup (326,'Central Russia', gands, lx)
      call makeup (327,'Lake Baikal region', gands, lx)
      call makeup (328,'East of Lake Baikal', gands, lx)
      call makeup (329,'Eastern Kazakhstan', gands, lx)
      call makeup (330,'Alma-Ata region', gands, lx)
      call makeup (331,'Kazakhstan-Xinjiang border region', gands, lx)
      call makeup (332,'Northern Xinjiang Province', gands, lx)
      call makeup (333,'USSR-Mongolia border region', gands, lx)
      call makeup (334,'Mongolia', gands, lx)
      call makeup (335,'Ural Mountains region', gands, lx)
      call makeup (336,'Western Kazakhstan', gands, lx)
      call makeup (337,'Eastern Caucasus', gands, lx)
      call makeup (338,'Caspian Sea', gands, lx)
      call makeup (339,'Uzbekistan', gands, lx)
      call makeup (340,'Turkmeniya', gands, lx)
      call makeup (341,'Iran-USSR border region', gands, lx)
      call makeup (342,'Turkmeniya-Afghanistan border region', gands,
     2             lx)
      call makeup (343,'Turkey-Iran border region', gands, lx)
      call makeup (344,'North-Western Iran-USSR border region', gands,
     2             lx)
      call makeup (345,'North-Western Iran', gands, lx)
      call makeup (346,'Iran-Iraq border region', gands, lx)
      call makeup (347,'Western Iran', gands, lx)
      call makeup (348,'Iran', gands, lx)
      call makeup (349,'North-Western Afghanistan', gands, lx)
      call makeup (350,'South-Western Afghanistan', gands, lx)
      call makeup (351,'Eastern Arabian Peninsula', gands, lx)
      call makeup (352,'Persian Gulf', gands, lx)
      call makeup (353,'Southern Iran', gands, lx)
      call makeup (354,'Western Pakistan', gands, lx)
      call makeup (355,'Gulf of Oman', gands, lx)
      call makeup (356,'Near coast of Pakistan', gands, lx)
      call makeup (357,'South-Western Russia', gands, lx)
      call makeup (358,'Romania', gands, lx)
      call makeup (359,'Bulgaria', gands, lx)
      call makeup (360,'Black Sea', gands, lx)
      call makeup (361,'Crimea region', gands, lx)
      call makeup (362,'Western Caucasus', gands, lx)
      call makeup (363,'Greece-Bulgaria border region', gands, lx)
      call makeup (364,'Greece', gands, lx)
      call makeup (365,'AEgean Sea', gands, lx)
      call makeup (366,'Turkey', gands, lx)
      call makeup (367,'Turkey-USSR border region', gands, lx)
      call makeup (368,'Southern Greece', gands, lx)
      call makeup (369,'Dodecanese Islands', gands, lx)
      call makeup (370,'Crete', gands, lx)
      call makeup (371,'Eastern Mediterranean Sea', gands, lx)
      call makeup (372,'Cyprus', gands, lx)
      call makeup (373,'Dead Sea region', gands, lx)
      call makeup (374,'Jordan-Syria region', gands, lx)
      call makeup (375,'Iraq', gands, lx)
      call makeup (376,'Portugal', gands, lx)
      call makeup (377,'Spain', gands, lx)
      call makeup (378,'Pyrenees', gands, lx)
      call makeup (379,'Near south coast of France', gands, lx)
      call makeup (380,'Corsica', gands, lx)
      call makeup (381,'Central Italy', gands, lx)
      call makeup (382,'Adriatic Sea', gands, lx)
      call makeup (383,'Northwestern Balkan region', gands, lx)
      call makeup (384,'West of Gibraltar', gands, lx)
      call makeup (385,'Straits of Gibraltar', gands, lx)
      call makeup (386,'Balearic Islands', gands, lx)
      call makeup (387,'Western Mediterranean Sea', gands, lx)
      call makeup (388,'Sardinia', gands, lx)
      call makeup (389,'Tyrrhenian Sea', gands, lx)
      call makeup (390,'Southern Italy', gands, lx)
      call makeup (391,'Albania', gands, lx)
      call makeup (392,'Greece-Albania border region', gands, lx)
      call makeup (393,'Madeira region', gands, lx)
      call makeup (394,'Canary Islands region', gands, lx)
      call makeup (395,'Morocco', gands, lx)
      call makeup (396,'Algeria', gands, lx)
      call makeup (397,'Tunisia', gands, lx)
      call makeup (398,'Sicily', gands, lx)
      call makeup (399,'Ionian Sea', gands, lx)
      call makeup (400,'Mediterranean Sea', gands, lx)
      call makeup (401,'Near coast of Libya', gands, lx)
      call makeup (402,'North Atlantic Ocean', gands, lx)
      call makeup (403,'North Atlantic Ridge', gands, lx)
      call makeup (404,'Azores region', gands, lx)
      call makeup (405,'Azores', gands, lx)
      call makeup (406,'Central Mid-Atlantic Ridge', gands, lx)
      call makeup (407,'North of Ascension Island', gands, lx)
      call makeup (408,'Ascension Island region', gands, lx)
      call makeup (409,'South Atlantic Ocean', gands, lx)
      call makeup (410,'South Atlantic Ridge', gands, lx)
      call makeup (411,'Tristan da Cunha region', gands, lx)
      call makeup (412,'Bouvet Island region', gands, lx)
      call makeup (413,'South-west of Africa', gands, lx)
      call makeup (414,'South-Eastern Atlantic Ocean', gands, lx)
      call makeup (415,'Eastern Gulf of Aden', gands, lx)
      call makeup (416,'Socotra region', gands, lx)
      call makeup (417,'Arabian Sea', gands, lx)
      call makeup (418,'Laccadive Islands region', gands, lx)
      call makeup (419,'North-Eastern Somalia', gands, lx)
      call makeup (420,'North Indian Ocean', gands, lx)
      call makeup (421,'Carlsberg Ridge', gands, lx)
      call makeup (422,'Maldive Islands region', gands, lx)
      call makeup (423,'Laccadive Sea', gands, lx)
      call makeup (424,'Sri Lanka', gands, lx)
      call makeup (425,'South Indian Ocean', gands, lx)
      call makeup (426,'Chagos Archipelago region', gands, lx)
      call makeup (427,'Mascarene Islands region', gands, lx)
      call makeup (428,'Atlantic-Indian Ridge', gands, lx)
      call makeup (429,'Mid-Indian Rise', gands, lx)
      call makeup (430,'South of Africa', gands, lx)
      call makeup (431,'Prince Edward Islands region', gands, lx)
      call makeup (432,'Crozet Islands region', gands, lx)
      call makeup (433,'Kerguelen Islands region', gands, lx)
      call makeup (434,'Amsterdam-Naturaliste Ridge', gands, lx)
      call makeup (435,'South-East Indian Ridge', gands, lx)
      call makeup (436,'Kerguelen-Gaussberg Ridge', gands, lx)
      call makeup (437,'South of Australia', gands, lx)
      call makeup (438,'Saskatchewan Province', gands, lx)
      call makeup (439,'Manitoba Province', gands, lx)
      call makeup (440,'Hudson Bay', gands, lx)
      call makeup (441,'Ontario', gands, lx)
      call makeup (442,'Hudson Strait region', gands, lx)
      call makeup (443,'Northern Quebec Province', gands, lx)
      call makeup (444,'Davis Strait', gands, lx)
      call makeup (445,'Labrador', gands, lx)
      call makeup (446,'East of Labrador', gands, lx)
      call makeup (447,'Southern Quebec Province', gands, lx)
      call makeup (448,'Gaspe Peninsula', gands, lx)
      call makeup (449,'Eastern Quebec Province', gands, lx)
      call makeup (450,'Anticosti Island', gands, lx)
      call makeup (451,'New Brunswick', gands, lx)
      call makeup (452,'Nova Scotia', gands, lx)
      call makeup (453,'Prince Edward Island', gands, lx)
      call makeup (454,'Gulf of St Lawrence', gands, lx)
      call makeup (455,'Newfoundland', gands, lx)
      call makeup (456,'Montana', gands, lx)
      call makeup (457,'Eastern Idaho', gands, lx)
      call makeup (458,'Hebgen Lake region', gands, lx)
      call makeup (459,'Yellowstone National Park', gands, lx)
      call makeup (460,'Wyoming', gands, lx)
      call makeup (461,'North Dakota', gands, lx)
      call makeup (462,'South Dakota', gands, lx)
      call makeup (463,'Nebraska', gands, lx)
      call makeup (464,'Minnesota', gands, lx)
      call makeup (465,'Iowa', gands, lx)
      call makeup (466,'Wisconsin', gands, lx)
      call makeup (467,'Illinois', gands, lx)
      call makeup (468,'Michigan', gands, lx)
      call makeup (469,'Indiana', gands, lx)
      call makeup (470,'Southern Ontario', gands, lx)
      call makeup (471,'Ohio', gands, lx)
      call makeup (472,'New York State', gands, lx)
      call makeup (473,'Pennsylvania', gands, lx)
      call makeup (474,'Northern New England', gands, lx)
      call makeup (475,'Maine', gands, lx)
      call makeup (476,'Southern New England', gands, lx)
      call makeup (477,'Gulf of Maine', gands, lx)
      call makeup (478,'Utah', gands, lx)
      call makeup (479,'Colorado', gands, lx)
      call makeup (480,'Kansas', gands, lx)
      call makeup (481,'Iowa-Missouri border region', gands, lx)
      call makeup (482,'Missouri-Kansas border region', gands, lx)
      call makeup (483,'Missouri', gands, lx)
      call makeup (484,'Missouri-Arkansas border region', gands, lx)
      call makeup (485,'Eastern Missouri', gands, lx)
      call makeup (486,'New Madrid region', gands, lx)
      call makeup (487,'Cape Girardeau region', gands, lx)
      call makeup (488,'Southern Illinois', gands, lx)
      call makeup (489,'Southern Indiana', gands, lx)
      call makeup (490,'Kentucky', gands, lx)
      call makeup (491,'West Virginia', gands, lx)
      call makeup (492,'Virginia', gands, lx)
      call makeup (493,'Chesapeake Bay region', gands, lx)
      call makeup (494,'New Jersey', gands, lx)
      call makeup (495,'Eastern Arizona', gands, lx)
      call makeup (496,'New Mexico', gands, lx)
      call makeup (497,'Texas Panhandle region', gands, lx)
      call makeup (498,'West Texas', gands, lx)
      call makeup (499,'Oklahoma', gands, lx)
      call makeup (500,'Central Texas', gands, lx)
      call makeup (501,'Arkansas-Oklahoma border region', gands, lx)
      call makeup (502,'Arkansas', gands, lx)
      call makeup (503,'Louisiana-Texas border region', gands, lx)
      call makeup (504,'Louisiana', gands, lx)
      call makeup (505,'Mississippi', gands, lx)
      call makeup (506,'Tennessee', gands, lx)
      call makeup (507,'Alabama', gands, lx)
      call makeup (508,'Western Florida', gands, lx)
      call makeup (509,'Georgia', gands, lx)
      call makeup (510,'Florida-Georgia border region', gands, lx)
      call makeup (511,'South Carolina', gands, lx)
      call makeup (512,'North Carolina', gands, lx)
      call makeup (513,'Off east coast of United States', gands, lx)
      call makeup (514,'Florida Peninsula', gands, lx)
      call makeup (515,'Bahama Islands', gands, lx)
      call makeup (516,'Eastern Arizona-Mexico border region', gands,
     2              lx)
      call makeup (517,'Mexico-New Mexico border region', gands, lx)
      call makeup (518,'Texas-Mexico border region', gands, lx)
      call makeup (519,'Southern Texas', gands, lx)
      call makeup (520,'Texas Gulf Coast', gands, lx)
      call makeup (521,'Chihuahua', gands, lx)
      call makeup (522,'Northern Mexico', gands, lx)
      call makeup (523,'Central Mexico', gands, lx)
      call makeup (524,'Jalisco', gands, lx)
      call makeup (525,'Veracruz State', gands, lx)
      call makeup (526,'Gulf of Mexico', gands, lx)
      call makeup (527,'Gulf of Campeche', gands, lx)
      call makeup (528,'Brazil', gands, lx)
      call makeup (529,'Guyana', gands, lx)
      call makeup (530,'Suriname', gands, lx)
      call makeup (531,'French Guiana', gands, lx)
      call makeup (532,'Eire', gands, lx)
      call makeup (533,'United Kingdom', gands, lx)
      call makeup (534,'North Sea', gands, lx)
      call makeup (535,'Southern Norway', gands, lx)
      call makeup (536,'Sweden', gands, lx)
      call makeup (537,'Baltic Sea', gands, lx)
      call makeup (538,'France', gands, lx)
      call makeup (539,'Bay of Biscay', gands, lx)
      call makeup (540,'The Netherlands', gands, lx)
      call makeup (541,'Belgium', gands, lx)
      call makeup (542,'Denmark', gands, lx)
      call makeup (543,'Germany', gands, lx)
      call makeup (544,'Switzerland', gands, lx)
      call makeup (545,'Northern Italy', gands, lx)
      call makeup (546,'Austria', gands, lx)
      call makeup (547,'Czech and Slovak Republics', gands, lx)
      call makeup (548,'Poland', gands, lx)
      call makeup (549,'Hungary', gands, lx)
      call makeup (550,'North-West Africa', gands, lx)
      call makeup (551,'Southern Algeria', gands, lx)
      call makeup (552,'Libya', gands, lx)
      call makeup (553,'Egypt', gands, lx)
      call makeup (554,'Red Sea', gands, lx)
      call makeup (555,'Western Arabian Peninsula', gands, lx)
      call makeup (556,'Central Africa', gands, lx)
      call makeup (557,'Sudan', gands, lx)
      call makeup (558,'Ethiopia', gands, lx)
      call makeup (559,'Western Gulf of Aden', gands, lx)
      call makeup (560,'North-Western Somalia', gands, lx)
      call makeup (561,'Off south coast of North-West Africa', gands,
     2             lx)
      call makeup (562,'Cameroon', gands, lx)
      call makeup (563,'Equatorial Guinea', gands, lx)
      call makeup (564,'Central African Republic', gands, lx)
      call makeup (565,'Gabon', gands, lx)
      call makeup (566,'Congo', gands, lx)
      call makeup (567,'Zaire', gands, lx)
      call makeup (568,'Uganda', gands, lx)
      call makeup (569,'Lake Victoria region', gands, lx)
      call makeup (570,'Kenya', gands, lx)
      call makeup (571,'Southern Somalia', gands, lx)
      call makeup (572,'Lake Tanganyika region', gands, lx)
      call makeup (573,'Tanzania', gands, lx)
      call makeup (574,'North-west of Madagascar', gands, lx)
      call makeup (575,'Angola', gands, lx)
      call makeup (576,'Zambia', gands, lx)
      call makeup (577,'Malawi', gands, lx)
      call makeup (578,'Namibia', gands, lx)
      call makeup (579,'Botswana', gands, lx)
      call makeup (580,'Zimbabwe', gands, lx)
      call makeup (581,'Mocambique', gands, lx)
      call makeup (582,'Mocambique Channel', gands, lx)
      call makeup (583,'Madagascar', gands, lx)
      call makeup (584,'South Africa', gands, lx)
      call makeup (585,'Lesotho', gands, lx)
      call makeup (586,'Swaziland', gands, lx)
      call makeup (587,'Off coast of South Africa', gands, lx)
      call makeup (588,'North-West of Australia', gands, lx)
      call makeup (589,'West of Australia', gands, lx)
      call makeup (590,'Western Australia', gands, lx)
      call makeup (591,'Northern Territory', gands, lx)
      call makeup (592,'South Australia', gands, lx)
      call makeup (593,'Gulf of Carpenteria', gands, lx)
      call makeup (594,'Queensland', gands, lx)
      call makeup (595,'Coral Sea', gands, lx)
      call makeup (596,'South of Solomon Islands', gands, lx)
      call makeup (597,'New Caledonia region', gands, lx)
      call makeup (598,'South-west of Australia', gands, lx)
      call makeup (599,'Off south coast of Australia', gands, lx)
      call makeup (600,'Near south coast of Australia', gands, lx)
      call makeup (601,'New South Wales', gands, lx)
      call makeup (602,'Victoria', gands, lx)
      call makeup (603,'Near south-east coast of Australia', gands, lx)
      call makeup (604,'Near east coast of Australia', gands, lx)
      call makeup (605,'East of Australia', gands, lx)
      call makeup (606,'Norfolk Island region', gands, lx)
      call makeup (607,'North-west of New Zealand', gands, lx)
      call makeup (608,'Bass Strait', gands, lx)
      call makeup (609,'Tasmania region', gands, lx)
      call makeup (610,'South-east of Australia', gands, lx)
      call makeup (611,'North Pacific Ocean', gands, lx)
      call makeup (612,'Hawaiian Islands region', gands, lx)
      call makeup (613,'Hawaiian Islands', gands, lx)
      call makeup (614,'Caroline Islands region', gands, lx)
      call makeup (615,'Marshall Islands region', gands, lx)
      call makeup (616,'Eniwetok Atoll region', gands, lx)
      call makeup (617,'Bikini Atoll region', gands, lx)
      call makeup (618,'Kiribati region', gands, lx)
      call makeup (619,'Johnston Island region', gands, lx)
      call makeup (620,'Line Islands region', gands, lx)
      call makeup (621,'Palmyra Island region', gands, lx)
      call makeup (622,'Christmas Island region', gands, lx)
      call makeup (623,'Tuvalu region', gands, lx)
      call makeup (624,'Phoenix Islands region', gands, lx)
      call makeup (625,'Tokelau Islands region', gands, lx)
      call makeup (626,'Northern Cook Islands', gands, lx)
      call makeup (627,'Cook Islands region', gands, lx)
      call makeup (628,'Society Islands region', gands, lx)
      call makeup (629,'Tubuai Islands region', gands, lx)
      call makeup (630,'Marquesas Islands region', gands, lx)
      call makeup (631,'Tuamotu Archipelago region', gands, lx)
      call makeup (632,'South Pacific Ocean', gands, lx)
      call makeup (633,'Lomonosov Ridge', gands, lx)
      call makeup (634,'Arctic Ocean', gands, lx)
      call makeup (635,'Near north coast of Greenland', gands, lx)
      call makeup (636,'Eastern Greenland', gands, lx)
      call makeup (637,'Iceland region', gands, lx)
      call makeup (638,'Iceland', gands, lx)
      call makeup (639,'Jan Mayen Island region', gands, lx)
      call makeup (640,'Greenland Sea', gands, lx)
      call makeup (641,'North of Svalbard', gands, lx)
      call makeup (642,'Norwegian Sea', gands, lx)
      call makeup (643,'Svalbard region', gands, lx)
      call makeup (644,'North of Franz Joseph Land', gands, lx)
      call makeup (645,'Franz Joseph Land', gands, lx)
      call makeup (646,'Northern Norway', gands, lx)
      call makeup (647,'Barents Sea', gands, lx)
      call makeup (648,'Novaya Zemlya', gands, lx)
      call makeup (649,'Kara Sea', gands, lx)
      call makeup (650,'Near coast of Western Siberia', gands, lx)
      call makeup (651,'North of Severnaya Zemlya', gands, lx)
      call makeup (652,'Severnaya Zemlya', gands, lx)
      call makeup (653,'Near coast of Central Siberia', gands, lx)
      call makeup (654,'East of Severnaya Zemlya', gands, lx)
      call makeup (655,'Laptev Sea', gands, lx)
      call makeup (656,'Eastern Russia', gands, lx)
      call makeup (657,'E. Russia-N.E. China border region', gands, lx)
      call makeup (658,'North-Eastern China', gands, lx)
      call makeup (659,'North Korea', gands, lx)
      call makeup (660,'Sea of Japan', gands, lx)
      call makeup (661,'Near east coast of Eastern Russia', gands, lx)
      call makeup (662,'Sakhalin', gands, lx)
      call makeup (663,'Sea of Okhotsk', gands, lx)
      call makeup (664,'Eastern China', gands, lx)
      call makeup (665,'Yellow Sea', gands, lx)
      call makeup (666,'Off coast of Eastern China', gands, lx)
      call makeup (667,'North of New Siberian Islands', gands, lx)
      call makeup (668,'New Siberian Islands', gands, lx)
      call makeup (669,'East Siberian Sea', gands, lx)
      call makeup (670,'Near north coast of Eastern Siberia', gands, lx)
      call makeup (671,'Eastern Siberia', gands, lx)
      call makeup (672,'Chukchi Sea', gands, lx)
      call makeup (673,'Bering Strait', gands, lx)
      call makeup (674,'St Lawrence Island region', gands, lx)
      call makeup (675,'Beaufort Sea', gands, lx)
      call makeup (676,'Alaska', gands, lx)
      call makeup (677,'Northern Yukon Territory', gands, lx)
      call makeup (678,'Queen Elizabeth Islands', gands, lx)
      call makeup (679,'Northwest Territories', gands, lx)
      call makeup (680,'Western Greenland', gands, lx)
      call makeup (681,'Baffin Bay', gands, lx)
      call makeup (682,'Baffin Island region', gands, lx)
      call makeup (683,'South-East Central Pacific Ocean', gands, lx)
      call makeup (684,'Easter Island Cordillera', gands, lx)
      call makeup (685,'Easter Island region', gands, lx)
      call makeup (686,'West Chile Rise', gands, lx)
      call makeup (687,'Juan Fernandez Islands region', gands, lx)
      call makeup (688,'East of North Island', gands, lx)
      call makeup (689,'Chatham Islands region', gands, lx)
      call makeup (690,'South of Chatham Islands', gands, lx)
      call makeup (691,'South Pacific Cordillera', gands, lx)
      call makeup (692,'Southern Pacific Ocean', gands, lx)
      call makeup (693,'East Central Pacific Ocean', gands, lx)
      call makeup (694,'Northern Easter I. Cordillera', gands, lx)
      call makeup (695,'West of Galapagos Islands', gands, lx)
      call makeup (696,'Galapagos Islands region', gands, lx)
      call makeup (697,'Galapagos Islands', gands, lx)
      call makeup (698,'South-west of Galapagos Islands', gands, lx)
      call makeup (699,'South-east of Galapagos Islands', gands, lx)
      call makeup (700,'South of Tasmania', gands, lx)
      call makeup (701,'West of Macquarie Island', gands, lx)
      call makeup (702,'Balleny Islands region', gands, lx)
      call makeup (703,'Andaman Islands region', gands, lx)
      call makeup (704,'Nicobar Islands region', gands, lx)
      call makeup (705,'Off west coast of Northern Sumatera', gands, lx)
      call makeup (706,'Northern Sumatera', gands, lx)
      call makeup (707,'Malay Peninsula', gands, lx)
      call makeup (708,'Gulf of Siam', gands, lx)
      call makeup (709,'Afghanistan', gands, lx)
      call makeup (710,'Pakistan', gands, lx)
      call makeup (711,'South-Western Kashmir', gands, lx)
      call makeup (712,'India-Pakistan border region', gands, lx)
      call makeup (713,'Central Kazakhstan', gands, lx)
      call makeup (714,'South-Eastern Uzbekistan', gands, lx)
      call makeup (715,'Tadzhikistan', gands, lx)
      call makeup (716,'Kirgiziya', gands, lx)
      call makeup (717,'Afghanistan-USSR border region', gands, lx)
      call makeup (718,'Hindu Kush region', gands, lx)
      call makeup (719,'Tadzhikistan-Xinjiang border region', gands, lx)
      call makeup (720,'North-Western Kashmir', gands, lx)
      call makeup (721,'Finland', gands, lx)
      call makeup (722,'Norway-USSR border region', gands, lx)
      call makeup (723,'Finland-USSR border region', gands, lx)
      call makeup (724,'Western Russia', gands, lx)
      call makeup (725,'Western Siberia', gands, lx)
      call makeup (726,'Central Siberia', gands, lx)
      call makeup (727,'Victoria Land', gands, lx)
      call makeup (728,'Ross Sea', gands, lx)
      call makeup (729,'Antarctica', gands, lx)
c
      call makeup (730,'Northern East Pacific Rise', gands, lx)
      call makeup (731,'North of Honduras', gands, lx)
      call makeup (732,'East of South Sandwich Islands', gands, lx)
      call makeup (733,'Thailand', gands, lx)
      call makeup (734,'Laos', gands, lx)
      call makeup (735,'Kampuchea', gands, lx)
      call makeup (736,'Vietnam', gands, lx)
      call makeup (737,'Gulf of Tongking', gands, lx)
      call makeup (738,'Reykjanes Ridge', gands, lx)
      call makeup (739,'Azores-Cape St. Vincent Ridge', gands, lx)
      call makeup (740,'Owen Fracture Zone region', gands, lx)
      call makeup (741,'Indian Ocean Triple Junction', gands, lx)
      call makeup (742,'Western Indian-Antarctic Ridge', gands, lx)
      call makeup (743,'Western Sahara', gands, lx)
      call makeup (744,'Mauritania', gands, lx)
      call makeup (745,'Mali', gands, lx)
      call makeup (746,'Senegal - Gambia region', gands, lx)
      call makeup (747,'Guinea region', gands, lx)
      call makeup (748,'Sierra Leone', gands, lx)
      call makeup (749,'Liberia region', gands, lx)
      call makeup (750,'Cote d''Ivoire', gands, lx)
      call makeup (751,'Burkina Faso', gands, lx)
      call makeup (752,'Ghana', gands, lx)
      call makeup (753,'Benin - Togo region', gands, lx)
      call makeup (754,'Niger', gands, lx)
      call makeup (755,'Nigeria', gands, lx)
      call makeup (756,'Southeast of Easter Island', gands, lx)
      call makeup (757,'Galapagos Triple Junction region', gands, lx)
      return
      end
