! The MIT License (MIT) ! ! Copyright (c) 2023, Fabio Crameri for the Scientific coulour maps 8.0.1 ! and Vincent Magnin for the Fortran translation ! ! Permission is hereby granted, free of charge, to any person obtaining a copy ! of this software and associated documentation files (the "Software"), to deal ! in the Software without restriction, including without limitation the rights ! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell ! copies of the Software, and to permit persons to whom the Software is ! furnished to do so, subject to the following conditions: ! ! The above copyright notice and this permission notice shall be included in all ! copies or substantial portions of the Software. ! ! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR ! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, ! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE ! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER ! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, ! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE ! SOFTWARE. !------------------------------------------------------------------------------- !> This module contains the 222 colormaps of the *Scientific colour maps* !> collection v8.0.1 by Fabio Crameri. module scientific_colour_maps use colormap_parameters, only: colormap_name_length implicit none private character(*), dimension(222), parameter, public :: scientific_colour_maps_list = & [character(colormap_name_length) :: & "acton", "acton10", "acton100", "acton25", "acton50", "actonS", & "bam", "bam10", "bam100", "bam25", "bam50", "bamako", & "bamako10", "bamako100", "bamako25", "bamako50", "bamakoS", "bamO", & "bamO10", "bamO100", "bamO25", "bamO50", "batlow", "batlow10", & "batlow100", "batlow25", "batlow50", "batlowK", "batlowK10", "batlowK100", & "batlowK25", "batlowK50", "batlowKS", "batlowS", "batlowW", "batlowW10", & "batlowW100", "batlowW25", "batlowW50", "batlowWS", "berlin", "berlin10", & "berlin100", "berlin25", "berlin50", "bilbao", "bilbao10", "bilbao100", & "bilbao25", "bilbao50", "bilbaoS", "broc", "broc10", "broc100", & "broc25", "broc50", "brocO", "brocO10", "brocO100", "brocO25", & "brocO50", "buda", "buda10", "buda100", "buda25", "buda50", & "budaS", "bukavu", "bukavu10", "bukavu100", "bukavu25", "bukavu50", & "cork", "cork10", "cork100", "cork25", "cork50", "corkO", & "corkO10", "corkO100", "corkO25", "corkO50", "davos", "davos10", & "davos100", "davos25", "davos50", "davosS", "devon", "devon10", & "devon100", "devon25", "devon50", "devonS", "fes", "fes10", & "fes100", "fes25", "fes50", "glasgow", "glasgow10", "glasgow100", & "glasgow25", "glasgow50", "glasgowS", "grayC", "grayC10", "grayC100", & "grayC25", "grayC50", "grayCS", "hawaii", "hawaii10", "hawaii100", & "hawaii25", "hawaii50", "hawaiiS", "imola", "imola10", "imola100", & "imola25", "imola50", "imolaS", "lajolla", "lajolla10", "lajolla100", & "lajolla25", "lajolla50", "lajollaS", "lapaz", "lapaz10", "lapaz100", & "lapaz25", "lapaz50", "lapazS", "lipari", "lipari10", "lipari100", & "lipari25", "lipari50", "lipariS", "lisbon", "lisbon10", "lisbon100", & "lisbon25", "lisbon50", "managua", "managua10", "managua100", "managua25", & "managua50", "navia", "navia10", "navia100", "navia25", "navia50", & "naviaS", "naviaW", "naviaW10", "naviaW100", "naviaW25", "naviaW50", & "naviaWS", "nuuk", "nuuk10", "nuuk100", "nuuk25", "nuuk50", & "nuukS", "oleron", "oleron10", "oleron100", "oleron25", "oleron50", & "oslo", "oslo10", "oslo100", "oslo25", "oslo50", "osloS", & "roma", "roma10", "roma100", "roma25", "roma50", "romaO", & "romaO10", "romaO100", "romaO25", "romaO50", "tofino", "tofino10", & "tofino100", "tofino25", "tofino50", "tokyo", "tokyo10", "tokyo100", & "tokyo25", "tokyo50", "tokyoS", "turku", "turku10", "turku100", & "turku25", "turku50", "turkuS", "vanimo", "vanimo10", "vanimo100", & "vanimo25", "vanimo50", "vik", "vik10", "vik100", "vik25", & "vik50", "vikO", "vikO10", "vikO100", "vikO25", "vikO50"] integer, dimension(0:255, 1:3), public :: acton=reshape( [ & 38, 13, 64, 39, 14, 65, 40, 15, 66, 41, 17, 67, & 42, 18, 68, 43, 19, 69, 43, 20, 70, 44, 22, 72, & 45, 23, 73, 46, 24, 74, 47, 25, 75, 48, 27, 76, & 49, 28, 77, 50, 29, 78, 50, 30, 79, 51, 31, 80, & 52, 33, 82, 53, 34, 83, 54, 35, 84, 54, 36, 85, & 55, 37, 86, 56, 38, 87, 57, 39, 88, 58, 41, 89, & 59, 42, 90, 59, 43, 91, 60, 44, 92, 61, 45, 93, & 62, 46, 94, 62, 47, 95, 63, 49, 96, 64, 50, 97, & 65, 51, 98, 66, 52, 99, 66, 53,100, 67, 54,101, & 68, 55,102, 69, 56,103, 69, 57,104, 70, 58,105, & 71, 60,106, 72, 61,107, 72, 62,108, 73, 63,109, & 74, 64,110, 75, 65,111, 75, 66,112, 76, 67,113, & 77, 68,114, 78, 69,115, 78, 70,116, 79, 71,117, & 80, 72,118, 81, 73,119, 81, 74,120, 82, 75,121, & 83, 76,122, 84, 77,123, 84, 78,123, 85, 79,124, & 86, 80,125, 87, 81,126, 87, 82,127, 88, 83,128, & 89, 84,129, 90, 85,130, 91, 86,131, 92, 87,131, & 93, 88,132, 94, 89,133, 95, 90,134, 96, 91,134, & 97, 91,135, 98, 92,136, 99, 93,136, 101, 93,137, & 102, 94,138, 103, 95,138, 104, 95,138, 105, 96,139, & 107, 96,139, 108, 96,140, 109, 97,140, 110, 97,140, & 111, 97,140, 113, 97,140, 114, 98,141, 115, 98,141, & 116, 98,141, 117, 98,141, 119, 98,141, 120, 98,141, & 121, 99,141, 122, 99,141, 123, 99,141, 125, 99,142, & 126, 99,142, 127, 99,142, 128, 99,142, 129, 99,142, & 131, 99,142, 132, 99,142, 133,100,142, 134,100,142, & 136,100,142, 137,100,142, 138,100,142, 139,100,142, & 141,100,142, 142,100,142, 143,100,142, 145,100,143, & 146,100,143, 147,101,143, 149,101,143, 150,101,143, & 151,101,143, 153,101,143, 154,101,143, 155,101,143, & 157,101,143, 158,101,143, 160,101,143, 161,102,143, & 162,102,143, 164,102,143, 165,102,144, 167,102,144, & 168,102,144, 170,102,144, 171,102,144, 172,103,144, & 174,103,144, 175,103,144, 177,103,144, 178,103,144, & 180,103,145, 181,104,145, 183,104,145, 184,104,145, & 186,104,145, 187,105,146, 189,105,146, 190,106,146, & 191,106,147, 193,107,147, 194,107,148, 195,108,148, & 197,109,149, 198,109,150, 199,110,150, 200,111,151, & 201,112,152, 202,113,153, 203,114,153, 204,115,154, & 205,116,155, 206,117,156, 206,119,157, 207,120,158, & 208,121,159, 208,122,160, 209,124,161, 210,125,163, & 210,126,164, 211,127,165, 211,129,166, 211,130,167, & 212,131,168, 212,133,169, 213,134,170, 213,135,171, & 214,136,172, 214,138,173, 214,139,175, 215,140,176, & 215,142,177, 216,143,178, 216,144,179, 216,146,180, & 217,147,181, 217,148,182, 217,149,184, 218,151,185, & 218,152,186, 219,153,187, 219,155,188, 219,156,189, & 220,157,190, 220,159,191, 221,160,192, 221,161,194, & 221,163,195, 222,164,196, 222,165,197, 222,167,198, & 223,168,199, 223,169,200, 223,171,201, 224,172,202, & 224,173,203, 225,174,204, 225,176,205, 225,177,206, & 226,178,207, 226,180,208, 226,181,209, 227,182,210, & 227,183,211, 227,185,212, 228,186,213, 228,187,214, & 228,188,215, 229,190,216, 229,191,217, 229,192,218, & 229,193,219, 230,194,220, 230,196,221, 230,197,222, & 231,198,222, 231,199,223, 231,200,224, 232,202,225, & 232,203,226, 232,204,227, 232,205,228, 233,206,228, & 233,207,229, 233,208,230, 233,209,231, 234,211,232, & 234,212,233, 234,213,233, 235,214,234, 235,215,235, & 235,216,236, 235,217,237, 236,218,237, 236,219,238, & 236,220,239, 236,221,240, 237,222,240, 237,223,241, & 237,224,242, 237,225,243, 238,226,243, 238,227,244, & 238,228,245, 238,229,246, 239,230,246, 239,231,247, & 239,232,248, 239,233,248, 239,233,249, 240,234,250 & ], shape(acton), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: acton10=reshape( [ & 38, 13, 64, 62, 46, 94, 84, 77,123, 113, 97,140, & 147,101,143, 189,105,146, 213,134,170, 223,171,201, & 233,206,228, 240,234,250 & ], shape(acton10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: acton100=reshape( [ & 38, 13, 64, 41, 17, 67, 43, 19, 69, 45, 23, 73, & 47, 25, 75, 50, 29, 78, 51, 31, 80, 54, 35, 84, & 56, 38, 87, 58, 41, 89, 60, 44, 92, 62, 46, 94, & 64, 50, 97, 66, 52, 99, 68, 55,102, 70, 58,105, & 72, 61,107, 74, 64,110, 75, 66,112, 78, 69,115, & 80, 72,118, 81, 74,120, 84, 77,123, 85, 79,124, & 87, 82,127, 89, 84,129, 92, 87,131, 95, 90,134, & 97, 91,135, 101, 93,137, 103, 95,138, 107, 96,139, & 109, 97,140, 113, 97,140, 116, 98,141, 119, 98,141, & 122, 99,141, 125, 99,142, 128, 99,142, 131, 99,142, & 134,100,142, 138,100,142, 141,100,142, 145,100,143, & 147,101,143, 151,101,143, 154,101,143, 158,101,143, & 162,102,143, 165,102,144, 170,102,144, 172,103,144, & 177,103,144, 181,104,145, 184,104,145, 189,105,146, & 191,106,147, 195,108,148, 198,109,150, 201,112,152, & 204,115,154, 206,117,156, 208,121,159, 209,124,161, & 211,127,165, 211,130,167, 213,134,170, 214,138,173, & 215,140,176, 216,144,179, 217,147,181, 218,151,185, & 219,153,187, 220,157,190, 221,161,194, 222,164,196, & 223,168,199, 223,171,201, 225,174,204, 225,177,206, & 226,181,209, 227,185,212, 228,187,214, 229,191,217, & 229,193,219, 230,197,222, 231,200,224, 232,203,226, & 233,206,228, 233,208,230, 234,212,233, 235,214,234, & 235,217,237, 236,220,239, 237,222,240, 237,225,243, & 238,227,244, 239,230,246, 239,232,248, 240,234,250 & ], shape(acton100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: acton25=reshape( [ & 38, 13, 64, 48, 27, 76, 56, 38, 87, 65, 51, 98, & 73, 63,109, 81, 73,119, 89, 84,129, 99, 93,136, & 113, 97,140, 126, 99,142, 138,100,142, 153,101,143, & 168,102,144, 183,104,145, 198,109,150, 207,120,158, & 213,134,170, 217,148,182, 221,161,194, 225,176,205, & 229,190,216, 232,202,225, 235,214,234, 237,224,242, & 240,234,250 & ], shape(acton25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: acton50=reshape( [ & 38, 13, 64, 43, 19, 69, 47, 25, 75, 52, 33, 82, & 56, 38, 87, 60, 44, 92, 64, 50, 97, 68, 55,102, & 72, 62,108, 76, 67,113, 80, 72,118, 84, 77,123, & 87, 82,127, 93, 88,132, 98, 92,136, 104, 95,138, & 110, 97,140, 116, 98,141, 123, 99,141, 129, 99,142, & 136,100,142, 142,100,142, 149,101,143, 157,101,143, & 164,102,143, 171,102,144, 178,103,144, 187,105,146, & 194,107,148, 200,111,151, 205,116,155, 208,122,160, & 211,130,167, 214,136,172, 216,143,178, 217,149,184, & 219,156,189, 222,164,196, 223,171,201, 225,177,206, & 227,183,211, 229,190,216, 230,197,222, 232,203,226, & 233,208,230, 235,214,234, 236,219,238, 237,225,243, & 239,230,246, 240,234,250 & ], shape(acton50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: actonS=reshape( [ & 38, 13, 64, 240,234,250, 168,102,144, 89, 84,129, & 221,163,195, 65, 51, 98, 208,121,159, 126, 99,142, & 232,203,226, 146,100,143, 52, 33, 82, 215,142,177, & 227,183,211, 191,106,147, 77, 68,114, 107, 96,139, & 236,220,239, 224,173,203, 157,101,143, 180,103,145, & 97, 91,135, 201,112,152, 45, 23, 73, 218,152,186, & 229,193,219, 212,131,168, 59, 42, 90, 234,212,233, & 71, 60,106, 116, 98,141, 83, 76,122, 136,100,142, & 238,228,245, 74, 64,110, 86, 80,125, 217,147,181, & 223,168,199, 186,104,145, 231,198,222, 141,100,142, & 237,224,242, 80, 72,118, 210,126,164, 174,103,144, & 93, 88,132, 102, 94,138, 214,136,172, 226,178,207, & 49, 28, 77, 121, 99,141, 228,188,215, 235,216,236, & 233,207,229, 111, 97,140, 131, 99,142, 68, 55,102, & 151,101,143, 205,116,155, 197,109,149, 220,157,190, & 42, 18, 68, 162,102,143, 55, 37, 86, 62, 46, 94, & 239,231,247, 154,101,143, 114, 98,141, 54, 35, 84, & 177,103,144, 95, 90,134, 199,110,150, 43, 20, 70, & 211,129,166, 143,100,142, 214,139,175, 104, 95,138, & 99, 93,136, 149,101,143, 203,114,153, 66, 53,100, & 69, 57,104, 84, 78,123, 60, 44, 92, 63, 49, 96, & 87, 82,127, 223,171,201, 209,124,161, 206,119,157, & 237,222,240, 219,155,188, 226,181,209, 160,101,143, & 91, 86,131, 236,218,237, 230,196,221, 228,186,213, & 47, 25, 75, 235,214,234, 216,144,179, 238,226,243 & ], shape(actonS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: bam=reshape( [ & 101, 2, 75, 103, 5, 78, 106, 7, 80, 108, 10, 82, & 110, 13, 84, 112, 16, 87, 114, 18, 89, 117, 20, 91, & 119, 23, 93, 121, 25, 95, 123, 27, 97, 125, 29, 99, & 127, 31,102, 129, 33,104, 132, 35,106, 134, 37,108, & 136, 39,110, 138, 40,112, 140, 42,114, 142, 44,116, & 144, 46,118, 146, 48,120, 147, 49,122, 149, 51,124, & 151, 53,126, 153, 55,127, 155, 56,129, 157, 58,131, & 158, 60,133, 160, 62,135, 162, 63,136, 164, 65,138, & 165, 67,140, 167, 68,142, 169, 70,143, 170, 72,145, & 172, 73,147, 173, 75,148, 175, 77,150, 176, 78,151, & 178, 80,153, 179, 82,154, 181, 84,156, 182, 85,157, & 184, 87,159, 185, 89,160, 186, 90,162, 188, 92,163, & 189, 94,165, 191, 96,166, 192, 98,168, 193,100,169, & 194,102,171, 196,104,172, 197,106,174, 198,108,175, & 200,110,176, 201,112,178, 202,114,179, 203,116,181, & 204,118,182, 206,120,183, 207,122,185, 208,124,186, & 209,127,188, 210,129,189, 211,131,190, 212,133,192, & 213,135,193, 214,138,194, 215,140,196, 216,142,197, & 217,145,198, 218,147,200, 219,149,201, 220,151,202, & 221,154,203, 222,156,205, 223,158,206, 223,161,207, & 224,163,208, 225,165,209, 226,167,211, 227,170,212, & 228,172,213, 228,174,214, 229,176,215, 230,179,216, & 231,181,218, 231,183,219, 232,185,220, 233,187,221, & 234,189,222, 234,192,223, 235,194,224, 236,196,225, & 236,198,226, 237,200,227, 238,202,228, 238,204,229, & 239,206,230, 239,208,231, 240,209,232, 241,211,233, & 241,213,233, 242,215,234, 242,216,235, 243,218,236, & 243,220,236, 243,221,237, 244,223,238, 244,224,238, & 245,226,239, 245,227,239, 245,228,240, 245,230,240, & 246,231,240, 246,232,241, 246,233,241, 246,234,241, & 246,235,241, 246,236,241, 246,237,241, 246,238,241, & 246,239,241, 246,239,241, 246,240,241, 246,241,241, & 246,241,240, 246,242,240, 245,242,240, 245,242,239, & 245,243,239, 244,243,238, 244,243,237, 243,243,237, & 243,243,236, 242,243,235, 242,243,234, 241,243,233, & 240,243,232, 239,243,230, 239,243,229, 238,242,228, & 237,242,226, 236,242,224, 235,241,223, 234,241,221, & 232,240,219, 231,240,217, 230,239,215, 229,239,213, & 227,238,211, 226,237,209, 224,236,207, 223,236,204, & 221,235,202, 220,234,199, 218,233,197, 216,232,194, & 214,231,191, 212,230,189, 210,228,186, 208,227,183, & 206,226,180, 204,225,177, 202,223,174, 200,222,171, & 198,221,168, 195,219,165, 193,218,162, 191,216,159, & 188,215,155, 186,213,152, 183,211,149, 181,210,146, & 178,208,143, 176,206,140, 173,205,137, 171,203,134, & 168,201,131, 166,199,128, 163,198,125, 161,196,122, & 158,194,119, 156,192,116, 153,190,114, 151,188,111, & 148,187,109, 146,185,106, 143,183,104, 141,181,101, & 138,179, 99, 136,177, 97, 134,176, 94, 131,174, 92, & 129,172, 90, 127,170, 88, 124,168, 86, 122,167, 84, & 120,165, 82, 118,163, 80, 116,162, 79, 114,160, 77, & 112,158, 75, 109,156, 73, 107,155, 72, 105,153, 70, & 103,152, 69, 101,150, 67, 100,148, 65, 98,147, 64, & 96,145, 62, 94,144, 61, 92,142, 60, 90,141, 58, & 88,139, 57, 87,138, 55, 85,136, 54, 83,135, 53, & 81,133, 51, 80,132, 50, 78,130, 49, 76,129, 47, & 75,127, 46, 73,126, 45, 71,124, 43, 69,123, 42, & 68,121, 41, 66,120, 39, 64,118, 38, 62,117, 37, & 61,115, 35, 59,113, 34, 57,112, 33, 55,110, 31, & 53,109, 30, 51,107, 28, 50,105, 27, 48,104, 25, & 46,102, 24, 44,100, 22, 42, 99, 21, 40, 97, 19, & 38, 95, 18, 36, 93, 16, 34, 92, 14, 32, 90, 13, & 30, 88, 11, 27, 86, 9, 25, 85, 7, 23, 83, 6, & 21, 81, 4, 18, 79, 3, 15, 77, 1, 13, 76, 0 & ], shape(bam), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: bam10=reshape( [ & 101, 2, 75, 158, 60,133, 201,112,178, 228,174,214, & 245,227,239, 239,243,229, 193,218,162, 124,168, 86, & 69,123, 42, 13, 76, 0 & ], shape(bam10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: bam100=reshape( [ & 101, 2, 75, 108, 10, 82, 112, 16, 87, 119, 23, 93, & 123, 27, 97, 129, 33,104, 134, 37,108, 140, 42,114, & 146, 48,120, 149, 51,124, 155, 56,129, 158, 60,133, & 164, 65,138, 167, 68,142, 172, 73,147, 176, 78,151, & 179, 82,154, 184, 87,159, 186, 90,162, 191, 96,166, & 194,102,171, 197,106,174, 201,112,178, 203,116,181, & 207,122,185, 209,127,188, 212,133,192, 215,140,196, & 217,145,198, 220,151,202, 222,156,205, 224,163,208, & 226,167,211, 228,174,214, 231,181,218, 232,185,220, & 234,192,223, 236,196,225, 238,202,228, 239,206,230, & 241,211,233, 242,216,235, 243,220,236, 244,224,238, & 245,227,239, 246,231,240, 246,233,241, 246,236,241, & 246,239,241, 246,240,241, 246,242,240, 245,242,239, & 244,243,237, 242,243,235, 241,243,233, 239,243,229, & 237,242,226, 234,241,221, 231,240,217, 227,238,211, & 223,236,204, 220,234,199, 214,231,191, 210,228,186, & 204,225,177, 200,222,171, 193,218,162, 186,213,152, & 181,210,146, 173,205,137, 168,201,131, 161,196,122, & 156,192,116, 148,187,109, 141,181,101, 136,177, 97, & 129,172, 90, 124,168, 86, 118,163, 80, 114,160, 77, & 107,155, 72, 101,150, 67, 98,147, 64, 92,142, 60, & 88,139, 57, 83,135, 53, 78,130, 49, 75,127, 46, & 69,123, 42, 66,120, 39, 61,115, 35, 57,112, 33, & 51,107, 28, 46,102, 24, 42, 99, 21, 36, 93, 16, & 32, 90, 13, 25, 85, 7, 21, 81, 4, 13, 76, 0 & ], shape(bam100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: bam25=reshape( [ & 101, 2, 75, 125, 29, 99, 146, 48,120, 165, 67,140, & 182, 85,157, 196,104,172, 209,127,188, 219,149,201, & 228,174,214, 236,198,226, 242,216,235, 246,232,241, & 246,241,240, 242,243,234, 231,240,217, 216,232,194, & 193,218,162, 166,199,128, 141,181,101, 116,162, 79, & 94,144, 61, 76,129, 47, 57,112, 33, 38, 95, 18, & 13, 76, 0 & ], shape(bam25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: bam50=reshape( [ & 101, 2, 75, 112, 16, 87, 123, 27, 97, 136, 39,110, & 146, 48,120, 155, 56,129, 164, 65,138, 172, 73,147, & 181, 84,156, 188, 92,163, 194,102,171, 201,112,178, & 207,122,185, 213,135,193, 218,147,200, 223,158,206, & 227,170,212, 231,181,218, 235,194,224, 238,204,229, & 241,213,233, 243,221,237, 245,228,240, 246,235,241, & 246,239,241, 245,242,240, 243,243,237, 239,243,230, & 235,241,223, 229,239,213, 221,235,202, 212,230,189, & 200,222,171, 188,215,155, 176,206,140, 163,198,125, & 151,188,111, 136,177, 97, 124,168, 86, 114,160, 77, & 103,152, 69, 94,144, 61, 83,135, 53, 75,127, 46, & 66,120, 39, 57,112, 33, 48,104, 25, 36, 93, 16, & 25, 85, 7, 13, 76, 0 & ], shape(bam50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: bamako=reshape( [ & 0, 59, 71, 0, 59, 71, 1, 59, 71, 1, 60, 71, & 2, 60, 70, 2, 60, 70, 3, 60, 70, 3, 61, 69, & 4, 61, 69, 4, 61, 69, 5, 62, 69, 5, 62, 68, & 6, 62, 68, 6, 63, 68, 7, 63, 67, 7, 63, 67, & 8, 63, 67, 8, 64, 66, 9, 64, 66, 9, 64, 66, & 10, 65, 66, 10, 65, 65, 11, 65, 65, 11, 66, 65, & 12, 66, 64, 12, 66, 64, 13, 67, 64, 13, 67, 63, & 14, 67, 63, 14, 68, 63, 15, 68, 62, 15, 68, 62, & 16, 69, 62, 16, 69, 61, 17, 69, 61, 18, 70, 61, & 18, 70, 60, 19, 71, 60, 19, 71, 60, 20, 71, 59, & 20, 72, 59, 21, 72, 58, 22, 72, 58, 22, 73, 58, & 23, 73, 57, 23, 74, 57, 24, 74, 57, 25, 74, 56, & 25, 75, 56, 26, 75, 55, 27, 76, 55, 27, 76, 55, & 28, 77, 54, 29, 77, 54, 29, 77, 53, 30, 78, 53, & 31, 78, 52, 32, 79, 52, 32, 79, 51, 33, 80, 51, & 34, 80, 51, 34, 81, 50, 35, 81, 50, 36, 82, 49, & 37, 82, 49, 38, 83, 48, 38, 83, 48, 39, 84, 47, & 40, 84, 47, 41, 85, 46, 41, 85, 46, 42, 86, 45, & 43, 86, 45, 44, 87, 44, 45, 87, 44, 46, 88, 43, & 46, 88, 43, 47, 89, 42, 48, 90, 42, 49, 90, 41, & 50, 91, 41, 51, 91, 40, 52, 92, 39, 53, 92, 39, & 53, 93, 38, 54, 94, 38, 55, 94, 37, 56, 95, 37, & 57, 95, 36, 58, 96, 35, 59, 97, 35, 60, 97, 34, & 61, 98, 34, 62, 98, 33, 63, 99, 33, 64,100, 32, & 65,100, 31, 66,101, 31, 67,102, 30, 68,102, 30, & 69,103, 29, 70,104, 28, 71,104, 28, 72,105, 27, & 73,105, 26, 74,106, 26, 75,107, 25, 76,107, 24, & 77,108, 24, 78,109, 23, 79,110, 23, 80,110, 22, & 81,111, 21, 82,112, 21, 83,112, 20, 84,113, 19, & 85,114, 19, 86,114, 18, 88,115, 17, 89,116, 17, & 90,116, 16, 91,117, 15, 92,118, 15, 93,119, 14, & 94,119, 13, 95,120, 13, 96,121, 12, 97,121, 11, & 99,122, 10, 100,123, 10, 101,124, 9, 102,124, 8, & 103,125, 7, 104,126, 7, 105,126, 6, 106,127, 5, & 107,128, 5, 109,128, 4, 110,129, 4, 111,130, 3, & 112,130, 3, 113,131, 2, 115,131, 2, 116,132, 1, & 117,132, 1, 119,133, 1, 120,133, 1, 121,134, 0, & 123,134, 0, 124,134, 0, 125,135, 0, 127,135, 0, & 128,135, 0, 129,136, 0, 131,136, 0, 132,136, 0, & 133,136, 0, 135,137, 0, 136,137, 0, 137,137, 0, & 139,137, 0, 140,138, 0, 141,138, 0, 143,138, 0, & 144,139, 0, 145,139, 0, 147,139, 1, 148,140, 1, & 149,140, 1, 151,141, 2, 152,141, 3, 153,142, 3, & 155,142, 4, 156,143, 5, 157,144, 6, 158,145, 8, & 160,146, 9, 161,146, 11, 162,147, 13, 164,148, 14, & 165,149, 16, 166,150, 17, 168,151, 19, 169,152, 21, & 170,153, 22, 172,154, 24, 173,155, 26, 174,156, 27, & 176,157, 29, 177,158, 31, 178,159, 32, 180,160, 34, & 181,161, 36, 183,162, 37, 184,163, 39, 185,165, 41, & 187,166, 43, 188,167, 44, 190,168, 46, 191,169, 48, & 192,170, 50, 194,171, 52, 195,172, 53, 197,173, 55, & 198,174, 57, 199,175, 59, 201,176, 61, 202,178, 63, & 203,179, 65, 205,180, 68, 206,181, 70, 207,182, 72, & 208,183, 74, 210,184, 77, 211,185, 79, 212,187, 81, & 213,188, 84, 214,189, 86, 215,190, 89, 217,191, 91, & 218,192, 93, 219,193, 96, 220,194, 98, 221,196,100, & 222,197,103, 223,198,105, 224,199,108, 226,200,110, & 227,201,112, 228,202,115, 229,203,117, 230,204,119, & 231,205,122, 232,207,124, 233,208,126, 234,209,129, & 235,210,131, 236,211,133, 237,212,136, 239,213,138, & 240,214,140, 241,215,142, 242,216,145, 243,217,147, & 244,218,149, 245,219,151, 246,220,154, 247,221,156, & 248,222,158, 249,223,160, 250,224,163, 251,225,165, & 252,226,167, 253,227,169, 254,228,171, 255,229,173 & ], shape(bamako), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: bamako10=reshape( [ & 0, 59, 71, 14, 67, 63, 32, 79, 52, 54, 94, 38, & 82,112, 21, 115,131, 2, 152,141, 3, 190,168, 46, & 226,200,110, 255,229,173 & ], shape(bamako10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: bamako100=reshape( [ & 0, 59, 71, 1, 60, 71, 2, 60, 70, 4, 61, 69, & 5, 62, 69, 6, 63, 68, 7, 63, 67, 9, 64, 66, & 10, 65, 65, 11, 66, 65, 13, 67, 64, 14, 67, 63, & 15, 68, 62, 16, 69, 61, 18, 70, 60, 20, 71, 59, & 21, 72, 58, 23, 73, 57, 24, 74, 57, 26, 75, 55, & 28, 77, 54, 29, 77, 53, 32, 79, 52, 33, 80, 51, & 35, 81, 50, 37, 82, 49, 39, 84, 47, 41, 85, 46, & 43, 86, 45, 46, 88, 43, 47, 89, 42, 50, 91, 41, & 52, 92, 39, 54, 94, 38, 57, 95, 36, 59, 97, 35, & 62, 98, 33, 64,100, 32, 67,102, 30, 69,103, 29, & 72,105, 27, 75,107, 25, 77,108, 24, 80,110, 22, & 82,112, 21, 85,114, 19, 88,115, 17, 91,117, 15, & 94,119, 13, 96,121, 12, 100,123, 10, 102,124, 8, & 105,126, 6, 109,128, 4, 111,130, 3, 115,131, 2, & 117,132, 1, 121,134, 0, 124,134, 0, 128,135, 0, & 132,136, 0, 135,137, 0, 139,137, 0, 141,138, 0, & 145,139, 0, 148,140, 1, 152,141, 3, 156,143, 5, & 158,145, 8, 162,147, 13, 165,149, 16, 169,152, 21, & 172,154, 24, 176,157, 29, 180,160, 34, 183,162, 37, & 187,166, 43, 190,168, 46, 194,171, 52, 197,173, 55, & 201,176, 61, 205,180, 68, 207,182, 72, 211,185, 79, & 213,188, 84, 217,191, 91, 220,194, 98, 222,197,103, & 226,200,110, 228,202,115, 231,205,122, 233,208,126, & 236,211,133, 240,214,140, 242,216,145, 245,219,151, & 247,221,156, 250,224,163, 252,226,167, 255,229,173 & ], shape(bamako100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: bamako25=reshape( [ & 0, 59, 71, 5, 62, 68, 10, 65, 65, 16, 69, 62, & 22, 73, 58, 29, 77, 54, 37, 82, 49, 45, 87, 44, & 54, 94, 38, 65,100, 31, 75,107, 25, 86,114, 18, & 99,122, 10, 110,129, 4, 124,134, 0, 137,137, 0, & 152,141, 3, 166,150, 17, 180,160, 34, 195,172, 53, & 210,184, 77, 221,196,100, 233,208,126, 244,218,149, & 255,229,173 & ], shape(bamako25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: bamako50=reshape( [ & 0, 59, 71, 2, 60, 70, 5, 62, 69, 8, 63, 67, & 10, 65, 65, 13, 67, 64, 15, 68, 62, 18, 70, 60, & 22, 72, 58, 25, 74, 56, 28, 77, 54, 32, 79, 52, & 35, 81, 50, 40, 84, 47, 44, 87, 44, 48, 90, 42, & 53, 92, 39, 57, 95, 36, 63, 99, 33, 68,102, 30, & 73,105, 26, 78,109, 23, 83,112, 20, 90,116, 16, & 95,120, 13, 101,124, 9, 106,127, 5, 113,131, 2, & 120,133, 1, 127,135, 0, 133,136, 0, 140,138, 0, & 148,140, 1, 155,142, 4, 161,146, 11, 168,151, 19, & 174,156, 27, 183,162, 37, 190,168, 46, 197,173, 55, & 203,179, 65, 210,184, 77, 217,191, 91, 222,197,103, & 228,202,115, 233,208,126, 239,213,138, 245,219,151, & 250,224,163, 255,229,173 & ], shape(bamako50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: bamakoS=reshape( [ & 0, 59, 71, 255,229,173, 99,122, 10, 37, 82, 49, & 180,160, 34, 65,100, 31, 221,196,100, 16, 69, 62, & 139,137, 0, 8, 63, 67, 25, 75, 56, 239,213,138, & 117,132, 1, 81,111, 21, 202,178, 63, 50, 91, 41, & 160,146, 9, 149,140, 1, 247,221,156, 128,135, 0, & 73,105, 26, 43, 86, 45, 107,128, 5, 20, 72, 59, & 57, 95, 36, 191,169, 48, 212,187, 81, 12, 66, 64, & 90,116, 16, 4, 61, 69, 31, 78, 52, 230,204,119, & 170,153, 22, 243,217,147, 123,134, 0, 85,114, 19, & 103,125, 7, 251,225,165, 133,136, 0, 207,182, 72, & 61, 98, 34, 2, 60, 70, 28, 77, 54, 94,119, 13, & 14, 67, 63, 77,108, 24, 23, 73, 57, 46, 88, 43, & 10, 65, 66, 112,130, 3, 197,173, 55, 185,165, 41, & 234,209,129, 165,149, 16, 40, 84, 47, 217,191, 91, & 69,103, 29, 18, 70, 60, 34, 80, 51, 6, 62, 68, & 53, 93, 38, 144,139, 0, 155,142, 4, 226,200,110, & 176,157, 29, 199,175, 59, 188,167, 44, 11, 65, 65, & 24, 74, 57, 125,135, 0, 52, 92, 39, 41, 85, 46, & 205,180, 68, 131,136, 0, 157,144, 6, 152,141, 3, & 241,215,142, 15, 68, 62, 115,131, 2, 88,115, 17, & 96,121, 12, 29, 77, 53, 183,162, 37, 35, 81, 50, & 22, 72, 58, 228,202,115, 3, 60, 70, 5, 62, 69, & 79,110, 23, 9, 64, 66, 253,227,169, 141,138, 0, & 147,139, 1, 59, 97, 35, 92,118, 15, 1, 59, 71, & 38, 83, 48, 223,198,105, 17, 69, 61, 67,102, 30 & ], shape(bamakoS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: bamO=reshape( [ & 79, 48, 67, 80, 47, 69, 81, 47, 70, 83, 48, 71, & 84, 48, 73, 86, 48, 75, 88, 48, 77, 90, 49, 78, & 92, 50, 80, 94, 50, 82, 96, 51, 84, 98, 52, 87, & 100, 53, 89, 103, 54, 91, 105, 55, 93, 107, 56, 95, & 109, 57, 97, 112, 58, 99, 114, 59,101, 116, 61,103, & 118, 62,105, 121, 63,107, 123, 65,109, 125, 66,111, & 127, 68,113, 129, 69,115, 131, 70,117, 133, 72,119, & 135, 73,121, 137, 75,123, 139, 76,125, 141, 78,126, & 143, 79,128, 145, 81,130, 147, 82,132, 148, 84,133, & 150, 85,135, 152, 87,137, 154, 88,138, 155, 90,140, & 157, 91,141, 159, 93,143, 160, 94,145, 162, 96,146, & 163, 97,148, 165, 99,149, 167,101,151, 168,102,152, & 170,104,154, 171,105,155, 173,107,157, 174,109,158, & 176,110,160, 177,112,161, 179,114,163, 181,116,164, & 182,118,166, 184,119,167, 185,121,169, 187,123,170, & 188,125,172, 190,127,173, 191,129,175, 192,131,176, & 194,133,178, 195,135,179, 197,137,181, 198,139,182, & 199,141,184, 201,143,185, 202,146,186, 203,148,188, & 204,150,189, 205,152,190, 207,154,191, 208,156,193, & 209,158,194, 210,160,195, 210,163,196, 211,165,197, & 212,167,198, 213,169,199, 214,171,199, 214,173,200, & 215,174,201, 215,176,201, 216,178,202, 216,180,202, & 217,181,203, 217,183,203, 217,184,203, 217,186,204, & 218,187,204, 218,188,204, 218,190,204, 218,191,204, & 218,192,204, 218,193,204, 218,194,204, 218,195,204, & 218,196,203, 217,197,203, 217,197,203, 217,198,203, & 217,199,202, 217,199,202, 216,200,202, 216,201,201, & 216,201,201, 216,202,200, 215,202,200, 215,202,199, & 215,203,199, 214,203,199, 214,203,198, 214,204,197, & 213,204,197, 213,204,196, 212,204,196, 212,205,195, & 212,205,194, 211,205,194, 211,205,193, 210,205,192, & 209,205,191, 209,205,190, 208,205,189, 207,205,188, & 206,205,187, 205,205,186, 204,205,185, 203,204,183, & 202,204,182, 201,204,180, 200,203,178, 198,203,177, & 197,202,175, 195,201,173, 194,200,170, 192,199,168, & 190,198,166, 188,197,164, 186,196,161, 184,194,158, & 182,193,156, 180,191,153, 178,190,151, 176,188,148, & 173,186,145, 171,184,143, 169,182,140, 167,181,138, & 164,179,135, 162,177,133, 160,175,131, 158,173,128, & 156,171,126, 154,169,124, 152,167,122, 150,165,120, & 148,163,118, 146,161,116, 145,159,114, 143,158,112, & 141,156,110, 139,154,109, 138,152,107, 136,150,105, & 134,148,104, 133,147,102, 131,145,101, 130,143, 99, & 128,141, 98, 127,140, 97, 125,138, 95, 124,136, 94, & 123,135, 93, 121,133, 92, 120,131, 91, 119,130, 90, & 117,128, 88, 116,127, 87, 115,125, 86, 114,124, 85, & 113,122, 84, 111,121, 83, 110,119, 82, 109,117, 82, & 108,116, 81, 107,114, 80, 106,113, 79, 105,111, 78, & 103,110, 77, 102,108, 76, 101,107, 76, 100,105, 75, & 99,104, 74, 98,102, 73, 97,101, 72, 96, 99, 72, & 95, 98, 71, 94, 96, 70, 93, 95, 70, 92, 93, 69, & 91, 92, 68, 90, 91, 68, 89, 89, 67, 88, 88, 66, & 87, 86, 66, 87, 85, 65, 86, 84, 65, 85, 83, 64, & 84, 81, 64, 84, 80, 63, 83, 79, 63, 82, 78, 63, & 81, 77, 62, 81, 76, 62, 80, 75, 61, 80, 73, 61, & 79, 72, 61, 79, 72, 60, 78, 71, 60, 78, 70, 60, & 77, 69, 60, 77, 68, 59, 76, 67, 59, 76, 66, 59, & 75, 65, 59, 75, 64, 59, 75, 64, 59, 74, 63, 58, & 74, 62, 58, 74, 61, 58, 74, 60, 58, 73, 60, 58, & 73, 59, 58, 73, 58, 58, 73, 57, 58, 73, 57, 58, & 73, 56, 58, 72, 55, 58, 72, 54, 59, 72, 54, 59, & 72, 53, 59, 73, 52, 59, 73, 52, 60, 73, 51, 60, & 73, 50, 61, 74, 50, 61, 74, 49, 62, 75, 49, 62, & 75, 49, 63, 76, 48, 64, 77, 48, 65, 78, 48, 66 & ], shape(bamO), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: bamO10=reshape( [ & 79, 48, 67, 135, 73,121, 184,119,167, 215,176,201, & 214,203,199, 186,196,161, 131,145,101, 97,101, 72, & 76, 66, 59, 78, 48, 66 & ], shape(bamO10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: bamO100=reshape( [ & 79, 48, 67, 83, 48, 71, 86, 48, 75, 92, 50, 80, & 96, 51, 84, 103, 54, 91, 107, 56, 95, 114, 59,101, & 121, 63,107, 125, 66,111, 131, 70,117, 135, 73,121, & 141, 78,126, 145, 81,130, 150, 85,135, 155, 90,140, & 159, 93,143, 163, 97,148, 167,101,151, 171,105,155, & 176,110,160, 179,114,163, 184,119,167, 187,123,170, & 191,129,175, 194,133,178, 198,139,182, 202,146,186, & 204,150,189, 208,156,193, 210,160,195, 212,167,198, & 214,171,199, 215,176,201, 217,181,203, 217,184,203, & 218,188,204, 218,191,204, 218,194,204, 218,196,203, & 217,198,203, 216,200,202, 216,201,201, 215,202,199, & 214,203,199, 213,204,197, 212,204,196, 211,205,194, & 209,205,191, 208,205,189, 205,205,186, 203,204,183, & 200,203,178, 195,201,173, 192,199,168, 186,196,161, & 182,193,156, 176,188,148, 171,184,143, 164,179,135, & 158,173,128, 154,169,124, 148,163,118, 145,159,114, & 139,154,109, 136,150,105, 131,145,101, 127,140, 97, & 124,136, 94, 120,131, 91, 117,128, 88, 114,124, 85, & 111,121, 83, 108,116, 81, 105,111, 78, 102,108, 76, & 99,104, 74, 97,101, 72, 94, 96, 70, 92, 93, 69, & 89, 89, 67, 87, 85, 65, 85, 83, 64, 83, 79, 63, & 81, 77, 62, 80, 73, 61, 78, 71, 60, 77, 69, 60, & 76, 66, 59, 75, 64, 59, 74, 62, 58, 74, 60, 58, & 73, 58, 58, 73, 56, 58, 72, 54, 59, 73, 52, 59, & 73, 51, 60, 74, 49, 62, 75, 49, 63, 78, 48, 66 & ], shape(bamO100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: bamO25=reshape( [ & 79, 48, 67, 98, 52, 87, 121, 63,107, 143, 79,128, & 162, 96,146, 177,112,161, 194,133,178, 207,154,191, & 215,176,201, 218,192,204, 216,200,202, 213,204,196, & 206,205,187, 194,200,170, 171,184,143, 150,165,120, & 131,145,101, 116,127, 87, 105,111, 78, 93, 95, 70, & 84, 80, 63, 78, 70, 60, 74, 60, 58, 72, 53, 59, & 78, 48, 66 & ], shape(bamO25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: bamO50=reshape( [ & 79, 48, 67, 86, 48, 75, 96, 51, 84, 109, 57, 97, & 121, 63,107, 131, 70,117, 141, 78,126, 150, 85,135, & 160, 94,145, 168,102,152, 176,110,160, 184,119,167, & 191,129,175, 199,141,184, 205,152,190, 210,163,196, & 214,173,200, 217,181,203, 218,190,204, 218,195,204, & 217,199,202, 216,202,200, 214,203,198, 212,205,194, & 209,205,190, 204,205,185, 198,203,177, 188,197,164, & 178,190,151, 167,181,138, 156,171,126, 146,161,116, & 136,150,105, 128,141, 98, 121,133, 92, 115,125, 86, & 109,117, 82, 102,108, 76, 97,101, 72, 92, 93, 69, & 87, 86, 66, 84, 80, 63, 80, 73, 61, 77, 69, 60, & 75, 64, 59, 74, 60, 58, 73, 57, 58, 73, 52, 59, & 74, 49, 62, 78, 48, 66 & ], shape(bamO50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: batlow=reshape( [ & 1, 25, 89, 2, 27, 89, 3, 28, 90, 4, 30, 90, & 5, 31, 90, 6, 33, 91, 7, 34, 91, 7, 36, 91, & 8, 37, 91, 9, 39, 92, 10, 40, 92, 10, 42, 92, & 11, 43, 92, 11, 45, 93, 12, 46, 93, 12, 47, 93, & 13, 49, 93, 13, 50, 94, 13, 51, 94, 14, 53, 94, & 14, 54, 94, 14, 55, 94, 15, 56, 95, 15, 57, 95, & 15, 59, 95, 15, 60, 95, 16, 61, 95, 16, 62, 95, & 16, 63, 96, 16, 64, 96, 17, 65, 96, 17, 66, 96, & 17, 67, 96, 17, 68, 96, 18, 69, 97, 18, 70, 97, & 18, 71, 97, 18, 72, 97, 19, 73, 97, 19, 74, 97, & 19, 75, 97, 20, 76, 98, 20, 77, 98, 20, 78, 98, & 21, 79, 98, 21, 79, 98, 22, 80, 98, 22, 81, 98, & 23, 82, 98, 23, 83, 98, 24, 84, 98, 24, 85, 98, & 25, 86, 98, 25, 87, 98, 26, 87, 98, 27, 88, 98, & 27, 89, 98, 28, 90, 98, 29, 91, 98, 30, 92, 98, & 30, 93, 98, 31, 93, 97, 32, 94, 97, 33, 95, 97, & 34, 96, 97, 35, 96, 96, 36, 97, 96, 37, 98, 96, & 38, 99, 95, 39, 99, 95, 40,100, 95, 42,101, 94, & 43,101, 94, 44,102, 93, 45,103, 93, 47,103, 92, & 48,104, 92, 49,105, 91, 51,105, 90, 52,106, 90, & 53,106, 89, 55,107, 88, 56,108, 88, 58,108, 87, & 59,109, 86, 60,109, 86, 62,110, 85, 63,110, 84, & 65,111, 83, 66,111, 82, 68,112, 82, 69,112, 81, & 71,113, 80, 72,113, 79, 74,114, 78, 76,114, 77, & 77,115, 77, 79,115, 76, 80,116, 75, 82,116, 74, & 83,117, 73, 85,117, 72, 87,118, 71, 88,118, 70, & 90,119, 69, 91,119, 69, 93,120, 68, 95,120, 67, & 96,121, 66, 98,121, 65, 99,122, 64, 101,122, 63, & 103,123, 62, 104,123, 62, 106,123, 61, 108,124, 60, & 109,124, 59, 111,125, 58, 113,125, 57, 115,126, 56, & 116,126, 56, 118,127, 55, 120,127, 54, 121,128, 53, & 123,128, 52, 125,129, 52, 127,129, 51, 129,130, 50, & 130,130, 49, 132,131, 49, 134,131, 48, 136,132, 47, & 138,132, 47, 140,133, 46, 142,133, 46, 143,134, 45, & 145,134, 45, 147,135, 44, 149,135, 44, 151,136, 44, & 153,136, 44, 155,137, 43, 157,137, 43, 159,137, 43, & 161,138, 43, 163,138, 44, 165,139, 44, 167,139, 44, & 169,140, 44, 171,140, 45, 173,140, 45, 175,141, 46, & 177,141, 47, 179,142, 47, 181,142, 48, 183,142, 49, & 185,143, 50, 187,143, 51, 189,143, 52, 190,144, 53, & 192,144, 54, 194,144, 55, 196,145, 56, 198,145, 58, & 200,145, 59, 202,146, 60, 203,146, 62, 205,146, 63, & 207,147, 64, 209,147, 66, 210,147, 67, 212,148, 69, & 214,148, 70, 216,148, 72, 217,149, 74, 219,149, 75, & 221,149, 77, 222,150, 79, 224,150, 81, 225,151, 82, & 227,151, 84, 228,151, 86, 230,152, 88, 231,152, 90, & 233,153, 92, 234,153, 94, 235,154, 96, 237,154, 98, & 238,155,100, 239,155,103, 240,156,105, 241,157,107, & 242,157,109, 243,158,112, 244,159,114, 245,159,116, & 246,160,119, 247,161,121, 248,161,123, 248,162,126, & 249,163,128, 249,163,130, 250,164,133, 250,165,135, & 251,166,137, 251,166,140, 252,167,142, 252,168,144, & 252,169,147, 252,169,149, 253,170,151, 253,171,154, & 253,172,156, 253,172,158, 253,173,160, 253,174,162, & 253,175,165, 253,175,167, 253,176,169, 253,177,171, & 253,178,173, 253,178,175, 253,179,177, 253,180,180, & 253,180,182, 253,181,184, 253,182,186, 253,183,188, & 253,183,190, 253,184,192, 253,185,194, 253,186,196, & 253,186,199, 253,187,201, 253,188,203, 253,188,205, & 252,189,207, 252,190,209, 252,191,211, 252,191,214, & 252,192,216, 252,193,218, 252,194,220, 252,195,223, & 252,195,225, 252,196,227, 252,197,229, 251,198,232, & 251,198,234, 251,199,236, 251,200,239, 251,201,241, & 251,202,243, 251,202,246, 250,203,248, 250,204,250 & ], shape(batlow), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: batlow10=reshape( [ & 1, 25, 89, 16, 63, 96, 28, 90, 98, 60,109, 86, & 104,123, 62, 157,137, 43, 210,147, 67, 248,161,123, & 253,183,188, 250,204,250 & ], shape(batlow10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: batlow100=reshape( [ & 1, 25, 89, 4, 30, 90, 6, 33, 91, 8, 37, 91, & 10, 40, 92, 11, 45, 93, 12, 47, 93, 13, 51, 94, & 14, 55, 94, 15, 57, 95, 16, 61, 95, 16, 63, 96, & 17, 66, 96, 17, 68, 96, 18, 71, 97, 19, 74, 97, & 20, 76, 98, 21, 79, 98, 22, 80, 98, 23, 83, 98, & 25, 86, 98, 26, 87, 98, 28, 90, 98, 30, 92, 98, & 32, 94, 97, 34, 96, 97, 37, 98, 96, 40,100, 95, & 43,101, 94, 47,103, 92, 49,105, 91, 53,106, 89, & 56,108, 88, 60,109, 86, 65,111, 83, 68,112, 82, & 72,113, 79, 76,114, 77, 80,116, 75, 83,117, 73, & 88,118, 70, 93,120, 68, 96,121, 66, 101,122, 63, & 104,123, 62, 109,124, 59, 113,125, 57, 118,127, 55, & 123,128, 52, 127,129, 51, 132,131, 49, 136,132, 47, & 142,133, 46, 147,135, 44, 151,136, 44, 157,137, 43, & 161,138, 43, 167,139, 44, 171,140, 45, 177,141, 47, & 183,142, 49, 187,143, 51, 192,144, 54, 196,145, 56, & 202,146, 60, 205,146, 63, 210,147, 67, 216,148, 72, & 219,149, 75, 224,150, 81, 227,151, 84, 231,152, 90, & 234,153, 94, 238,155,100, 241,157,107, 243,158,112, & 246,160,119, 248,161,123, 249,163,130, 250,165,135, & 252,167,142, 252,169,149, 253,171,154, 253,173,160, & 253,175,165, 253,177,171, 253,179,177, 253,180,182, & 253,183,188, 253,184,192, 253,186,199, 253,188,203, & 252,190,209, 252,192,216, 252,194,220, 252,196,227, & 251,198,232, 251,200,239, 251,202,243, 250,204,250 & ], shape(batlow100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: batlow25=reshape( [ & 1, 25, 89, 10, 42, 92, 14, 55, 94, 17, 67, 96, & 20, 78, 98, 25, 87, 98, 34, 96, 97, 45,103, 93, & 60,109, 86, 77,115, 77, 93,120, 68, 111,125, 58, & 130,130, 49, 149,135, 44, 171,140, 45, 190,144, 53, & 210,147, 67, 228,151, 86, 241,157,107, 250,164,133, & 253,172,158, 253,180,180, 253,188,203, 252,195,225, & 250,204,250 & ], shape(batlow25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: batlow50=reshape( [ & 1, 25, 89, 6, 33, 91, 10, 40, 92, 13, 49, 93, & 14, 55, 94, 16, 61, 95, 17, 66, 96, 18, 71, 97, & 20, 77, 98, 22, 81, 98, 25, 86, 98, 28, 90, 98, & 32, 94, 97, 38, 99, 95, 44,102, 93, 51,105, 90, & 58,108, 87, 65,111, 83, 74,114, 78, 82,116, 74, & 90,119, 69, 98,121, 65, 106,123, 61, 116,126, 56, & 125,129, 52, 134,131, 48, 143,134, 45, 155,137, 43, & 165,139, 44, 175,141, 46, 185,143, 50, 194,144, 55, & 205,146, 63, 214,148, 70, 222,150, 79, 230,152, 88, & 237,154, 98, 243,158,112, 248,161,123, 250,165,135, & 252,169,147, 253,172,158, 253,177,171, 253,180,182, & 253,184,192, 253,188,203, 252,191,214, 252,196,227, & 251,200,239, 250,204,250 & ], shape(batlow50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: batlowK=reshape( [ & 4, 5, 10, 5, 7, 13, 6, 8, 15, 7, 10, 17, & 9, 12, 19, 10, 13, 21, 11, 15, 23, 12, 16, 25, & 13, 17, 26, 14, 18, 28, 15, 20, 30, 15, 21, 31, & 16, 22, 33, 16, 23, 35, 17, 24, 37, 17, 26, 39, & 18, 27, 41, 18, 28, 43, 19, 30, 45, 20, 31, 47, & 20, 32, 49, 21, 34, 51, 21, 35, 53, 22, 37, 55, & 23, 38, 57, 23, 39, 59, 24, 41, 61, 25, 43, 63, & 26, 44, 65, 26, 46, 67, 27, 47, 69, 28, 49, 70, & 29, 50, 72, 30, 52, 74, 31, 53, 75, 32, 55, 77, & 33, 56, 79, 34, 58, 80, 35, 59, 81, 36, 61, 83, & 37, 62, 84, 38, 64, 85, 39, 65, 86, 40, 67, 87, & 41, 68, 88, 42, 69, 89, 43, 71, 90, 44, 72, 91, & 45, 73, 91, 46, 74, 92, 47, 75, 93, 48, 77, 93, & 49, 78, 94, 50, 79, 94, 51, 80, 94, 52, 81, 95, & 53, 82, 95, 54, 83, 95, 55, 84, 95, 56, 85, 95, & 57, 85, 95, 58, 86, 95, 59, 87, 95, 60, 88, 95, & 61, 89, 95, 62, 89, 95, 62, 90, 95, 63, 91, 94, & 64, 92, 94, 65, 92, 94, 66, 93, 94, 67, 93, 93, & 67, 94, 93, 68, 95, 93, 69, 95, 92, 70, 96, 92, & 71, 97, 92, 72, 97, 91, 73, 98, 91, 73, 98, 90, & 74, 99, 90, 75, 99, 89, 76,100, 89, 77,101, 88, & 78,101, 88, 79,102, 87, 80,102, 87, 81,103, 86, & 82,103, 86, 83,104, 85, 84,105, 85, 85,105, 84, & 86,106, 83, 87,106, 83, 88,107, 82, 89,108, 81, & 90,108, 81, 91,109, 80, 92,110, 79, 94,110, 79, & 95,111, 78, 96,112, 77, 97,112, 77, 98,113, 76, & 99,114, 75, 101,114, 75, 102,115, 74, 103,116, 73, & 105,116, 73, 106,117, 72, 107,118, 71, 108,118, 71, & 110,119, 70, 111,120, 69, 113,120, 69, 114,121, 68, & 115,122, 67, 117,123, 67, 118,123, 66, 120,124, 65, & 121,125, 65, 123,126, 64, 125,126, 63, 126,127, 63, & 128,128, 62, 129,129, 62, 131,129, 61, 133,130, 61, & 134,131, 60, 136,132, 60, 138,133, 59, 140,133, 59, & 142,134, 58, 143,135, 58, 145,136, 58, 147,136, 57, & 149,137, 57, 151,138, 57, 153,139, 56, 155,139, 56, & 157,140, 56, 159,141, 56, 161,142, 56, 163,142, 56, & 165,143, 56, 167,144, 56, 169,145, 57, 171,145, 57, & 173,146, 57, 175,147, 58, 177,147, 58, 179,148, 59, & 181,149, 59, 183,149, 60, 186,150, 61, 188,150, 61, & 190,151, 62, 192,152, 63, 194,152, 64, 196,153, 65, & 198,153, 66, 200,154, 67, 201,154, 69, 203,155, 70, & 205,155, 71, 207,156, 73, 209,156, 74, 211,157, 76, & 212,157, 77, 214,157, 79, 216,158, 80, 217,158, 82, & 219,159, 84, 220,159, 85, 222,160, 87, 223,160, 89, & 225,160, 91, 226,161, 93, 228,161, 95, 229,161, 96, & 230,162, 98, 231,162,100, 232,163,102, 234,163,104, & 235,163,106, 236,164,108, 237,164,110, 238,165,112, & 239,165,114, 240,165,116, 240,166,118, 241,166,120, & 242,167,122, 243,167,124, 243,167,126, 244,168,128, & 245,168,130, 245,169,132, 246,169,134, 246,170,136, & 247,170,139, 247,171,141, 248,171,143, 248,172,145, & 249,172,146, 249,173,148, 250,173,150, 250,174,152, & 250,174,154, 251,175,156, 251,175,158, 251,176,160, & 251,176,162, 252,177,164, 252,177,166, 252,178,168, & 252,178,170, 252,179,172, 252,179,174, 253,180,176, & 253,181,178, 253,181,180, 253,182,182, 253,182,183, & 253,183,185, 253,183,187, 253,184,189, 253,185,191, & 253,185,193, 253,186,195, 253,187,197, 253,187,199, & 253,188,201, 253,188,203, 253,189,205, 253,190,207, & 253,190,209, 253,191,211, 253,192,214, 253,193,216, & 253,193,218, 253,194,220, 253,195,222, 253,195,224, & 252,196,226, 252,197,228, 252,198,231, 252,198,233, & 252,199,235, 252,200,237, 251,200,239, 251,201,241, & 251,202,244, 251,203,246, 251,203,248, 250,204,250 & ], shape(batlowK), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: batlowK10=reshape( [ & 4, 5, 10, 26, 44, 65, 54, 83, 95, 79,102, 87, & 111,120, 69, 161,142, 56, 216,158, 80, 246,169,134, & 253,185,191, 250,204,250 & ], shape(batlowK10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: batlowK100=reshape( [ & 4, 5, 10, 7, 10, 17, 10, 13, 21, 13, 17, 26, & 15, 20, 30, 16, 23, 35, 17, 26, 39, 19, 30, 45, & 21, 34, 51, 22, 37, 55, 24, 41, 61, 26, 44, 65, & 28, 49, 70, 30, 52, 74, 33, 56, 79, 36, 61, 83, & 38, 64, 85, 41, 68, 88, 43, 71, 90, 46, 74, 92, & 49, 78, 94, 51, 80, 94, 54, 83, 95, 56, 85, 95, & 59, 87, 95, 61, 89, 95, 63, 91, 94, 66, 93, 94, & 67, 94, 93, 70, 96, 92, 72, 97, 91, 74, 99, 90, & 76,100, 89, 79,102, 87, 82,103, 86, 84,105, 85, & 87,106, 83, 89,108, 81, 92,110, 79, 95,111, 78, & 98,113, 76, 102,115, 74, 105,116, 73, 108,118, 71, & 111,120, 69, 115,122, 67, 118,123, 66, 123,126, 64, & 128,128, 62, 131,129, 61, 136,132, 60, 140,133, 59, & 145,136, 58, 151,138, 57, 155,139, 56, 161,142, 56, & 165,143, 56, 171,145, 57, 175,147, 58, 181,149, 59, & 188,150, 61, 192,152, 63, 198,153, 66, 201,154, 69, & 207,156, 73, 211,157, 76, 216,158, 80, 220,159, 85, & 223,160, 89, 228,161, 95, 230,162, 98, 234,163,104, & 236,164,108, 239,165,114, 241,166,120, 243,167,124, & 245,168,130, 246,169,134, 247,171,141, 248,172,145, & 250,173,150, 251,175,156, 251,176,160, 252,177,166, & 252,178,170, 253,180,176, 253,182,182, 253,183,185, & 253,185,191, 253,186,195, 253,188,201, 253,189,205, & 253,191,211, 253,193,218, 253,195,222, 252,197,228, & 252,198,233, 251,200,239, 251,202,244, 250,204,250 & ], shape(batlowK100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: batlowK25=reshape( [ & 4, 5, 10, 15, 21, 31, 21, 34, 51, 29, 50, 72, & 40, 67, 87, 50, 79, 94, 61, 89, 95, 69, 95, 92, & 79,102, 87, 90,108, 81, 102,115, 74, 117,123, 67, & 134,131, 60, 153,139, 56, 175,147, 58, 196,153, 65, & 216,158, 80, 231,162,100, 241,166,120, 248,171,143, & 252,177,164, 253,182,183, 253,189,205, 252,196,226, & 250,204,250 & ], shape(batlowK25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: batlowK50=reshape( [ & 4, 5, 10, 10, 13, 21, 15, 20, 30, 18, 27, 41, & 21, 34, 51, 24, 41, 61, 28, 49, 70, 33, 56, 79, & 39, 65, 86, 44, 72, 91, 49, 78, 94, 54, 83, 95, & 59, 87, 95, 64, 92, 94, 68, 95, 93, 73, 98, 91, & 77,101, 88, 82,103, 86, 88,107, 82, 94,110, 79, & 99,114, 75, 106,117, 72, 113,120, 69, 121,125, 65, & 129,129, 62, 138,133, 59, 147,136, 57, 159,141, 56, & 169,145, 57, 179,148, 59, 190,151, 62, 200,154, 67, & 211,157, 76, 219,159, 84, 226,161, 93, 232,163,102, & 238,165,112, 243,167,124, 246,169,134, 248,172,145, & 250,174,154, 252,177,164, 253,180,176, 253,183,185, & 253,186,195, 253,189,205, 253,193,216, 252,197,228, & 251,200,239, 250,204,250 & ], shape(batlowK50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: batlowKS=reshape( [ & 4, 5, 10, 253,192,214, 120,124, 65, 57, 85, 95, & 229,161, 96, 27, 47, 69, 175,147, 58, 84,105, 85, & 250,174,154, 17, 26, 39, 145,136, 58, 205,155, 71, & 70, 96, 92, 253,182,183, 42, 69, 89, 101,114, 75, & 243,167,126, 50, 79, 94, 253,187,199, 252,178,168, & 247,171,141, 13, 17, 26, 63, 91, 94, 110,119, 70, & 133,130, 61, 92,110, 79, 190,151, 62, 159,141, 56, & 219,159, 84, 77,101, 88, 35, 59, 81, 21, 35, 53, & 238,165,112, 212,157, 77, 31, 53, 75, 253,180,176, & 24, 41, 61, 198,153, 66, 9, 12, 19, 167,144, 56, & 46, 74, 92, 253,185,191, 67, 93, 93, 73, 98, 90, & 234,163,104, 126,127, 63, 88,107, 82, 115,122, 67, & 183,149, 60, 96,112, 77, 16, 22, 33, 225,160, 91, & 54, 83, 95, 241,166,120, 105,116, 73, 249,173,148, & 251,176,162, 245,169,132, 140,133, 59, 61, 89, 95, & 151,138, 57, 19, 30, 45, 80,102, 87, 39, 65, 86, & 253,189,205, 216,158, 80, 251,175,158, 222,160, 87, & 11, 15, 23, 129,129, 62, 155,139, 56, 48, 77, 93, & 82,103, 86, 240,165,116, 65, 92, 94, 107,118, 71, & 236,164,108, 90,108, 81, 248,172,145, 179,148, 59, & 20, 32, 49, 253,190,209, 123,126, 64, 33, 56, 79, & 23, 38, 57, 15, 20, 30, 6, 8, 15, 75, 99, 89, & 163,142, 56, 252,179,172, 194,152, 64, 136,132, 60, & 52, 81, 95, 59, 87, 95, 209,156, 74, 72, 97, 91, & 113,120, 69, 29, 50, 72, 98,113, 76, 253,186,195 & ], shape(batlowKS), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: batlowS=reshape( [ & 1, 25, 89, 250,204,250, 130,130, 49, 34, 96, 97, & 241,157,107, 17, 67, 96, 253,180,180, 77,115, 77, & 192,144, 54, 103,123, 62, 252,191,214, 161,138, 43, & 252,168,144, 53,106, 89, 13, 49, 93, 23, 82, 98, & 219,149, 75, 248,162,126, 43,101, 94, 145,134, 45, & 90,119, 69, 27, 89, 98, 253,186,196, 177,141, 47, & 8, 37, 91, 19, 75, 97, 65,111, 83, 231,152, 90, & 15, 59, 95, 251,198,232, 253,174,162, 116,126, 56, & 207,147, 64, 169,140, 44, 252,195,223, 48,104, 92, & 253,183,188, 5, 31, 90, 109,124, 59, 18, 71, 97, & 59,109, 86, 21, 79, 98, 200,145, 59, 225,151, 82, & 71,113, 80, 14, 54, 94, 11, 43, 92, 16, 63, 96, & 30, 93, 98, 25, 86, 98, 251,201,241, 250,165,135, & 253,171,154, 38, 99, 95, 96,121, 66, 138,132, 47, & 253,188,205, 253,177,171, 245,159,116, 123,128, 52, & 153,136, 44, 237,154, 98, 83,117, 73, 185,143, 50, & 212,148, 69, 249,163,130, 253,178,175, 243,158,112, & 93,120, 68, 56,108, 88, 12, 46, 93, 252,169,149, & 16, 61, 95, 3, 28, 90, 40,100, 95, 252,193,218, & 203,146, 62, 80,116, 75, 253,175,167, 196,145, 56, & 165,139, 44, 99,122, 64, 251,199,236, 251,166,140, & 7, 34, 91, 20, 77, 98, 120,127, 54, 149,135, 44, & 36, 97, 96, 106,123, 61, 74,114, 78, 19, 73, 97, & 252,196,227, 62,110, 85, 253,172,158, 13, 51, 94, & 113,125, 57, 17, 65, 96, 51,105, 90, 252,190,209 & ], shape(batlowS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: batlowW=reshape( [ & 1, 25, 89, 2, 27, 89, 3, 28, 90, 4, 30, 90, & 5, 31, 90, 6, 33, 91, 7, 34, 91, 7, 36, 91, & 8, 37, 91, 9, 39, 92, 10, 40, 92, 10, 42, 92, & 11, 43, 92, 11, 45, 93, 12, 46, 93, 12, 47, 93, & 13, 49, 93, 13, 50, 94, 13, 51, 94, 14, 53, 94, & 14, 54, 94, 14, 55, 94, 15, 56, 95, 15, 58, 95, & 15, 59, 95, 15, 60, 95, 16, 61, 95, 16, 62, 95, & 16, 63, 96, 16, 64, 96, 16, 65, 96, 17, 66, 96, & 17, 67, 96, 17, 68, 96, 17, 69, 97, 18, 70, 97, & 18, 71, 97, 18, 71, 97, 18, 72, 97, 19, 73, 97, & 19, 74, 97, 19, 75, 97, 20, 76, 98, 20, 77, 98, & 20, 78, 98, 21, 79, 98, 21, 80, 98, 22, 80, 98, & 22, 81, 98, 22, 82, 98, 23, 83, 98, 23, 84, 98, & 24, 85, 98, 24, 86, 98, 25, 87, 98, 26, 88, 98, & 26, 88, 98, 27, 89, 98, 28, 90, 98, 28, 91, 98, & 29, 92, 98, 30, 93, 98, 31, 93, 98, 31, 94, 98, & 32, 95, 97, 33, 96, 97, 34, 97, 97, 35, 97, 97, & 36, 98, 97, 37, 99, 96, 38,100, 96, 39,100, 96, & 40,101, 95, 42,102, 95, 43,103, 94, 44,103, 94, & 45,104, 94, 46,105, 93, 48,105, 93, 49,106, 92, & 50,107, 92, 52,107, 91, 53,108, 90, 54,108, 90, & 56,109, 89, 57,110, 89, 58,110, 88, 60,111, 87, & 61,112, 86, 63,112, 86, 64,113, 85, 66,113, 84, & 67,114, 84, 69,115, 83, 70,115, 82, 72,116, 81, & 73,116, 81, 75,117, 80, 76,117, 79, 78,118, 78, & 79,119, 77, 81,119, 77, 83,120, 76, 84,120, 75, & 86,121, 74, 87,122, 73, 89,122, 73, 91,123, 72, & 92,123, 71, 94,124, 70, 95,124, 69, 97,125, 69, & 99,126, 68, 100,126, 67, 102,127, 66, 104,127, 65, & 105,128, 64, 107,129, 64, 109,129, 63, 110,130, 62, & 112,130, 61, 114,131, 61, 116,132, 60, 117,132, 59, & 119,133, 58, 121,133, 57, 123,134, 57, 124,135, 56, & 126,135, 55, 128,136, 55, 130,137, 54, 132,137, 53, & 134,138, 53, 136,139, 52, 138,139, 52, 140,140, 51, & 142,141, 51, 144,141, 51, 146,142, 50, 148,143, 50, & 150,143, 50, 152,144, 50, 154,145, 50, 156,146, 50, & 158,146, 51, 160,147, 51, 162,148, 51, 164,148, 52, & 167,149, 53, 169,150, 54, 171,151, 55, 173,151, 56, & 175,152, 57, 177,153, 58, 179,153, 59, 181,154, 61, & 183,155, 63, 186,155, 64, 187,156, 66, 189,157, 68, & 191,157, 70, 193,158, 72, 195,159, 74, 197,159, 76, & 198,160, 78, 200,160, 80, 202,161, 82, 203,161, 84, & 205,162, 86, 206,162, 88, 208,163, 90, 209,163, 92, & 211,164, 94, 212,164, 96, 213,165, 98, 215,165,100, & 216,165,102, 217,166,105, 218,166,107, 219,167,109, & 220,167,111, 221,167,112, 223,168,114, 224,168,116, & 225,169,118, 226,169,120, 227,169,122, 228,170,124, & 229,170,126, 229,171,128, 230,171,130, 231,171,132, & 232,172,134, 233,172,136, 234,173,137, 235,173,139, & 236,174,141, 237,175,143, 238,175,145, 238,176,148, & 239,177,150, 240,177,152, 241,178,154, 242,179,156, & 243,180,158, 243,181,161, 244,182,163, 245,183,166, & 246,185,168, 247,186,170, 247,187,173, 248,189,175, & 249,190,178, 249,192,181, 250,193,183, 250,195,186, & 251,197,188, 252,198,191, 252,200,193, 252,202,196, & 253,204,198, 253,205,201, 253,207,203, 254,209,205, & 254,211,207, 254,213,210, 254,214,212, 254,216,214, & 255,218,216, 255,219,218, 255,221,219, 255,223,221, & 255,224,223, 255,226,225, 255,227,226, 255,229,228, & 255,230,230, 255,232,231, 255,233,233, 255,234,234, & 255,236,235, 255,237,237, 255,239,238, 255,240,240, & 255,241,241, 255,242,242, 255,244,243, 255,245,245, & 255,246,246, 255,247,247, 255,248,248, 255,250,249, & 255,251,251, 255,252,252, 255,253,253, 255,254,254 & ], shape(batlowW), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: batlowW10=reshape( [ & 1, 25, 89, 16, 63, 96, 27, 89, 98, 57,110, 89, & 100,126, 67, 154,145, 50, 208,163, 90, 238,175,145, & 254,216,214, 255,254,254 & ], shape(batlowW10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: batlowW100=reshape( [ & 1, 25, 89, 4, 30, 90, 6, 33, 91, 8, 37, 91, & 10, 40, 92, 11, 45, 93, 12, 47, 93, 13, 51, 94, & 14, 55, 94, 15, 58, 95, 16, 61, 95, 16, 63, 96, & 17, 66, 96, 17, 68, 96, 18, 71, 97, 19, 73, 97, & 19, 75, 97, 20, 78, 98, 21, 80, 98, 22, 82, 98, & 24, 85, 98, 25, 87, 98, 27, 89, 98, 28, 91, 98, & 31, 93, 98, 32, 95, 97, 35, 97, 97, 38,100, 96, & 40,101, 95, 44,103, 94, 46,105, 93, 50,107, 92, & 53,108, 90, 57,110, 89, 61,112, 86, 64,113, 85, & 69,115, 83, 72,116, 81, 76,117, 79, 79,119, 77, & 84,120, 75, 89,122, 73, 92,123, 71, 97,125, 69, & 100,126, 67, 105,128, 64, 109,129, 63, 114,131, 61, & 119,133, 58, 123,134, 57, 128,136, 55, 132,137, 53, & 138,139, 52, 144,141, 51, 148,143, 50, 154,145, 50, & 158,146, 51, 164,148, 52, 169,150, 54, 175,152, 57, & 181,154, 61, 186,155, 64, 191,157, 70, 195,159, 74, & 200,160, 80, 203,161, 84, 208,163, 90, 212,164, 96, & 215,165,100, 218,166,107, 220,167,111, 224,168,116, & 226,169,120, 229,170,126, 231,171,132, 233,172,136, & 236,174,141, 238,175,145, 240,177,152, 242,179,156, & 244,182,163, 247,186,170, 248,189,175, 250,193,183, & 251,197,188, 252,202,196, 253,207,203, 254,211,207, & 254,216,214, 255,219,218, 255,224,223, 255,227,226, & 255,232,231, 255,236,235, 255,239,238, 255,242,242, & 255,245,245, 255,248,248, 255,251,251, 255,254,254 & ], shape(batlowW100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: batlowW25=reshape( [ & 1, 25, 89, 10, 42, 92, 14, 55, 94, 17, 67, 96, & 20, 77, 98, 24, 86, 98, 32, 95, 97, 43,103, 94, & 57,110, 89, 73,116, 81, 89,122, 73, 107,129, 64, & 126,135, 55, 146,142, 50, 169,150, 54, 189,157, 68, & 208,163, 90, 221,167,112, 231,171,132, 241,178,154, & 249,192,181, 254,209,205, 255,227,226, 255,241,241, & 255,254,254 & ], shape(batlowW25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: batlowW50=reshape( [ & 1, 25, 89, 6, 33, 91, 10, 40, 92, 13, 49, 93, & 14, 55, 94, 16, 61, 95, 17, 66, 96, 18, 71, 97, & 20, 76, 98, 22, 80, 98, 24, 85, 98, 27, 89, 98, & 31, 93, 98, 36, 98, 97, 42,102, 95, 48,105, 93, & 54,108, 90, 61,112, 86, 70,115, 82, 78,118, 78, & 86,121, 74, 94,124, 70, 102,127, 66, 112,130, 61, & 121,133, 57, 130,137, 54, 140,140, 51, 152,144, 50, & 162,148, 51, 173,151, 56, 183,155, 63, 193,158, 72, & 203,161, 84, 211,164, 94, 217,166,105, 223,168,114, & 228,170,124, 233,172,136, 238,175,145, 242,179,156, & 246,185,168, 249,192,181, 252,202,196, 254,211,207, & 255,219,218, 255,227,226, 255,234,234, 255,242,242, & 255,248,248, 255,254,254 & ], shape(batlowW50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: batlowWS=reshape( [ & 255,254,254, 1, 25, 89, 124,135, 56, 231,171,132, & 32, 95, 97, 189,157, 68, 254,209,205, 17, 67, 96, & 73,116, 81, 13, 49, 93, 156,146, 50, 50,107, 92, & 22, 81, 98, 245,183,166, 255,234,234, 215,165,100, & 99,126, 68, 19, 74, 97, 173,151, 56, 203,161, 84, & 8, 37, 91, 255,245,245, 224,168,116, 86,121, 74, & 61,112, 86, 255,223,221, 250,195,186, 26, 88, 98, & 238,176,148, 140,140, 51, 15, 59, 95, 40,101, 95, & 110,130, 62, 255,229,228, 45,104, 94, 148,143, 50, & 132,137, 53, 219,167,109, 209,163, 92, 14, 54, 94, & 164,148, 52, 24, 85, 98, 248,189,175, 255,240,240, & 235,173,139, 67,114, 84, 36, 98, 97, 11, 43, 92, & 255,250,249, 242,179,156, 92,123, 71, 181,154, 61, & 252,202,196, 18, 71, 97, 117,132, 59, 29, 92, 98, & 56,109, 89, 254,216,214, 20, 78, 98, 197,159, 76, & 79,119, 77, 16, 63, 96, 5, 31, 90, 228,170,124, & 104,127, 65, 21, 80, 98, 53,108, 90, 89,122, 73, & 193,158, 72, 255,237,237, 3, 28, 90, 64,113, 85, & 240,177,152, 255,219,218, 229,171,128, 16, 61, 95, & 237,175,143, 136,139, 52, 15, 56, 95, 247,186,170, & 152,144, 50, 70,115, 82, 83,120, 76, 48,105, 93, & 226,169,120, 169,150, 54, 23, 83, 98, 12, 46, 93, & 160,147, 51, 221,167,112, 177,153, 58, 217,166,105, & 243,181,161, 255,226,225, 253,205,201, 107,129, 64, & 255,242,242, 13, 51, 94, 252,198,191, 249,192,181 & ], shape(batlowWS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: berlin=reshape( [ & 158,176,255, 156,176,254, 154,176,253, 152,175,252, & 149,175,251, 147,175,250, 145,174,249, 142,174,247, & 140,174,246, 138,174,245, 135,173,244, 133,173,243, & 130,173,242, 128,172,241, 126,172,240, 123,172,238, & 121,171,237, 118,171,236, 116,170,235, 113,170,233, & 111,169,232, 108,169,230, 106,168,229, 103,168,227, & 101,167,226, 98,166,224, 96,165,223, 93,165,221, & 91,164,219, 88,163,217, 86,162,215, 84,160,213, & 81,159,211, 79,158,209, 77,157,207, 75,155,205, & 72,154,202, 70,152,200, 68,151,198, 67,149,195, & 65,148,193, 63,146,190, 62,144,188, 60,142,185, & 59,141,183, 57,139,180, 56,137,178, 55,135,175, & 54,133,173, 53,132,170, 51,130,168, 50,128,166, & 50,126,163, 49,124,161, 48,122,158, 47,120,156, & 46,118,153, 45,117,151, 44,115,148, 44,113,146, & 43,111,143, 42,109,141, 41,107,139, 41,105,136, & 40,104,134, 39,102,131, 39,100,129, 38, 98,127, & 37, 96,124, 36, 94,122, 36, 93,120, 35, 91,117, & 34, 89,115, 34, 87,113, 33, 85,110, 32, 84,108, & 32, 82,106, 31, 80,104, 30, 78,101, 30, 77, 99, & 29, 75, 97, 28, 73, 95, 28, 71, 92, 27, 70, 90, & 26, 68, 88, 26, 66, 86, 25, 65, 83, 25, 63, 81, & 24, 61, 79, 23, 60, 77, 23, 58, 75, 22, 56, 73, & 22, 55, 71, 21, 53, 68, 21, 51, 66, 20, 50, 64, & 20, 48, 62, 19, 47, 60, 19, 45, 58, 18, 44, 56, & 18, 42, 54, 18, 41, 52, 17, 39, 50, 17, 38, 48, & 17, 36, 46, 17, 35, 44, 17, 33, 42, 17, 32, 40, & 16, 31, 38, 16, 29, 37, 16, 28, 35, 17, 27, 33, & 17, 26, 32, 17, 25, 30, 17, 24, 28, 17, 22, 27, & 17, 21, 25, 17, 20, 24, 17, 19, 23, 18, 18, 21, & 18, 18, 20, 19, 17, 18, 20, 16, 17, 20, 15, 16, & 21, 14, 14, 22, 14, 13, 23, 13, 11, 24, 12, 10, & 25, 12, 9, 26, 12, 8, 27, 11, 7, 28, 11, 6, & 29, 11, 5, 30, 11, 4, 32, 11, 4, 33, 11, 3, & 34, 12, 2, 35, 12, 2, 36, 12, 2, 37, 12, 1, & 38, 13, 1, 39, 13, 1, 40, 13, 1, 42, 14, 1, & 43, 14, 1, 44, 14, 0, 45, 14, 0, 47, 14, 0, & 48, 15, 0, 49, 15, 0, 51, 15, 0, 52, 15, 0, & 53, 16, 0, 55, 16, 0, 56, 16, 0, 57, 17, 0, & 59, 17, 0, 60, 17, 1, 62, 18, 1, 63, 18, 1, & 65, 18, 1, 66, 19, 1, 68, 19, 1, 69, 20, 1, & 71, 20, 1, 72, 21, 2, 74, 21, 2, 75, 22, 2, & 77, 22, 2, 79, 23, 3, 80, 24, 3, 82, 24, 4, & 84, 25, 5, 86, 26, 5, 87, 27, 6, 89, 28, 7, & 91, 29, 8, 93, 30, 9, 95, 31, 10, 97, 32, 11, & 99, 33, 12, 101, 35, 14, 104, 36, 15, 106, 37, 16, & 108, 39, 17, 110, 40, 19, 112, 42, 20, 115, 43, 22, & 117, 45, 23, 119, 47, 25, 121, 48, 27, 123, 50, 28, & 125, 52, 30, 128, 54, 32, 130, 55, 34, 132, 57, 36, & 134, 59, 38, 136, 61, 40, 138, 63, 42, 140, 64, 44, & 142, 66, 46, 144, 68, 48, 146, 70, 50, 148, 72, 52, & 150, 74, 54, 152, 76, 57, 154, 77, 59, 156, 79, 61, & 158, 81, 63, 160, 83, 65, 162, 85, 68, 164, 87, 70, & 166, 89, 72, 168, 90, 74, 170, 92, 76, 172, 94, 79, & 174, 96, 81, 176, 98, 83, 178,100, 85, 180,102, 88, & 182,104, 90, 184,106, 92, 186,107, 95, 188,109, 97, & 190,111, 99, 192,113,101, 194,115,104, 196,117,106, & 198,119,108, 200,121,111, 202,123,113, 204,125,115, & 206,127,118, 208,129,120, 210,131,122, 213,133,125, & 215,135,127, 217,137,130, 219,139,132, 221,141,134, & 223,143,137, 225,145,139, 227,147,142, 229,149,144, & 231,151,146, 234,153,149, 236,155,151, 238,157,154, & 240,159,156, 242,161,159, 244,163,161, 246,165,163, & 249,167,166, 251,169,168, 253,171,171, 255,173,173 & ], shape(berlin), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: berlin10=reshape( [ & 158,176,255, 91,164,219, 45,117,151, 26, 66, 86, & 17, 25, 30, 40, 13, 1, 80, 24, 3, 138, 63, 42, & 196,117,106, 255,173,173 & ], shape(berlin10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: berlin100=reshape( [ & 158,176,255, 152,175,252, 147,175,250, 140,174,246, & 135,173,244, 128,172,241, 123,172,238, 116,170,235, & 108,169,230, 103,168,227, 96,165,223, 91,164,219, & 84,160,213, 79,158,209, 72,154,202, 67,149,195, & 63,146,190, 59,141,183, 56,137,178, 53,132,170, & 50,126,163, 48,122,158, 45,117,151, 44,113,146, & 41,107,139, 40,104,134, 38, 98,127, 36, 93,120, & 34, 89,115, 32, 84,108, 31, 80,104, 29, 75, 97, & 28, 71, 92, 26, 66, 86, 24, 61, 79, 23, 58, 75, & 21, 53, 68, 20, 50, 64, 19, 45, 58, 18, 42, 54, & 17, 38, 48, 17, 33, 42, 16, 31, 38, 17, 27, 33, & 17, 25, 30, 17, 21, 25, 17, 19, 23, 19, 17, 18, & 21, 14, 14, 23, 13, 11, 26, 12, 8, 28, 11, 6, & 32, 11, 4, 35, 12, 2, 37, 12, 1, 40, 13, 1, & 43, 14, 1, 47, 14, 0, 49, 15, 0, 53, 16, 0, & 57, 17, 0, 60, 17, 1, 65, 18, 1, 68, 19, 1, & 72, 21, 2, 75, 22, 2, 80, 24, 3, 86, 26, 5, & 89, 28, 7, 95, 31, 10, 99, 33, 12, 106, 37, 16, & 110, 40, 19, 117, 45, 23, 123, 50, 28, 128, 54, 32, & 134, 59, 38, 138, 63, 42, 144, 68, 48, 148, 72, 52, & 154, 77, 59, 160, 83, 65, 164, 87, 70, 170, 92, 76, & 174, 96, 81, 180,102, 88, 186,107, 95, 190,111, 99, & 196,117,106, 200,121,111, 206,127,118, 210,131,122, & 217,137,130, 223,143,137, 227,147,142, 234,153,149, & 238,157,154, 244,163,161, 249,167,166, 255,173,173 & ], shape(berlin100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: berlin25=reshape( [ & 158,176,255, 133,173,243, 108,169,230, 81,159,211, & 60,142,185, 49,124,161, 40,104,134, 33, 85,110, & 26, 66, 86, 20, 48, 62, 17, 33, 42, 17, 20, 24, & 25, 12, 9, 36, 12, 2, 49, 15, 0, 63, 18, 1, & 80, 24, 3, 101, 35, 14, 123, 50, 28, 146, 70, 50, & 168, 90, 74, 188,109, 97, 210,131,122, 231,151,146, & 255,173,173 & ], shape(berlin25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: berlin50=reshape( [ & 158,176,255, 147,175,250, 135,173,244, 121,171,237, & 108,169,230, 96,165,223, 84,160,213, 72,154,202, & 62,144,188, 55,135,175, 50,126,163, 45,117,151, & 41,107,139, 37, 96,124, 34, 87,113, 30, 78,101, & 27, 70, 90, 24, 61, 79, 21, 51, 66, 18, 44, 56, & 17, 36, 46, 16, 29, 37, 17, 24, 28, 18, 18, 20, & 22, 14, 13, 27, 11, 7, 33, 11, 3, 39, 13, 1, & 45, 14, 0, 52, 15, 0, 59, 17, 0, 66, 19, 1, & 75, 22, 2, 84, 25, 5, 93, 30, 9, 104, 36, 15, & 115, 43, 22, 128, 54, 32, 138, 63, 42, 148, 72, 52, & 158, 81, 63, 168, 90, 74, 180,102, 88, 190,111, 99, & 200,121,111, 210,131,122, 221,141,134, 234,153,149, & 244,163,161, 255,173,173 & ], shape(berlin50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: bilbao=reshape( [ & 76, 0, 1, 78, 1, 3, 79, 2, 5, 81, 4, 7, & 82, 5, 9, 84, 7, 11, 85, 8, 13, 87, 10, 14, & 88, 11, 16, 90, 13, 17, 91, 14, 19, 93, 16, 20, & 94, 17, 21, 96, 19, 22, 97, 20, 24, 98, 21, 25, & 100, 22, 26, 101, 24, 27, 103, 25, 29, 104, 26, 30, & 105, 27, 31, 107, 29, 32, 108, 30, 34, 109, 31, 35, & 110, 32, 36, 112, 33, 38, 113, 34, 39, 114, 35, 40, & 115, 37, 41, 117, 38, 43, 118, 39, 44, 119, 40, 45, & 120, 41, 47, 122, 42, 48, 123, 43, 49, 124, 45, 50, & 125, 46, 52, 126, 47, 53, 128, 48, 54, 129, 49, 55, & 130, 50, 57, 131, 51, 58, 132, 52, 59, 133, 53, 60, & 135, 55, 62, 136, 56, 63, 137, 57, 64, 138, 58, 65, & 139, 59, 66, 140, 60, 67, 141, 61, 69, 142, 63, 70, & 143, 64, 71, 144, 65, 72, 145, 66, 73, 146, 67, 74, & 147, 69, 75, 148, 70, 75, 149, 71, 76, 149, 72, 77, & 150, 73, 78, 151, 74, 79, 152, 76, 79, 152, 77, 80, & 153, 78, 81, 153, 79, 81, 154, 80, 82, 154, 81, 82, & 155, 82, 83, 155, 83, 83, 156, 84, 83, 156, 85, 84, & 157, 86, 84, 157, 87, 84, 157, 88, 85, 158, 89, 85, & 158, 90, 85, 158, 91, 86, 158, 92, 86, 159, 93, 86, & 159, 94, 86, 159, 94, 86, 159, 95, 87, 160, 96, 87, & 160, 97, 87, 160, 98, 87, 160, 99, 87, 161, 99, 88, & 161,100, 88, 161,101, 88, 161,102, 88, 161,103, 88, & 162,103, 89, 162,104, 89, 162,105, 89, 162,106, 89, & 163,107, 89, 163,107, 89, 163,108, 90, 163,109, 90, & 163,110, 90, 164,110, 90, 164,111, 90, 164,112, 90, & 164,113, 91, 164,113, 91, 165,114, 91, 165,115, 91, & 165,116, 91, 165,116, 91, 165,117, 91, 166,118, 92, & 166,118, 92, 166,119, 92, 166,120, 92, 166,121, 92, & 167,121, 92, 167,122, 93, 167,123, 93, 167,124, 93, & 167,124, 93, 168,125, 93, 168,126, 93, 168,126, 94, & 168,127, 94, 168,128, 94, 169,129, 94, 169,129, 94, & 169,130, 94, 169,131, 94, 169,132, 95, 170,132, 95, & 170,133, 95, 170,134, 95, 170,134, 95, 170,135, 95, & 171,136, 96, 171,137, 96, 171,137, 96, 171,138, 96, & 171,139, 96, 172,140, 96, 172,141, 97, 172,141, 97, & 172,142, 97, 172,143, 97, 173,144, 97, 173,145, 98, & 173,145, 98, 173,146, 98, 174,147, 98, 174,148, 99, & 174,149, 99, 174,150, 99, 175,150,100, 175,151,100, & 175,152,100, 175,153,101, 176,154,102, 176,155,102, & 177,156,103, 177,157,104, 177,158,104, 178,159,105, & 178,160,106, 179,161,107, 179,162,109, 179,163,110, & 180,164,111, 180,165,113, 181,167,114, 181,168,116, & 182,169,117, 182,170,119, 183,171,121, 183,172,122, & 184,172,124, 184,173,126, 185,174,128, 185,175,130, & 186,176,131, 186,177,133, 187,178,135, 187,178,137, & 188,179,139, 188,180,141, 189,181,142, 189,181,144, & 190,182,146, 190,183,148, 191,183,149, 191,184,151, & 191,185,153, 192,185,154, 192,186,156, 193,187,158, & 193,187,159, 193,188,161, 194,188,163, 194,189,164, & 195,190,166, 195,190,167, 195,191,169, 196,191,170, & 196,192,172, 197,193,173, 197,193,175, 197,194,176, & 198,194,178, 198,195,179, 199,195,180, 199,196,182, & 199,197,183, 200,197,185, 200,198,186, 201,199,188, & 202,199,189, 202,200,190, 203,201,192, 203,202,193, & 204,202,195, 205,203,196, 206,204,198, 206,205,199, & 207,206,201, 208,207,203, 209,208,204, 210,210,206, & 212,211,207, 213,212,209, 214,213,211, 215,215,212, & 217,216,214, 218,218,216, 219,219,218, 221,221,219, & 222,222,221, 224,224,223, 225,225,225, 227,227,226, & 229,229,228, 230,230,230, 232,232,232, 234,234,233, & 235,235,235, 237,237,237, 239,239,239, 241,241,240, & 242,242,242, 244,244,244, 246,246,246, 248,248,248, & 250,250,250, 251,251,251, 253,253,253, 255,255,255 & ], shape(bilbao), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: bilbao10=reshape( [ & 76, 0, 1, 115, 37, 41, 148, 70, 75, 160, 98, 87, & 166,119, 92, 172,141, 97, 181,167,114, 194,188,163, & 210,210,206, 255,255,255 & ], shape(bilbao10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: bilbao100=reshape( [ & 76, 0, 1, 81, 4, 7, 84, 7, 11, 88, 11, 16, & 91, 14, 19, 96, 19, 22, 98, 21, 25, 103, 25, 29, & 107, 29, 32, 109, 31, 35, 113, 34, 39, 115, 37, 41, & 119, 40, 45, 122, 42, 48, 125, 46, 52, 129, 49, 55, & 131, 51, 58, 135, 55, 62, 137, 57, 64, 140, 60, 67, & 143, 64, 71, 145, 66, 73, 148, 70, 75, 149, 72, 77, & 152, 76, 79, 153, 78, 81, 154, 81, 82, 156, 84, 83, & 157, 86, 84, 158, 89, 85, 158, 91, 86, 159, 94, 86, & 159, 95, 87, 160, 98, 87, 161,100, 88, 161,102, 88, & 162,104, 89, 162,106, 89, 163,108, 90, 163,110, 90, & 164,112, 90, 165,114, 91, 165,116, 91, 166,118, 92, & 166,119, 92, 167,121, 92, 167,123, 93, 168,125, 93, & 168,127, 94, 169,129, 94, 169,131, 94, 170,132, 95, & 170,134, 95, 171,137, 96, 171,138, 96, 172,141, 97, & 172,142, 97, 173,145, 98, 173,146, 98, 174,149, 99, & 175,151,100, 175,153,101, 177,156,103, 177,158,104, & 179,161,107, 179,163,110, 181,167,114, 182,170,119, & 183,172,122, 185,174,128, 186,176,131, 187,178,137, & 188,180,141, 190,182,146, 191,184,151, 192,185,154, & 193,187,159, 194,188,163, 195,190,167, 196,191,170, & 197,193,175, 198,195,179, 199,196,182, 200,198,186, & 202,199,189, 203,202,193, 206,204,198, 207,206,201, & 210,210,206, 213,212,209, 217,216,214, 219,219,218, & 224,224,223, 229,229,228, 232,232,232, 237,237,237, & 241,241,240, 246,246,246, 250,250,250, 255,255,255 & ], shape(bilbao100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: bilbao25=reshape( [ & 76, 0, 1, 93, 16, 20, 107, 29, 32, 120, 41, 47, & 133, 53, 60, 144, 65, 72, 153, 78, 81, 157, 88, 85, & 160, 98, 87, 163,107, 89, 165,114, 91, 167,122, 93, & 169,130, 94, 171,137, 96, 173,146, 98, 176,155,102, & 181,167,114, 186,177,133, 191,184,151, 195,191,169, & 200,197,185, 206,205,199, 219,219,218, 235,235,235, & 255,255,255 & ], shape(bilbao25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: bilbao50=reshape( [ & 76, 0, 1, 84, 7, 11, 91, 14, 19, 100, 22, 26, & 107, 29, 32, 113, 34, 39, 119, 40, 45, 125, 46, 52, & 132, 52, 59, 138, 58, 65, 143, 64, 71, 148, 70, 75, & 152, 76, 79, 155, 82, 83, 157, 87, 84, 158, 92, 86, & 160, 96, 87, 161,100, 88, 162,105, 89, 163,109, 90, & 164,113, 91, 165,116, 91, 166,120, 92, 167,124, 93, & 168,128, 94, 169,132, 95, 170,135, 95, 172,140, 96, & 173,144, 97, 174,148, 99, 175,152,100, 177,157,104, & 179,163,110, 182,169,117, 184,173,126, 187,178,135, & 189,181,144, 192,185,154, 194,188,163, 196,191,170, & 198,194,178, 200,197,185, 203,202,193, 207,206,201, & 213,212,209, 219,219,218, 227,227,226, 237,237,237, & 246,246,246, 255,255,255 & ], shape(bilbao50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: bilbaoS=reshape( [ & 76, 0, 1, 248,248,248, 169,129, 94, 152, 77, 80, & 190,183,148, 119, 40, 45, 162,106, 89, 175,153,101, & 204,202,195, 159, 93, 86, 138, 58, 65, 182,170,119, & 100, 22, 26, 221,221,219, 172,140, 96, 197,193,173, & 166,118, 92, 161, 99, 88, 173,146, 98, 234,234,233, & 129, 49, 55, 88, 11, 16, 164,112, 90, 179,161,107, & 193,188,161, 156, 85, 84, 146, 67, 74, 186,177,133, & 170,134, 95, 109, 31, 35, 210,210,206, 167,123, 93, & 200,197,185, 161,103, 88, 174,150, 99, 198,195,179, & 180,165,113, 160, 96, 87, 171,137, 96, 142, 63, 70, & 188,180,141, 154, 81, 82, 94, 17, 21, 158, 89, 85, & 149, 72, 77, 82, 5, 9, 133, 53, 60, 227,227,226, & 184,173,126, 215,215,212, 163,109, 90, 241,241,240, & 124, 45, 50, 195,190,167, 168,126, 93, 165,115, 91, & 192,185,154, 172,143, 97, 177,157,104, 114, 35, 40, & 104, 26, 30, 169,131, 94, 206,205,199, 202,200,190, & 166,121, 92, 244,244,244, 189,181,144, 136, 56, 63, & 168,127, 94, 176,155,102, 199,196,182, 172,141, 97, & 237,237,237, 117, 38, 43, 155, 83, 83, 165,116, 91, & 122, 42, 48, 148, 70, 75, 140, 60, 67, 181,168,116, & 160, 98, 87, 193,187,158, 170,135, 95, 151, 74, 79, & 183,172,122, 85, 8, 13, 173,145, 98, 230,230,230, & 162,104, 89, 171,138, 96, 213,212,209, 153, 79, 81, & 196,191,170, 126, 47, 53, 201,199,188, 158, 91, 86, & 194,189,164, 187,178,137, 112, 33, 38, 224,224,223 & ], shape(bilbaoS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: broc=reshape( [ & 44, 26, 76, 44, 27, 78, 44, 29, 79, 43, 30, 81, & 43, 32, 82, 43, 33, 84, 43, 35, 85, 43, 36, 87, & 43, 38, 88, 43, 39, 90, 43, 41, 91, 43, 42, 93, & 42, 44, 94, 42, 45, 96, 42, 46, 97, 42, 48, 99, & 42, 49,100, 42, 51,102, 41, 53,103, 41, 54,105, & 41, 56,106, 41, 57,108, 41, 59,109, 41, 60,111, & 41, 62,113, 40, 63,114, 40, 65,116, 40, 67,117, & 40, 68,119, 40, 70,120, 40, 71,122, 41, 73,124, & 41, 75,125, 41, 76,127, 41, 78,128, 42, 80,130, & 42, 81,131, 43, 83,133, 44, 85,134, 45, 87,136, & 46, 88,137, 47, 90,139, 48, 92,140, 49, 94,142, & 51, 95,143, 52, 97,145, 54, 99,146, 55,101,147, & 57,102,149, 59,104,150, 61,106,151, 63,107,153, & 65,109,154, 67,111,155, 69,113,156, 71,114,158, & 73,116,159, 75,118,160, 77,120,161, 80,121,163, & 82,123,164, 84,125,165, 86,127,166, 88,128,167, & 91,130,169, 93,132,170, 95,133,171, 97,135,172, & 100,137,173, 102,139,175, 104,140,176, 107,142,177, & 109,144,178, 111,146,179, 113,147,181, 116,149,182, & 118,151,183, 120,153,184, 123,155,186, 125,156,187, & 127,158,188, 130,160,189, 132,162,190, 134,163,192, & 137,165,193, 139,167,194, 141,169,195, 144,170,197, & 146,172,198, 148,174,199, 151,176,200, 153,178,202, & 155,179,203, 158,181,204, 160,183,205, 162,185,206, & 165,187,208, 167,188,209, 170,190,210, 172,192,211, & 174,194,213, 177,196,214, 179,197,215, 181,199,216, & 184,201,218, 186,203,219, 189,205,220, 191,207,221, & 194,208,223, 196,210,224, 198,212,225, 201,214,226, & 203,216,228, 206,217,229, 208,219,230, 210,221,231, & 213,223,232, 215,224,233, 217,226,234, 220,228,235, & 222,229,236, 224,231,236, 226,232,237, 228,234,237, & 230,235,237, 231,236,237, 233,237,237, 234,238,236, & 235,238,236, 236,239,235, 237,239,233, 237,239,232, & 238,239,231, 238,239,229, 238,239,227, 237,238,225, & 237,238,223, 236,237,221, 236,236,219, 235,235,217, & 234,234,214, 233,233,212, 232,232,210, 231,231,207, & 230,230,205, 229,229,203, 228,228,200, 227,226,198, & 225,225,196, 224,224,193, 223,223,191, 222,222,189, & 221,221,186, 220,219,184, 218,218,181, 217,217,179, & 216,216,177, 215,215,174, 213,213,172, 212,212,170, & 211,211,167, 210,210,165, 208,208,162, 207,207,160, & 206,206,158, 204,204,155, 203,203,153, 201,201,150, & 200,200,148, 198,198,145, 197,197,143, 195,195,140, & 193,193,138, 192,191,135, 190,190,133, 188,188,131, & 186,186,128, 184,184,126, 182,182,124, 180,180,121, & 178,178,119, 176,176,117, 174,174,115, 172,172,113, & 170,170,111, 168,168,109, 166,166,107, 163,163,105, & 161,161,103, 159,159,101, 157,157, 99, 155,155, 98, & 153,153, 96, 151,151, 94, 149,149, 92, 147,147, 91, & 145,145, 89, 143,143, 87, 141,141, 86, 139,139, 84, & 137,137, 82, 135,135, 81, 133,133, 79, 131,131, 77, & 129,129, 76, 127,127, 74, 125,125, 72, 123,123, 71, & 121,121, 69, 119,119, 68, 117,117, 66, 116,116, 64, & 114,114, 63, 112,112, 61, 110,110, 60, 108,108, 58, & 106,106, 56, 104,104, 55, 102,102, 53, 100,100, 52, & 98, 98, 50, 97, 96, 49, 95, 95, 47, 93, 93, 45, & 91, 91, 44, 89, 89, 42, 87, 87, 41, 85, 85, 39, & 84, 84, 38, 82, 82, 36, 80, 80, 35, 78, 78, 33, & 76, 76, 32, 75, 75, 31, 73, 73, 29, 71, 71, 28, & 69, 69, 26, 67, 67, 25, 66, 66, 24, 64, 64, 22, & 62, 62, 21, 60, 61, 20, 59, 59, 18, 57, 57, 17, & 55, 56, 16, 54, 54, 15, 52, 52, 14, 50, 51, 12, & 49, 49, 11, 47, 48, 10, 46, 46, 8, 44, 44, 7, & 43, 43, 5, 41, 41, 4, 40, 40, 2, 38, 38, 0 & ], shape(broc), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: broc10=reshape( [ & 44, 26, 76, 40, 68,119, 75,118,160, 139,167,194, & 206,217,229, 232,232,210, 197,197,143, 141,141, 86, & 85, 85, 39, 38, 38, 0 & ], shape(broc10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: broc100=reshape( [ & 44, 26, 76, 43, 30, 81, 43, 33, 84, 43, 38, 88, & 43, 41, 91, 42, 45, 96, 42, 48, 99, 41, 53,103, & 41, 57,108, 41, 60,111, 40, 65,116, 40, 68,119, & 41, 73,124, 41, 76,127, 42, 81,131, 45, 87,136, & 47, 90,139, 51, 95,143, 54, 99,146, 59,104,150, & 65,109,154, 69,113,156, 75,118,160, 80,121,163, & 86,127,166, 91,130,169, 97,135,172, 104,140,176, & 109,144,178, 116,149,182, 120,153,184, 127,158,188, & 132,162,190, 139,167,194, 146,172,198, 151,176,200, & 158,181,204, 162,185,206, 170,190,210, 174,194,213, & 181,199,216, 189,205,220, 194,208,223, 201,214,226, & 206,217,229, 213,223,232, 217,226,234, 224,231,236, & 230,235,237, 233,237,237, 236,239,235, 237,239,232, & 238,239,227, 236,237,221, 235,235,217, 232,232,210, & 230,230,205, 227,226,198, 224,224,193, 221,221,186, & 217,217,179, 215,215,174, 211,211,167, 208,208,162, & 204,204,155, 201,201,150, 197,197,143, 192,191,135, & 188,188,131, 182,182,124, 178,178,119, 172,172,113, & 168,168,109, 161,161,103, 155,155, 98, 151,151, 94, & 145,145, 89, 141,141, 86, 135,135, 81, 131,131, 77, & 125,125, 72, 119,119, 68, 116,116, 64, 110,110, 60, & 106,106, 56, 100,100, 52, 95, 95, 47, 91, 91, 44, & 85, 85, 39, 82, 82, 36, 76, 76, 32, 73, 73, 29, & 67, 67, 25, 62, 62, 21, 59, 59, 18, 54, 54, 15, & 50, 51, 12, 46, 46, 8, 43, 43, 5, 38, 38, 0 & ], shape(broc100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: broc25=reshape( [ & 44, 26, 76, 43, 42, 93, 41, 57,108, 41, 75,125, & 49, 94,142, 67,111,155, 91,130,169, 113,147,181, & 139,167,194, 165,187,208, 189,205,220, 215,224,233, & 235,238,236, 236,236,219, 224,224,193, 212,212,170, & 197,197,143, 176,176,117, 155,155, 98, 133,133, 79, & 112,112, 61, 93, 93, 45, 73, 73, 29, 55, 56, 16, & 38, 38, 0 & ], shape(broc25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: broc50=reshape( [ & 44, 26, 76, 43, 33, 84, 43, 41, 91, 42, 49,100, & 41, 57,108, 40, 65,116, 41, 73,124, 42, 81,131, & 48, 92,140, 55,101,147, 65,109,154, 75,118,160, & 86,127,166, 100,137,173, 111,146,179, 123,155,186, & 134,163,192, 146,172,198, 160,183,205, 172,192,211, & 184,201,218, 196,210,224, 208,219,230, 222,229,236, & 231,236,237, 237,239,233, 237,238,225, 233,233,212, & 228,228,200, 222,222,189, 216,216,177, 210,210,165, & 201,201,150, 193,193,138, 184,184,126, 174,174,115, & 163,163,105, 151,151, 94, 141,141, 86, 131,131, 77, & 121,121, 69, 112,112, 61, 100,100, 52, 91, 91, 44, & 82, 82, 36, 73, 73, 29, 64, 64, 22, 54, 54, 15, & 46, 46, 8, 38, 38, 0 & ], shape(broc50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: brocO=reshape( [ & 55, 47, 56, 54, 47, 57, 54, 47, 58, 54, 47, 59, & 54, 47, 60, 54, 48, 61, 54, 48, 63, 54, 48, 64, & 54, 48, 65, 54, 49, 67, 54, 49, 68, 54, 50, 70, & 54, 50, 71, 54, 51, 73, 54, 51, 74, 54, 52, 76, & 54, 53, 78, 54, 53, 80, 54, 54, 81, 54, 55, 83, & 54, 56, 85, 54, 57, 87, 55, 58, 89, 55, 59, 91, & 55, 60, 92, 55, 61, 94, 55, 63, 96, 56, 64, 98, & 56, 65,100, 56, 67,102, 57, 68,104, 57, 69,106, & 58, 71,108, 58, 72,111, 59, 74,113, 59, 76,115, & 60, 77,117, 61, 79,119, 62, 81,121, 62, 82,123, & 63, 84,124, 64, 86,126, 65, 87,128, 66, 89,130, & 67, 91,132, 68, 93,134, 69, 94,136, 71, 96,138, & 72, 98,139, 73,100,141, 74,102,143, 76,103,144, & 77,105,146, 79,107,148, 80,109,149, 82,111,151, & 83,112,153, 85,114,154, 86,116,156, 88,118,157, & 90,120,159, 91,121,160, 93,123,162, 95,125,163, & 97,127,165, 99,129,166, 100,130,167, 102,132,169, & 104,134,170, 106,136,171, 108,137,173, 110,139,174, & 112,141,175, 114,143,177, 116,144,178, 118,146,179, & 120,148,180, 122,150,182, 124,151,183, 126,153,184, & 128,155,185, 130,157,186, 132,158,187, 134,160,189, & 136,162,190, 138,163,191, 140,165,192, 142,167,193, & 145,168,194, 147,170,195, 149,172,196, 151,173,197, & 153,175,198, 155,177,199, 157,178,200, 159,180,200, & 161,181,201, 163,183,202, 165,184,203, 167,186,204, & 169,187,204, 171,189,205, 173,190,205, 175,192,206, & 177,193,206, 179,194,207, 181,196,207, 183,197,208, & 184,198,208, 186,200,208, 188,201,208, 189,202,208, & 191,203,208, 193,204,208, 194,205,208, 196,206,208, & 197,207,207, 198,207,207, 199,208,206, 201,209,206, & 202,209,205, 203,210,204, 203,210,203, 204,211,203, & 205,211,202, 206,211,200, 206,211,199, 207,211,198, & 207,211,197, 207,211,195, 207,211,194, 207,211,192, & 207,211,190, 207,210,189, 207,210,187, 207,209,185, & 206,208,183, 206,208,181, 205,207,179, 205,206,177, & 204,205,175, 203,204,173, 202,203,171, 201,202,169, & 200,201,166, 199,200,164, 198,198,162, 197,197,160, & 196,196,157, 194,194,155, 193,193,153, 191,191,150, & 190,190,148, 188,188,146, 187,187,144, 185,185,141, & 184,183,139, 182,182,137, 180,180,134, 179,178,132, & 177,176,130, 175,175,127, 173,173,125, 171,171,123, & 170,169,121, 168,167,119, 166,165,116, 164,164,114, & 162,162,112, 160,160,110, 158,158,108, 157,156,106, & 155,154,104, 153,152,102, 151,150,100, 149,148, 98, & 147,146, 96, 145,145, 94, 143,143, 92, 141,141, 90, & 139,139, 89, 137,137, 87, 136,135, 85, 134,133, 83, & 132,131, 81, 130,129, 80, 128,127, 78, 126,126, 76, & 124,124, 75, 123,122, 73, 121,120, 72, 119,118, 70, & 117,116, 69, 115,114, 67, 114,113, 66, 112,111, 65, & 110,109, 63, 108,107, 62, 107,105, 61, 105,104, 59, & 103,102, 58, 102,100, 57, 100, 98, 56, 98, 97, 55, & 97, 95, 54, 95, 93, 53, 94, 92, 52, 92, 90, 51, & 91, 89, 50, 89, 87, 49, 88, 85, 48, 86, 84, 47, & 85, 82, 46, 84, 81, 46, 82, 79, 45, 81, 78, 45, & 80, 77, 44, 79, 75, 43, 77, 74, 43, 76, 72, 43, & 75, 71, 42, 74, 70, 42, 73, 69, 42, 72, 67, 41, & 71, 66, 41, 70, 65, 41, 69, 64, 41, 68, 63, 41, & 67, 62, 41, 66, 61, 41, 66, 60, 41, 65, 59, 41, & 64, 58, 41, 63, 57, 41, 63, 56, 41, 62, 56, 42, & 62, 55, 42, 61, 54, 42, 60, 53, 43, 60, 53, 43, & 59, 52, 43, 59, 52, 44, 59, 51, 44, 58, 51, 45, & 58, 50, 46, 57, 50, 46, 57, 49, 47, 57, 49, 48, & 56, 48, 48, 56, 48, 49, 56, 48, 50, 56, 48, 51, & 55, 47, 52, 55, 47, 53, 55, 47, 54, 55, 47, 55 & ], shape(brocO), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: brocO10=reshape( [ & 55, 47, 56, 56, 65,100, 85,114,154, 138,163,191, & 193,204,208, 202,203,171, 158,158,108, 107,105, 61, & 68, 63, 41, 55, 47, 55 & ], shape(brocO10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: brocO100=reshape( [ & 55, 47, 56, 54, 47, 59, 54, 48, 61, 54, 48, 65, & 54, 49, 68, 54, 51, 73, 54, 52, 76, 54, 54, 81, & 54, 57, 87, 55, 59, 91, 55, 63, 96, 56, 65,100, & 57, 69,106, 58, 72,111, 60, 77,117, 62, 82,123, & 64, 86,126, 67, 91,132, 69, 94,136, 73,100,141, & 77,105,146, 80,109,149, 85,114,154, 88,118,157, & 93,123,162, 97,127,165, 102,132,169, 108,137,173, & 112,141,175, 118,146,179, 122,150,182, 128,155,185, & 132,158,187, 138,163,191, 145,168,194, 149,172,196, & 155,177,199, 159,180,200, 165,184,203, 169,187,204, & 175,192,206, 181,196,207, 184,198,208, 189,202,208, & 193,204,208, 197,207,207, 199,208,206, 203,210,204, & 205,211,202, 206,211,199, 207,211,195, 207,211,192, & 207,210,187, 206,208,181, 205,206,177, 202,203,171, & 200,201,166, 197,197,160, 194,194,155, 190,190,148, & 185,185,141, 182,182,137, 177,176,130, 173,173,125, & 168,167,119, 164,164,114, 158,158,108, 153,152,102, & 149,148, 98, 143,143, 92, 139,139, 89, 134,133, 83, & 130,129, 80, 124,124, 75, 119,118, 70, 115,114, 67, & 110,109, 63, 107,105, 61, 102,100, 57, 98, 97, 55, & 94, 92, 52, 89, 87, 49, 86, 84, 47, 82, 79, 45, & 80, 77, 44, 76, 72, 43, 73, 69, 42, 71, 66, 41, & 68, 63, 41, 66, 61, 41, 64, 58, 41, 63, 56, 41, & 61, 54, 42, 59, 52, 43, 59, 51, 44, 57, 50, 46, & 57, 49, 48, 56, 48, 50, 55, 47, 52, 55, 47, 55 & ], shape(brocO100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: brocO25=reshape( [ & 55, 47, 56, 54, 50, 70, 54, 57, 87, 58, 71,108, & 66, 89,130, 79,107,148, 97,127,165, 116,144,178, & 138,163,191, 161,181,201, 181,196,207, 198,207,207, & 207,211,197, 205,207,179, 194,194,155, 179,178,132, & 158,158,108, 137,137, 87, 119,118, 70, 100, 98, 56, & 84, 81, 46, 72, 67, 41, 63, 56, 41, 58, 50, 46, & 55, 47, 55 & ], shape(brocO25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: brocO50=reshape( [ & 55, 47, 56, 54, 48, 61, 54, 49, 68, 54, 53, 78, & 54, 57, 87, 55, 63, 96, 57, 69,106, 60, 77,117, & 65, 87,128, 71, 96,138, 77,105,146, 85,114,154, & 93,123,162, 104,134,170, 114,143,177, 124,151,183, & 134,160,189, 145,168,194, 157,178,200, 167,186,204, & 177,193,206, 186,200,208, 194,205,208, 202,209,205, & 206,211,200, 207,211,194, 207,209,185, 203,204,173, & 198,198,162, 191,191,150, 184,183,139, 175,175,127, & 164,164,114, 155,154,104, 145,145, 94, 136,135, 85, & 126,126, 76, 115,114, 67, 107,105, 61, 98, 97, 55, & 91, 89, 50, 84, 81, 46, 76, 72, 43, 71, 66, 41, & 66, 61, 41, 63, 56, 41, 60, 53, 43, 57, 50, 46, & 56, 48, 50, 55, 47, 55 & ], shape(brocO50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: buda=reshape( [ & 179, 1,179, 179, 3,178, 179, 5,177, 179, 7,176, & 179, 9,175, 179, 11,174, 179, 13,174, 179, 15,173, & 179, 17,172, 179, 18,171, 179, 20,170, 179, 22,169, & 179, 23,169, 179, 24,168, 179, 26,167, 179, 27,166, & 179, 28,166, 179, 30,165, 179, 31,164, 179, 32,164, & 179, 33,163, 179, 35,162, 179, 36,162, 179, 37,161, & 179, 38,160, 179, 39,160, 179, 40,159, 179, 41,159, & 179, 43,158, 179, 44,158, 179, 45,157, 179, 46,157, & 179, 47,156, 179, 48,156, 180, 49,155, 180, 50,155, & 180, 51,154, 180, 52,154, 180, 53,153, 180, 54,153, & 181, 55,152, 181, 56,152, 181, 57,152, 181, 58,151, & 182, 59,151, 182, 60,150, 182, 61,150, 182, 62,150, & 183, 63,149, 183, 64,149, 183, 65,149, 184, 66,148, & 184, 67,148, 184, 68,148, 184, 69,147, 185, 70,147, & 185, 71,147, 185, 72,146, 186, 73,146, 186, 74,146, & 186, 75,145, 187, 75,145, 187, 76,145, 187, 77,144, & 188, 78,144, 188, 79,144, 188, 80,143, 188, 81,143, & 189, 82,143, 189, 83,143, 189, 84,142, 190, 85,142, & 190, 85,142, 190, 86,141, 191, 87,141, 191, 88,141, & 191, 89,140, 191, 90,140, 192, 91,140, 192, 92,140, & 192, 92,139, 193, 93,139, 193, 94,139, 193, 95,138, & 194, 96,138, 194, 97,138, 194, 98,138, 194, 99,137, & 195, 99,137, 195,100,137, 195,101,136, 196,102,136, & 196,103,136, 196,104,136, 196,105,135, 197,105,135, & 197,106,135, 197,107,134, 198,108,134, 198,109,134, & 198,110,134, 198,110,133, 199,111,133, 199,112,133, & 199,113,132, 199,114,132, 200,115,132, 200,115,132, & 200,116,131, 201,117,131, 201,118,131, 201,119,131, & 201,120,130, 202,121,130, 202,121,130, 202,122,129, & 202,123,129, 203,124,129, 203,125,129, 203,126,128, & 203,126,128, 204,127,128, 204,128,128, 204,129,127, & 204,130,127, 205,131,127, 205,132,127, 205,132,126, & 205,133,126, 206,134,126, 206,135,126, 206,136,126, & 206,137,125, 207,138,125, 207,138,125, 207,139,125, & 207,140,124, 207,141,124, 208,142,124, 208,143,124, & 208,144,124, 208,145,123, 209,145,123, 209,146,123, & 209,147,123, 209,148,122, 209,149,122, 210,150,122, & 210,151,122, 210,151,122, 210,152,121, 210,153,121, & 211,154,121, 211,155,121, 211,156,120, 211,157,120, & 212,158,120, 212,158,120, 212,159,120, 212,160,119, & 212,161,119, 213,162,119, 213,163,119, 213,164,119, & 213,165,118, 214,165,118, 214,166,118, 214,167,118, & 214,168,117, 214,169,117, 215,170,117, 215,171,117, & 215,172,117, 215,173,116, 216,173,116, 216,174,116, & 216,175,116, 216,176,115, 216,177,115, 217,178,115, & 217,179,115, 217,180,115, 217,181,114, 218,181,114, & 218,182,114, 218,183,114, 218,184,113, 218,185,113, & 219,186,113, 219,187,113, 219,188,113, 219,189,112, & 220,190,112, 220,191,112, 220,191,112, 220,192,111, & 221,193,111, 221,194,111, 221,195,111, 221,196,110, & 221,197,110, 222,198,110, 222,199,110, 222,200,110, & 222,201,109, 223,202,109, 223,202,109, 223,203,109, & 223,204,108, 224,205,108, 224,206,108, 224,207,108, & 224,208,107, 224,209,107, 225,210,107, 225,211,107, & 225,212,107, 226,213,106, 226,214,106, 226,215,106, & 226,216,106, 227,217,105, 227,218,105, 227,219,105, & 228,220,105, 228,221,105, 229,222,104, 229,223,104, & 229,224,104, 230,225,104, 231,226,104, 231,227,104, & 232,228,103, 232,229,103, 233,230,103, 234,231,103, & 235,232,103, 235,233,103, 236,235,103, 237,236,103, & 238,237,103, 239,238,102, 240,239,102, 241,240,102, & 242,242,102, 243,243,102, 244,244,102, 246,245,102, & 247,246,102, 248,248,102, 249,249,102, 250,250,102, & 251,251,102, 253,253,102, 254,254,102, 255,255,102 & ], shape(buda), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: buda10=reshape( [ & 179, 1,179, 179, 43,158, 185, 72,146, 194, 97,138, & 202,121,130, 209,145,123, 215,170,117, 221,195,111, & 229,223,104, 255,255,102 & ], shape(buda10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: buda100=reshape( [ & 179, 1,179, 179, 7,176, 179, 11,174, 179, 17,172, & 179, 20,170, 179, 24,168, 179, 27,166, 179, 31,164, & 179, 35,162, 179, 37,161, 179, 40,159, 179, 43,158, & 179, 46,157, 179, 48,156, 180, 51,154, 180, 54,153, & 181, 56,152, 182, 59,151, 182, 61,150, 183, 64,149, & 184, 67,148, 184, 69,147, 185, 72,146, 186, 74,146, & 187, 76,145, 188, 78,144, 188, 81,143, 189, 84,142, & 190, 85,142, 191, 88,141, 191, 90,140, 192, 92,139, & 193, 94,139, 194, 97,138, 195, 99,137, 195,101,136, & 196,104,136, 197,105,135, 198,108,134, 198,110,134, & 199,112,133, 200,115,132, 200,116,131, 201,119,131, & 202,121,130, 202,123,129, 203,125,129, 204,127,128, & 204,130,127, 205,132,127, 206,134,126, 206,136,126, & 207,138,125, 207,141,124, 208,143,124, 209,145,123, & 209,147,123, 210,150,122, 210,151,122, 211,154,121, & 211,157,120, 212,158,120, 212,161,119, 213,163,119, & 214,165,118, 214,167,118, 215,170,117, 215,173,116, & 216,174,116, 216,177,115, 217,179,115, 218,181,114, & 218,183,114, 219,186,113, 219,189,112, 220,191,112, & 221,193,111, 221,195,111, 222,198,110, 222,200,110, & 223,202,109, 224,205,108, 224,207,108, 225,210,107, & 225,212,107, 226,215,106, 227,218,105, 228,220,105, & 229,223,104, 230,225,104, 232,228,103, 233,230,103, & 235,233,103, 238,237,103, 240,239,102, 243,243,102, & 246,245,102, 249,249,102, 251,251,102, 255,255,102 & ], shape(buda100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: buda25=reshape( [ & 179, 1,179, 179, 22,169, 179, 35,162, 179, 47,156, & 181, 58,151, 184, 68,148, 188, 78,144, 191, 87,141, & 194, 97,138, 197,106,135, 200,115,132, 203,124,129, & 205,133,126, 208,142,124, 210,151,122, 212,160,119, & 215,170,117, 217,180,115, 219,189,112, 222,199,110, & 224,209,107, 227,219,105, 233,230,103, 242,242,102, & 255,255,102 & ], shape(buda25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: buda50=reshape( [ & 179, 1,179, 179, 11,174, 179, 20,170, 179, 28,166, & 179, 35,162, 179, 40,159, 179, 46,157, 180, 51,154, & 181, 57,152, 182, 62,150, 184, 67,148, 185, 72,146, & 187, 76,145, 189, 82,143, 190, 86,141, 192, 91,140, & 193, 95,138, 195, 99,137, 196,105,135, 198,109,134, & 199,113,132, 201,117,131, 202,121,130, 203,126,128, & 205,131,127, 206,135,126, 207,139,125, 208,145,123, & 209,149,122, 210,153,121, 212,158,120, 213,162,119, & 214,167,118, 215,172,117, 216,176,115, 217,181,114, & 218,185,113, 220,191,112, 221,195,111, 222,200,110, & 223,204,108, 224,209,107, 226,215,106, 228,220,105, & 230,225,104, 233,230,103, 237,236,103, 243,243,102, & 249,249,102, 255,255,102 & ], shape(buda50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: budaS=reshape( [ & 179, 1,179, 255,255,102, 205,133,126, 188, 78,144, & 220,190,112, 179, 47,156, 212,161,119, 197,106,135, & 227,219,105, 192, 92,139, 179, 28,166, 209,147,123, & 201,120,130, 183, 63,149, 237,236,103, 216,175,116, & 223,204,108, 181, 55,152, 218,182,114, 179, 17,172, & 221,197,110, 199,113,132, 231,227,104, 246,245,102, & 195, 99,137, 179, 38,160, 211,154,121, 207,140,124, & 203,126,128, 185, 71,147, 190, 85,142, 214,168,117, & 225,211,107, 221,193,111, 179, 23,169, 198,110,134, & 250,250,102, 200,116,131, 191, 89,140, 212,158,120, & 226,215,106, 219,186,113, 204,130,127, 215,172,117, & 213,165,118, 194, 96,138, 229,223,104, 196,103,136, & 241,240,102, 210,151,122, 179, 33,163, 182, 59,151, & 179, 43,158, 202,123,129, 179, 9,175, 206,137,125, & 234,231,103, 208,144,124, 222,201,109, 186, 75,145, & 184, 67,148, 217,179,115, 189, 82,143, 180, 51,154, & 224,207,108, 179, 26,167, 179, 20,170, 192, 91,140, & 183, 65,149, 216,173,116, 232,229,103, 198,108,134, & 179, 45,157, 222,199,110, 205,132,127, 216,177,115, & 215,170,117, 201,118,131, 213,163,119, 212,159,120, & 207,138,125, 182, 61,150, 206,135,126, 221,195,111, & 199,111,133, 220,191,112, 217,181,114, 248,248,102, & 189, 84,142, 193, 94,139, 195,101,136, 179, 5,177, & 211,156,120, 209,145,123, 194, 98,138, 200,115,132, & 203,125,129, 187, 76,145, 181, 57,152, 179, 40,159 & ], shape(budaS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: bukavu=reshape( [ & 26, 51, 51, 26, 52, 53, 26, 53, 55, 26, 53, 57, & 27, 54, 59, 27, 55, 61, 27, 56, 63, 27, 57, 65, & 27, 58, 67, 28, 59, 69, 28, 60, 71, 28, 61, 73, & 28, 62, 76, 29, 62, 78, 29, 63, 80, 29, 64, 82, & 30, 66, 85, 30, 67, 87, 30, 68, 90, 30, 69, 92, & 31, 70, 95, 31, 71, 98, 31, 72,101, 32, 74,104, & 32, 75,107, 32, 76,110, 33, 78,113, 33, 79,117, & 34, 81,120, 34, 82,123, 34, 84,127, 35, 85,130, & 35, 87,134, 36, 89,137, 36, 91,140, 37, 92,143, & 37, 94,146, 38, 96,149, 39, 98,151, 39,100,154, & 40,102,156, 41,104,159, 41,105,161, 42,107,163, & 42,109,166, 43,111,168, 44,113,170, 44,115,173, & 45,117,175, 45,118,177, 46,120,180, 47,122,182, & 47,124,184, 48,126,186, 49,127,189, 50,129,191, & 50,131,192, 52,133,194, 53,135,196, 54,137,197, & 56,138,198, 58,140,198, 59,142,199, 61,144,199, & 63,146,200, 65,147,200, 67,149,200, 69,151,200, & 71,153,200, 73,154,200, 75,156,200, 76,158,201, & 78,160,201, 80,161,201, 82,163,201, 84,165,201, & 86,166,201, 88,168,201, 89,170,201, 91,171,202, & 93,173,202, 95,174,202, 97,176,202, 98,178,202, & 100,179,202, 102,181,202, 104,183,202, 106,184,203, & 107,186,203, 109,187,203, 111,189,203, 113,191,203, & 114,192,203, 116,194,203, 118,195,203, 120,197,204, & 122,199,204, 124,200,204, 127,202,204, 129,204,205, & 132,205,205, 135,207,206, 138,209,207, 142,211,208, & 146,213,209, 149,215,209, 153,217,210, 157,218,211, & 160,220,212, 164,222,213, 168,224,214, 172,226,215, & 175,228,216, 179,230,217, 182,231,218, 186,233,219, & 190,235,220, 193,237,220, 197,239,221, 200,240,222, & 204,242,223, 207,244,224, 211,246,225, 214,247,226, & 218,249,227, 221,251,227, 224,252,228, 228,254,229, & 1, 64, 38, 2, 65, 37, 3, 66, 36, 4, 68, 35, & 5, 69, 34, 6, 70, 33, 7, 71, 32, 8, 73, 31, & 9, 74, 30, 11, 75, 29, 12, 77, 28, 14, 78, 27, & 15, 80, 26, 17, 81, 25, 19, 83, 24, 21, 84, 23, & 23, 86, 22, 26, 88, 21, 28, 89, 20, 31, 91, 19, & 34, 93, 19, 37, 94, 18, 40, 96, 18, 43, 98, 18, & 47, 99, 18, 50,101, 19, 54,102, 19, 57,103, 20, & 61,105, 21, 64,106, 22, 68,107, 23, 71,108, 25, & 75,109, 26, 78,110, 27, 82,111, 29, 85,111, 30, & 88,112, 32, 91,113, 33, 94,113, 35, 97,114, 36, & 100,114, 37, 103,115, 39, 105,115, 40, 108,116, 41, & 111,116, 43, 113,117, 44, 116,117, 45, 118,118, 46, & 120,118, 47, 123,118, 49, 125,119, 50, 127,119, 51, & 130,120, 52, 132,120, 53, 134,120, 54, 136,121, 56, & 139,121, 57, 141,122, 58, 143,122, 59, 145,123, 60, & 147,123, 62, 150,124, 63, 152,124, 64, 154,125, 66, & 156,126, 67, 158,126, 69, 161,127, 71, 163,128, 73, & 165,130, 75, 167,131, 77, 170,132, 79, 172,134, 82, & 174,135, 84, 176,137, 87, 178,139, 90, 180,141, 93, & 182,143, 96, 183,145, 99, 185,147,102, 187,149,105, & 188,151,108, 190,153,111, 191,156,114, 192,158,118, & 194,160,121, 195,162,124, 196,165,127, 197,167,130, & 198,169,133, 200,172,137, 201,174,140, 202,176,143, & 203,178,146, 204,181,150, 205,183,153, 206,185,156, & 207,187,160, 208,189,163, 210,192,166, 211,194,170, & 212,196,173, 213,198,176, 214,200,180, 215,202,183, & 216,204,186, 217,205,190, 218,207,193, 219,209,196, & 220,211,199, 221,212,202, 222,214,205, 223,215,208, & 224,217,210, 225,218,213, 226,219,216, 227,221,219, & 227,222,221, 228,223,224, 229,225,227, 230,226,229, & 231,227,232, 232,229,235, 233,230,237, 233,231,240, & 234,233,243, 235,234,246, 236,236,249, 237,237,252 & ], shape(bukavu), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: bukavu10=reshape( [ & 26, 51, 51, 34, 81,120, 52,133,194, 102,181,202, & 179,230,217, 19, 83, 24, 105,115, 40, 170,132, 79, & 211,194,170, 237,237,252 & ], shape(bukavu10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: bukavu100=reshape( [ & 26, 51, 51, 26, 53, 57, 27, 55, 61, 27, 58, 67, & 28, 60, 71, 29, 62, 78, 29, 64, 82, 30, 68, 90, & 31, 71, 98, 32, 74,104, 33, 78,113, 34, 81,120, & 35, 85,130, 36, 89,137, 37, 94,146, 39,100,154, & 41,104,159, 42,109,166, 44,113,170, 45,118,177, & 47,124,184, 49,127,189, 52,133,194, 54,137,197, & 59,142,199, 63,146,200, 69,151,200, 75,156,200, & 78,160,201, 84,165,201, 88,168,201, 93,173,202, & 97,176,202, 102,181,202, 107,186,203, 111,189,203, & 116,194,203, 120,197,204, 127,202,204, 132,205,205, & 142,211,208, 153,217,210, 160,220,212, 172,226,215, & 179,230,217, 190,235,220, 197,239,221, 207,244,224, & 218,249,227, 224,252,228, 2, 65, 37, 4, 68, 35, & 7, 71, 32, 11, 75, 29, 14, 78, 27, 19, 83, 24, & 23, 86, 22, 31, 91, 19, 37, 94, 18, 47, 99, 18, & 57,103, 20, 64,106, 22, 75,109, 26, 82,111, 29, & 91,113, 33, 97,114, 36, 105,115, 40, 113,117, 44, & 118,118, 46, 125,119, 50, 130,120, 52, 136,121, 56, & 141,122, 58, 147,123, 62, 154,125, 66, 158,126, 69, & 165,130, 75, 170,132, 79, 176,137, 87, 180,141, 93, & 185,147,102, 190,153,111, 192,158,118, 196,165,127, & 198,169,133, 202,176,143, 205,183,153, 207,187,160, & 211,194,170, 213,198,176, 216,204,186, 218,207,193, & 221,212,202, 224,217,210, 226,219,216, 228,223,224, & 230,226,229, 233,230,237, 234,233,243, 237,237,252 & ], shape(bukavu100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: bukavu25=reshape( [ & 26, 51, 51, 28, 61, 73, 31, 71, 98, 35, 87,134, & 42,107,163, 48,126,186, 63,146,200, 82,163,201, & 102,181,202, 122,199,204, 153,217,210, 193,237,220, & 1, 64, 38, 12, 77, 28, 37, 94, 18, 71,108, 25, & 105,115, 40, 132,120, 53, 154,125, 66, 178,139, 90, & 195,162,124, 206,185,156, 218,207,193, 227,222,221, & 237,237,252 & ], shape(bukavu25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: bukavu50=reshape( [ & 26, 51, 51, 27, 55, 61, 28, 60, 71, 30, 66, 85, & 31, 71, 98, 33, 78,113, 35, 85,130, 37, 94,146, & 41,105,161, 44,115,173, 47,124,184, 52,133,194, & 59,142,199, 71,153,200, 80,161,201, 89,170,201, & 98,178,202, 107,186,203, 118,195,203, 129,204,205, & 146,213,209, 164,222,213, 182,231,218, 204,242,223, & 221,251,227, 3, 66, 36, 8, 73, 31, 17, 81, 25, & 28, 89, 20, 43, 98, 18, 61,105, 21, 78,110, 27, & 97,114, 36, 111,116, 43, 123,118, 49, 134,120, 54, & 145,123, 60, 158,126, 69, 170,132, 79, 180,141, 93, & 188,151,108, 195,162,124, 202,176,143, 207,187,160, & 213,198,176, 218,207,193, 223,215,208, 228,223,224, & 233,230,237, 237,237,252 & ], shape(bukavu50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: cork=reshape( [ & 44, 25, 76, 44, 27, 78, 44, 29, 79, 43, 30, 81, & 43, 32, 83, 43, 34, 84, 43, 35, 86, 43, 37, 87, & 43, 38, 89, 43, 40, 91, 43, 41, 92, 42, 43, 94, & 42, 44, 95, 42, 46, 97, 42, 47, 98, 42, 49,100, & 42, 50,101, 41, 52,103, 41, 54,104, 41, 55,106, & 41, 57,107, 41, 58,109, 40, 60,110, 40, 61,112, & 40, 63,114, 40, 64,115, 40, 66,117, 40, 67,118, & 40, 69,120, 40, 70,121, 40, 72,123, 40, 74,124, & 40, 75,126, 40, 77,127, 41, 79,129, 41, 80,130, & 42, 82,132, 42, 83,133, 43, 85,135, 44, 87,136, & 45, 89,138, 46, 90,139, 47, 92,141, 48, 94,142, & 50, 95,143, 51, 97,145, 53, 99,146, 54,100,147, & 56,102,149, 58,104,150, 60,105,151, 61,107,152, & 63,108,153, 65,110,155, 67,112,156, 69,113,157, & 71,115,158, 73,116,159, 75,118,160, 76,119,161, & 78,121,162, 80,122,163, 82,124,164, 84,125,165, & 86,127,166, 88,128,167, 90,130,168, 92,131,169, & 94,133,170, 96,134,172, 98,136,173, 100,137,174, & 102,139,175, 104,141,176, 106,142,177, 109,144,178, & 111,146,179, 113,147,180, 115,149,182, 117,151,183, & 119,152,184, 122,154,185, 124,156,186, 126,157,187, & 129,159,189, 131,161,190, 133,163,191, 136,164,192, & 138,166,194, 140,168,195, 143,170,196, 145,172,197, & 148,174,199, 150,175,200, 153,177,201, 155,179,203, & 158,181,204, 160,183,205, 163,185,207, 165,187,208, & 168,189,209, 170,191,211, 173,193,212, 176,195,213, & 178,197,215, 181,199,216, 184,201,218, 186,203,219, & 189,205,220, 192,207,222, 194,209,223, 197,211,225, & 200,213,226, 202,215,227, 205,217,229, 208,219,230, & 210,221,231, 213,223,232, 215,225,233, 218,227,234, & 220,229,235, 222,230,236, 224,232,237, 226,233,237, & 227,235,237, 229,236,237, 230,237,237, 230,237,237, & 230,237,236, 230,238,235, 230,238,234, 229,237,232, & 228,237,231, 227,236,229, 226,235,227, 224,234,225, & 222,233,223, 220,232,221, 218,231,219, 216,229,217, & 214,228,214, 212,226,212, 210,225,210, 207,223,207, & 205,222,205, 203,220,203, 200,219,200, 198,217,198, & 196,215,195, 193,214,193, 191,212,191, 188,211,188, & 186,209,186, 183,207,183, 181,206,181, 178,204,178, & 176,202,176, 174,201,173, 171,199,171, 169,197,168, & 166,196,166, 164,194,163, 161,192,161, 159,191,159, & 156,189,156, 154,187,154, 151,186,151, 149,184,149, & 146,183,146, 144,181,144, 142,179,141, 139,178,139, & 137,176,136, 134,174,134, 132,173,132, 130,171,129, & 127,170,127, 125,168,125, 123,167,122, 120,165,120, & 118,163,118, 116,162,115, 113,160,113, 111,159,111, & 109,157,108, 107,156,106, 104,154,104, 102,153,102, & 100,151,100, 98,150, 97, 96,149, 95, 93,147, 93, & 91,146, 91, 89,144, 89, 87,143, 87, 85,141, 85, & 83,140, 82, 81,139, 80, 79,137, 78, 77,136, 76, & 75,134, 74, 73,133, 72, 71,132, 70, 69,130, 68, & 67,129, 66, 65,127, 64, 63,126, 62, 61,125, 60, & 59,123, 58, 57,122, 56, 55,120, 54, 53,119, 52, & 51,117, 50, 49,116, 48, 47,114, 46, 45,112, 44, & 43,111, 42, 42,109, 40, 40,107, 38, 38,106, 37, & 37,104, 35, 35,102, 33, 34,100, 32, 32, 99, 30, & 31, 97, 29, 30, 95, 27, 29, 93, 26, 28, 91, 25, & 27, 89, 23, 26, 88, 22, 25, 86, 21, 24, 84, 20, & 24, 82, 19, 23, 80, 18, 23, 78, 18, 22, 76, 17, & 22, 75, 16, 21, 73, 15, 21, 71, 15, 20, 69, 14, & 20, 67, 13, 19, 65, 13, 19, 64, 12, 19, 62, 12, & 18, 60, 11, 18, 58, 10, 18, 56, 10, 17, 55, 9, & 17, 53, 8, 17, 51, 8, 16, 49, 7, 16, 48, 6, & 16, 46, 5, 16, 44, 5, 15, 43, 4, 15, 41, 3 & ], shape(cork), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: cork10=reshape( [ & 44, 25, 76, 40, 69,120, 73,116,159, 131,161,190, & 202,215,227, 210,225,210, 142,179,141, 79,137, 78, & 28, 91, 25, 15, 41, 3 & ], shape(cork10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: cork100=reshape( [ & 44, 25, 76, 43, 30, 81, 43, 34, 84, 43, 38, 89, & 43, 41, 92, 42, 46, 97, 42, 49,100, 41, 54,104, & 41, 58,109, 40, 61,112, 40, 66,117, 40, 69,120, & 40, 74,124, 40, 77,127, 42, 82,132, 44, 87,136, & 46, 90,139, 50, 95,143, 53, 99,146, 58,104,150, & 63,108,153, 67,112,156, 73,116,159, 76,119,161, & 82,124,164, 86,127,166, 92,131,169, 98,136,173, & 102,139,175, 109,144,178, 113,147,180, 119,152,184, & 124,156,186, 131,161,190, 138,166,194, 143,170,196, & 150,175,200, 155,179,203, 163,185,207, 168,189,209, & 176,195,213, 184,201,218, 189,205,220, 197,211,225, & 202,215,227, 210,221,231, 215,225,233, 222,230,236, & 227,235,237, 230,237,237, 230,238,235, 229,237,232, & 226,235,227, 220,232,221, 216,229,217, 210,225,210, & 205,222,205, 198,217,198, 193,214,193, 186,209,186, & 178,204,178, 174,201,173, 166,196,166, 161,192,161, & 154,187,154, 149,184,149, 142,179,141, 134,174,134, & 130,171,129, 123,167,122, 118,163,118, 111,159,111, & 107,156,106, 100,151,100, 93,147, 93, 89,144, 89, & 83,140, 82, 79,137, 78, 73,133, 72, 69,130, 68, & 63,126, 62, 57,122, 56, 53,119, 52, 47,114, 46, & 43,111, 42, 38,106, 37, 34,100, 32, 31, 97, 29, & 28, 91, 25, 26, 88, 22, 24, 82, 19, 23, 78, 18, & 21, 73, 15, 20, 67, 13, 19, 64, 12, 18, 58, 10, & 17, 55, 9, 16, 49, 7, 16, 46, 5, 15, 41, 3 & ], shape(cork100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: cork25=reshape( [ & 44, 25, 76, 42, 43, 94, 41, 58,109, 40, 75,126, & 48, 94,142, 65,110,155, 86,127,166, 106,142,177, & 131,161,190, 158,181,204, 184,201,218, 213,223,232, & 230,237,236, 218,231,219, 193,214,193, 169,197,168, & 142,179,141, 116,162,115, 93,147, 93, 71,132, 70, & 49,116, 48, 32, 99, 30, 23, 78, 18, 18, 60, 11, & 15, 41, 3 & ], shape(cork25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: cork50=reshape( [ & 44, 25, 76, 43, 34, 84, 43, 41, 92, 42, 50,101, & 41, 58,109, 40, 66,117, 40, 74,124, 42, 82,132, & 47, 92,141, 54,100,147, 63,108,153, 73,116,159, & 82,124,164, 94,133,170, 104,141,176, 115,149,182, & 126,157,187, 138,166,194, 153,177,201, 165,187,208, & 178,197,215, 192,207,222, 205,217,229, 220,229,235, & 229,236,237, 230,238,234, 224,234,225, 212,226,212, & 200,219,200, 188,211,188, 176,202,176, 164,194,163, & 149,184,149, 137,176,136, 125,168,125, 113,160,113, & 102,153,102, 89,144, 89, 79,137, 78, 69,130, 68, & 59,123, 58, 49,116, 48, 38,106, 37, 31, 97, 29, & 26, 88, 22, 23, 78, 18, 20, 69, 14, 18, 58, 10, & 16, 49, 7, 15, 41, 3 & ], shape(cork50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: corkO=reshape( [ & 63, 62, 58, 63, 62, 59, 63, 62, 60, 63, 61, 61, & 62, 61, 62, 62, 61, 63, 62, 61, 64, 62, 61, 65, & 62, 61, 66, 62, 61, 67, 62, 61, 68, 62, 61, 69, & 62, 61, 70, 62, 61, 71, 62, 61, 72, 62, 61, 73, & 62, 61, 75, 62, 61, 76, 62, 62, 77, 62, 62, 79, & 62, 63, 80, 62, 63, 82, 62, 64, 83, 62, 64, 85, & 62, 65, 86, 62, 65, 88, 62, 66, 90, 62, 67, 91, & 62, 68, 93, 62, 69, 95, 63, 70, 97, 63, 71, 98, & 63, 72,100, 64, 73,102, 64, 74,104, 64, 75,106, & 65, 76,108, 65, 78,110, 66, 79,112, 66, 80,114, & 67, 82,116, 68, 83,118, 68, 85,120, 69, 86,122, & 70, 88,124, 71, 89,126, 71, 91,128, 72, 93,130, & 73, 94,132, 74, 96,134, 75, 98,135, 77, 99,137, & 78,101,139, 79,103,141, 80,105,143, 81,106,145, & 83,108,146, 84,110,148, 86,112,150, 87,113,151, & 88,115,153, 90,117,155, 92,119,156, 93,120,158, & 95,122,159, 96,124,161, 98,126,162, 100,127,164, & 101,129,165, 103,131,166, 105,133,168, 106,134,169, & 108,136,171, 110,138,172, 112,140,173, 114,141,174, & 115,143,176, 117,145,177, 119,146,178, 121,148,179, & 123,150,180, 124,151,182, 126,153,183, 128,155,184, & 130,156,185, 132,158,186, 134,160,187, 135,161,188, & 137,163,189, 139,164,190, 141,166,191, 143,167,192, & 144,169,192, 146,171,193, 148,172,194, 150,174,195, & 151,175,195, 153,177,196, 154,178,197, 156,179,197, & 158,181,198, 159,182,198, 161,184,199, 162,185,199, & 163,186,199, 165,187,200, 166,189,200, 167,190,200, & 168,191,200, 169,192,200, 170,193,200, 171,194,200, & 172,195,200, 173,196,200, 174,197,199, 174,198,199, & 175,198,199, 175,199,198, 176,200,197, 176,200,197, & 176,201,196, 176,201,195, 176,202,194, 176,202,193, & 176,202,192, 176,202,191, 176,202,190, 175,203,189, & 175,203,188, 174,202,187, 173,202,185, 173,202,184, & 172,202,182, 171,202,181, 170,201,179, 169,201,178, & 168,200,176, 167,200,175, 166,199,173, 165,199,171, & 163,198,170, 162,197,168, 161,196,166, 159,196,164, & 158,195,163, 156,194,161, 155,193,159, 153,192,157, & 152,191,155, 150,190,153, 149,189,151, 147,188,149, & 145,187,147, 144,186,145, 142,185,143, 140,183,141, & 139,182,139, 137,181,137, 135,180,135, 134,178,133, & 132,177,131, 130,176,129, 128,174,127, 127,173,125, & 125,172,123, 123,170,121, 122,169,119, 120,167,117, & 118,166,115, 117,164,113, 115,163,111, 113,161,108, & 112,159,106, 110,158,104, 108,156,102, 107,154,100, & 105,153, 98, 104,151, 96, 102,149, 94, 101,148, 92, & 99,146, 90, 98,144, 88, 96,142, 86, 95,141, 84, & 94,139, 82, 92,137, 80, 91,135, 78, 90,134, 76, & 89,132, 74, 87,130, 73, 86,128, 71, 85,127, 69, & 84,125, 68, 83,123, 66, 82,121, 65, 81,120, 63, & 80,118, 62, 79,116, 60, 79,115, 59, 78,113, 58, & 77,111, 56, 76,110, 55, 76,108, 54, 75,107, 53, & 74,105, 52, 74,104, 51, 73,102, 50, 73,101, 50, & 72,100, 49, 72, 98, 48, 71, 97, 48, 71, 96, 47, & 70, 94, 47, 70, 93, 46, 70, 92, 46, 69, 91, 45, & 69, 89, 45, 69, 88, 45, 69, 87, 45, 68, 86, 44, & 68, 85, 44, 68, 84, 44, 68, 83, 44, 67, 82, 44, & 67, 81, 44, 67, 80, 44, 67, 79, 44, 67, 79, 44, & 66, 78, 45, 66, 77, 45, 66, 76, 45, 66, 75, 45, & 66, 75, 46, 66, 74, 46, 66, 73, 46, 65, 72, 47, & 65, 72, 47, 65, 71, 47, 65, 71, 48, 65, 70, 48, & 65, 69, 49, 65, 69, 49, 65, 68, 50, 64, 68, 50, & 64, 67, 51, 64, 67, 51, 64, 66, 52, 64, 66, 52, & 64, 65, 53, 64, 65, 54, 64, 64, 54, 63, 64, 55, & 63, 63, 56, 63, 63, 56, 63, 63, 57, 63, 62, 58 & ], shape(corkO), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: corkO10=reshape( [ & 63, 62, 58, 62, 68, 93, 84,110,148, 132,158,186, & 173,196,200, 161,196,166, 115,163,111, 79,115, 59, & 67, 79, 44, 63, 62, 58 & ], shape(corkO10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: corkO100=reshape( [ & 63, 62, 58, 63, 61, 61, 62, 61, 63, 62, 61, 66, & 62, 61, 68, 62, 61, 71, 62, 61, 73, 62, 62, 77, & 62, 63, 82, 62, 64, 85, 62, 66, 90, 62, 68, 93, & 63, 71, 98, 64, 73,102, 65, 76,108, 66, 80,114, & 68, 83,118, 70, 88,124, 71, 91,128, 74, 96,134, & 78,101,139, 80,105,143, 84,110,148, 87,113,151, & 92,119,156, 95,122,159, 100,127,164, 105,133,168, & 108,136,171, 114,141,174, 117,145,177, 123,150,180, & 126,153,183, 132,158,186, 137,163,189, 141,166,191, & 146,171,193, 150,174,195, 154,178,197, 158,181,198, & 162,185,199, 166,189,200, 168,191,200, 171,194,200, & 173,196,200, 175,198,199, 176,200,197, 176,201,195, & 176,202,192, 176,202,190, 174,202,187, 173,202,184, & 170,201,179, 167,200,175, 165,199,171, 161,196,166, & 158,195,163, 153,192,157, 150,190,153, 145,187,147, & 140,183,141, 137,181,137, 132,177,131, 128,174,127, & 123,170,121, 120,167,117, 115,163,111, 110,158,104, & 107,154,100, 102,149, 94, 99,146, 90, 95,141, 84, & 92,137, 80, 89,132, 74, 85,127, 69, 83,123, 66, & 80,118, 62, 79,115, 59, 76,110, 55, 75,107, 53, & 73,102, 50, 72, 98, 48, 71, 96, 47, 70, 92, 46, & 69, 89, 45, 68, 86, 44, 68, 83, 44, 67, 81, 44, & 67, 79, 44, 66, 77, 45, 66, 75, 46, 66, 73, 46, & 65, 71, 47, 65, 69, 49, 65, 68, 50, 64, 67, 51, & 64, 66, 52, 64, 64, 54, 63, 63, 56, 63, 62, 58 & ], shape(corkO100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: corkO25=reshape( [ & 63, 62, 58, 62, 61, 69, 62, 63, 82, 63, 72,100, & 69, 86,122, 79,103,141, 95,122,159, 112,140,173, & 132,158,186, 151,175,195, 166,189,200, 175,199,198, & 175,203,188, 166,199,173, 150,190,153, 134,178,133, & 115,163,111, 98,144, 88, 85,127, 69, 76,108, 54, & 70, 93, 46, 67, 82, 44, 66, 73, 46, 64, 67, 51, & 63, 62, 58 & ], shape(corkO25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: corkO50=reshape( [ & 63, 62, 58, 62, 61, 63, 62, 61, 68, 62, 61, 75, & 62, 63, 82, 62, 66, 90, 63, 71, 98, 65, 76,108, & 68, 85,120, 72, 93,130, 78,101,139, 84,110,148, & 92,119,156, 101,129,165, 110,138,172, 119,146,178, & 128,155,184, 137,163,189, 148,172,194, 156,179,197, & 163,186,199, 169,192,200, 174,197,199, 176,201,196, & 176,202,191, 173,202,185, 169,201,178, 162,197,168, & 155,193,159, 147,188,149, 139,182,139, 130,176,129, & 120,167,117, 112,159,106, 104,151, 96, 96,142, 86, & 90,134, 76, 83,123, 66, 79,115, 59, 75,107, 53, & 72,100, 49, 70, 93, 46, 68, 86, 44, 67, 81, 44, & 66, 77, 45, 66, 73, 46, 65, 70, 48, 64, 67, 51, & 64, 64, 54, 63, 62, 58 & ], shape(corkO50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: davos=reshape( [ & 0, 5, 74, 0, 7, 76, 0, 9, 77, 0, 11, 79, & 1, 12, 80, 1, 14, 81, 2, 15, 83, 2, 16, 84, & 3, 18, 86, 4, 19, 87, 4, 20, 89, 5, 22, 90, & 5, 23, 91, 6, 24, 93, 7, 26, 94, 7, 27, 96, & 8, 28, 97, 9, 30, 98, 10, 31,100, 11, 32,101, & 11, 34,103, 12, 35,104, 13, 36,105, 14, 38,107, & 14, 39,108, 15, 40,109, 16, 42,111, 17, 43,112, & 17, 44,113, 18, 46,115, 19, 47,116, 19, 48,117, & 20, 50,119, 21, 51,120, 22, 52,121, 23, 54,122, & 23, 55,124, 24, 56,125, 25, 58,126, 26, 59,127, & 26, 60,128, 27, 62,130, 28, 63,131, 29, 64,132, & 30, 65,133, 30, 67,134, 31, 68,135, 32, 69,136, & 33, 71,137, 34, 72,138, 35, 73,139, 35, 74,140, & 36, 76,141, 37, 77,142, 38, 78,143, 39, 79,144, & 40, 81,144, 41, 82,145, 42, 83,146, 42, 84,147, & 43, 86,147, 44, 87,148, 45, 88,149, 46, 89,149, & 47, 90,150, 48, 91,151, 49, 92,151, 50, 94,152, & 51, 95,152, 52, 96,153, 53, 97,153, 54, 98,154, & 55, 99,154, 56,100,154, 57,101,155, 58,102,155, & 58,103,155, 59,104,156, 60,105,156, 61,106,156, & 62,107,156, 63,108,157, 64,109,157, 65,110,157, & 66,111,157, 67,112,157, 68,112,157, 69,113,157, & 70,114,157, 71,115,157, 72,116,157, 73,117,157, & 74,118,157, 75,118,157, 76,119,157, 77,120,157, & 78,121,157, 79,121,157, 80,122,156, 81,123,156, & 82,124,156, 83,124,156, 84,125,156, 85,126,155, & 86,127,155, 86,127,155, 87,128,155, 88,129,154, & 89,129,154, 90,130,154, 91,131,153, 92,131,153, & 93,132,153, 94,133,152, 95,133,152, 96,134,152, & 97,134,151, 98,135,151, 99,136,151, 100,136,150, & 101,137,150, 101,138,149, 102,138,149, 103,139,149, & 104,139,148, 105,140,148, 106,141,147, 107,141,147, & 108,142,147, 109,142,146, 110,143,146, 111,144,145, & 112,144,145, 113,145,145, 114,145,144, 115,146,144, & 116,147,143, 116,147,143, 117,148,143, 118,149,142, & 119,149,142, 120,150,141, 121,150,141, 122,151,141, & 123,152,140, 124,152,140, 125,153,140, 126,154,139, & 127,154,139, 128,155,139, 129,156,138, 130,157,138, & 131,157,138, 132,158,137, 134,159,137, 135,160,137, & 136,160,137, 137,161,136, 138,162,136, 139,163,136, & 140,163,136, 141,164,136, 143,165,136, 144,166,135, & 145,167,135, 146,168,135, 147,169,135, 149,170,135, & 150,171,135, 151,172,135, 153,173,136, 154,174,136, & 155,175,136, 157,176,136, 158,177,136, 160,178,137, & 161,179,137, 163,180,137, 164,182,138, 166,183,138, & 168,184,139, 169,185,139, 171,187,140, 173,188,140, & 174,189,141, 176,191,142, 178,192,143, 180,193,144, & 182,195,145, 184,196,146, 185,198,147, 187,199,148, & 189,201,149, 191,202,150, 193,204,152, 195,205,153, & 197,207,155, 199,208,156, 201,210,158, 203,211,159, & 205,213,161, 207,214,162, 208,216,164, 210,217,166, & 212,219,168, 214,220,169, 216,222,171, 217,223,173, & 219,224,175, 221,226,177, 222,227,179, 224,228,181, & 225,229,182, 227,231,184, 228,232,186, 230,233,188, & 231,234,190, 232,235,192, 234,236,194, 235,237,196, & 236,238,198, 237,239,199, 238,239,201, 239,240,203, & 240,241,205, 241,242,207, 242,242,208, 243,243,210, & 243,244,212, 244,244,214, 245,245,215, 245,246,217, & 246,246,219, 247,247,221, 247,247,222, 248,248,224, & 248,248,225, 249,249,227, 249,249,229, 250,249,230, & 250,250,232, 251,250,233, 251,251,235, 251,251,236, & 252,251,238, 252,252,240, 252,252,241, 252,252,243, & 253,253,244, 253,253,246, 253,253,247, 254,253,249, & 254,254,250, 254,254,252, 254,254,253, 254,254,254 & ], shape(davos), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: davos10=reshape( [ & 0, 5, 74, 17, 44,113, 41, 82,145, 67,112,157, & 94,133,152, 121,150,141, 153,173,136, 201,210,158, & 243,243,210, 254,254,254 & ], shape(davos10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: davos100=reshape( [ & 0, 5, 74, 0, 11, 79, 1, 14, 81, 3, 18, 86, & 4, 20, 89, 6, 24, 93, 7, 27, 96, 10, 31,100, & 12, 35,104, 14, 38,107, 16, 42,111, 17, 44,113, & 19, 48,117, 21, 51,120, 23, 55,124, 26, 59,127, & 27, 62,130, 30, 65,133, 31, 68,135, 34, 72,138, & 36, 76,141, 38, 78,143, 41, 82,145, 42, 84,147, & 45, 88,149, 47, 90,150, 50, 94,152, 53, 97,153, & 55, 99,154, 58,102,155, 59,104,156, 62,107,156, & 64,109,157, 67,112,157, 70,114,157, 72,116,157, & 75,118,157, 77,120,157, 80,122,156, 82,124,156, & 85,126,155, 87,128,155, 89,129,154, 92,131,153, & 94,133,152, 97,134,151, 99,136,151, 101,138,149, & 104,139,148, 106,141,147, 109,142,146, 111,144,145, & 114,145,144, 116,147,143, 118,149,142, 121,150,141, & 123,152,140, 126,154,139, 128,155,139, 131,157,138, & 135,160,137, 137,161,136, 140,163,136, 143,165,136, & 146,168,135, 149,170,135, 153,173,136, 157,176,136, & 160,178,137, 164,182,138, 168,184,139, 173,188,140, & 176,191,142, 182,195,145, 187,199,148, 191,202,150, & 197,207,155, 201,210,158, 207,214,162, 210,217,166, & 216,222,171, 221,226,177, 224,228,181, 228,232,186, & 231,234,190, 235,237,196, 238,239,201, 240,241,205, & 243,243,210, 244,244,214, 246,246,219, 247,247,222, & 249,249,227, 250,250,232, 251,251,235, 252,252,240, & 252,252,243, 253,253,247, 254,254,250, 254,254,254 & ], shape(davos100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: davos25=reshape( [ & 0, 5, 74, 5, 22, 90, 12, 35,104, 20, 50,119, & 29, 64,132, 37, 77,142, 47, 90,150, 57,101,155, & 67,112,157, 78,121,157, 87,128,155, 98,135,151, & 108,142,147, 117,148,143, 128,155,139, 139,163,136, & 153,173,136, 169,185,139, 187,199,148, 208,216,164, & 227,231,184, 239,240,203, 247,247,222, 252,251,238, & 254,254,254 & ], shape(davos25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: davos50=reshape( [ & 0, 5, 74, 1, 14, 81, 4, 20, 89, 8, 28, 97, & 12, 35,104, 16, 42,111, 19, 48,117, 23, 55,124, & 28, 63,131, 32, 69,136, 36, 76,141, 41, 82,145, & 45, 88,149, 51, 95,152, 56,100,154, 60,105,156, & 65,110,157, 70,114,157, 76,119,157, 81,123,156, & 86,127,155, 90,130,154, 95,133,152, 101,137,150, & 105,140,148, 110,143,146, 115,146,144, 120,150,141, & 125,153,140, 130,157,138, 136,160,137, 141,164,136, & 149,170,135, 155,175,136, 163,180,137, 171,187,140, & 180,193,144, 191,202,150, 201,210,158, 210,217,166, & 219,224,175, 227,231,184, 235,237,196, 240,241,205, & 244,244,214, 247,247,222, 250,249,230, 252,252,240, & 253,253,247, 254,254,254 & ], shape(davos50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: davosS=reshape( [ & 0, 5, 74, 253,253,244, 104,139,148, 178,192,143, & 45, 88,149, 232,235,192, 19, 48,117, 75,118,157, & 135,160,137, 154,174,136, 90,130,154, 118,149,142, & 60,105,156, 7, 27, 96, 32, 69,136, 207,214,162, & 246,246,219, 144,166,135, 53, 97,153, 14, 38,107, & 221,226,177, 126,154,139, 26, 59,127, 83,124,156, & 250,250,232, 191,202,150, 241,242,207, 3, 18, 86, & 67,112,157, 98,135,151, 166,183,138, 39, 79,144, & 111,144,145, 252,251,238, 237,239,199, 130,157,138, & 86,127,155, 57,101,155, 160,178,137, 199,208,156, & 1, 12, 80, 11, 32,101, 49, 92,151, 214,220,169, & 122,151,141, 248,248,225, 23, 54,122, 115,146,144, & 35, 74,140, 17, 43,112, 227,231,184, 94,133,152, & 71,115,157, 29, 64,132, 79,121,157, 139,163,136, & 149,170,135, 63,108,157, 101,138,149, 5, 22, 90, & 42, 83,146, 108,142,147, 173,188,140, 184,196,146, & 243,244,212, 12, 35,104, 239,240,203, 58,103,155, & 128,155,139, 77,120,157, 249,249,229, 169,185,139, & 230,233,188, 120,150,141, 146,168,135, 69,113,157, & 34, 72,138, 18, 46,115, 27, 62,130, 247,247,222, & 2, 15, 83, 224,228,181, 106,141,147, 195,205,153, & 88,129,154, 65,110,157, 163,180,137, 73,117,157, & 116,147,143, 235,237,196, 210,217,166, 37, 77,142, & 85,126,155, 203,211,159, 21, 51,120, 151,172,135, & 217,223,173, 96,134,152, 113,145,145, 187,199,148 & ], shape(davosS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: devon=reshape( [ & 44, 26, 76, 44, 27, 77, 44, 28, 78, 43, 28, 79, & 43, 29, 80, 43, 30, 81, 43, 31, 82, 43, 32, 83, & 43, 33, 84, 43, 34, 85, 43, 35, 86, 43, 36, 87, & 43, 37, 88, 43, 38, 88, 43, 39, 89, 42, 40, 90, & 42, 41, 91, 42, 41, 92, 42, 42, 93, 42, 43, 94, & 42, 44, 95, 42, 45, 96, 42, 46, 97, 42, 47, 98, & 41, 48, 99, 41, 49,100, 41, 50,101, 41, 51,102, & 41, 52,103, 41, 53,104, 41, 54,105, 41, 55,106, & 41, 56,106, 40, 57,107, 40, 57,108, 40, 58,109, & 40, 59,110, 40, 60,111, 40, 61,112, 40, 62,113, & 40, 63,114, 40, 64,115, 39, 65,116, 39, 66,117, & 39, 67,118, 39, 68,120, 39, 69,121, 39, 70,122, & 39, 71,123, 39, 72,124, 39, 73,125, 39, 74,126, & 39, 76,127, 39, 77,129, 39, 78,130, 39, 79,131, & 39, 80,132, 39, 81,134, 39, 82,135, 39, 83,136, & 40, 84,138, 40, 85,139, 40, 86,140, 40, 87,142, & 41, 88,143, 41, 89,144, 41, 90,146, 42, 91,147, & 42, 92,149, 43, 93,150, 43, 93,152, 44, 94,153, & 44, 95,154, 45, 96,156, 46, 97,157, 46, 98,159, & 47, 98,160, 48, 99,162, 48,100,163, 49,101,164, & 50,101,166, 50,102,167, 51,103,169, 52,104,170, & 53,104,171, 54,105,173, 55,106,174, 56,106,176, & 57,107,177, 58,108,178, 59,109,180, 60,109,181, & 61,110,183, 62,111,184, 63,112,185, 65,113,187, & 66,114,188, 68,114,189, 69,115,191, 71,116,192, & 72,117,193, 74,118,195, 76,119,196, 77,120,197, & 79,121,198, 81,122,200, 83,123,201, 85,124,202, & 87,124,203, 89,125,204, 91,126,205, 93,127,206, & 95,128,207, 97,129,208, 99,130,209, 101,131,210, & 103,132,211, 105,133,212, 107,134,213, 109,135,214, & 111,136,215, 113,136,216, 115,137,216, 117,138,217, & 119,139,218, 121,140,219, 123,141,220, 125,142,220, & 126,143,221, 128,143,222, 130,144,223, 132,145,223, & 134,146,224, 136,147,225, 138,148,225, 140,149,226, & 141,149,227, 143,150,227, 145,151,228, 147,152,229, & 149,153,229, 150,154,230, 152,155,231, 154,155,231, & 155,156,232, 157,157,232, 158,158,233, 160,159,233, & 162,160,234, 163,161,234, 164,162,235, 166,163,235, & 167,164,236, 168,165,236, 170,165,237, 171,166,237, & 172,167,237, 173,168,238, 174,169,238, 175,170,238, & 176,171,238, 177,172,239, 178,173,239, 179,173,239, & 180,174,239, 181,175,240, 182,176,240, 183,177,240, & 184,178,240, 185,179,240, 186,179,241, 186,180,241, & 187,181,241, 188,182,241, 189,183,241, 190,184,242, & 190,185,242, 191,185,242, 192,186,242, 193,187,242, & 194,188,242, 194,189,243, 195,190,243, 196,191,243, & 197,192,243, 198,192,243, 198,193,243, 199,194,244, & 200,195,244, 201,196,244, 202,197,244, 202,198,244, & 203,198,244, 204,199,244, 205,200,245, 206,201,245, & 206,202,245, 207,203,245, 208,204,245, 209,205,245, & 210,205,246, 210,206,246, 211,207,246, 212,208,246, & 213,209,246, 214,210,246, 214,211,247, 215,212,247, & 216,212,247, 217,213,247, 218,214,247, 218,215,247, & 219,216,248, 220,217,248, 221,218,248, 222,219,248, & 222,220,248, 223,220,248, 224,221,249, 225,222,249, & 226,223,249, 227,224,249, 227,225,249, 228,226,250, & 229,227,250, 230,228,250, 231,228,250, 232,229,250, & 232,230,250, 233,231,251, 234,232,251, 235,233,251, & 236,234,251, 237,235,251, 237,236,251, 238,237,252, & 239,238,252, 240,238,252, 241,239,252, 242,240,252, & 242,241,252, 243,242,253, 244,243,253, 245,244,253, & 246,245,253, 247,246,253, 247,247,253, 248,248,254, & 249,249,254, 250,249,254, 251,250,254, 252,251,254, & 252,252,254, 253,253,255, 254,254,255, 255,255,255 & ], shape(devon), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: devon10=reshape( [ & 44, 26, 76, 41, 52,103, 39, 81,134, 54,105,173, & 97,129,208, 152,155,231, 186,179,241, 208,204,245, & 232,229,250, 255,255,255 & ], shape(devon10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: devon100=reshape( [ & 44, 26, 76, 43, 28, 79, 43, 30, 81, 43, 33, 84, & 43, 35, 86, 43, 38, 88, 42, 40, 90, 42, 42, 93, & 42, 45, 96, 42, 47, 98, 41, 50,101, 41, 52,103, & 41, 55,106, 40, 57,107, 40, 59,110, 40, 62,113, & 40, 64,115, 39, 67,118, 39, 69,121, 39, 72,124, & 39, 76,127, 39, 78,130, 39, 81,134, 39, 83,136, & 40, 86,140, 41, 88,143, 42, 91,147, 43, 93,152, & 44, 95,154, 46, 98,159, 48, 99,162, 50,101,166, & 51,103,169, 54,105,173, 57,107,177, 59,109,180, & 62,111,184, 65,113,187, 69,115,191, 72,117,193, & 77,120,197, 83,123,201, 87,124,203, 93,127,206, & 97,129,208, 103,132,211, 107,134,213, 113,136,216, & 119,139,218, 123,141,220, 128,143,222, 132,145,223, & 138,148,225, 143,150,227, 147,152,229, 152,155,231, & 155,156,232, 160,159,233, 163,161,234, 167,164,236, & 171,166,237, 173,168,238, 176,171,238, 178,173,239, & 181,175,240, 183,177,240, 186,179,241, 188,182,241, & 190,184,242, 192,186,242, 194,188,242, 196,191,243, & 198,192,243, 200,195,244, 202,198,244, 204,199,244, & 206,202,245, 208,204,245, 210,206,246, 212,208,246, & 214,211,247, 217,213,247, 218,215,247, 221,218,248, & 222,220,248, 225,222,249, 227,225,249, 229,227,250, & 232,229,250, 233,231,251, 236,234,251, 237,236,251, & 240,238,252, 242,241,252, 244,243,253, 247,246,253, & 248,248,254, 251,250,254, 252,252,254, 255,255,255 & ], shape(devon100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: devon25=reshape( [ & 44, 26, 76, 43, 36, 87, 42, 45, 96, 41, 56,106, & 39, 66,117, 39, 77,129, 41, 88,143, 46, 97,157, & 54,105,173, 66,114,188, 83,123,201, 105,133,212, & 126,143,221, 145,151,228, 163,161,234, 175,170,238, & 186,179,241, 194,189,243, 202,198,244, 211,207,246, & 220,217,248, 228,226,250, 237,236,251, 246,245,253, & 255,255,255 & ], shape(devon25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: devon50=reshape( [ & 44, 26, 76, 43, 30, 81, 43, 35, 86, 42, 41, 91, & 42, 45, 96, 41, 50,101, 41, 55,106, 40, 59,110, & 39, 65,116, 39, 70,122, 39, 76,127, 39, 81,134, & 40, 86,140, 42, 92,149, 45, 96,156, 48,100,163, & 52,104,170, 57,107,177, 63,112,185, 71,116,192, & 79,121,198, 89,125,204, 99,130,209, 111,136,215, & 121,140,219, 130,144,223, 140,149,226, 150,154,230, & 158,158,233, 166,163,235, 172,167,237, 177,172,239, & 183,177,240, 187,181,241, 191,185,242, 195,190,243, & 199,194,244, 204,199,244, 208,204,245, 212,208,246, & 216,212,247, 220,217,248, 225,222,249, 229,227,250, & 233,231,251, 237,236,251, 242,240,252, 247,246,253, & 251,250,254, 255,255,255 & ], shape(devon50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: devonS=reshape( [ & 44, 26, 76, 248,248,254, 119,139,218, 40, 86,140, & 198,192,243, 41, 55,106, 62,111,184, 222,220,248, & 171,166,237, 42, 41, 91, 149,153,229, 89,125,204, & 235,233,251, 186,179,241, 39, 70,122, 48, 99,162, & 210,206,246, 40, 62,113, 74,118,195, 54,105,173, & 43, 33, 84, 134,146,224, 204,199,244, 242,240,252, & 42, 47, 98, 192,186,242, 162,160,234, 178,173,239, & 217,213,247, 228,226,250, 43, 93,150, 39, 78,130, & 105,133,212, 43, 37, 88, 68,114,189, 126,143,221, & 207,203,245, 40, 58,109, 97,129,208, 41, 51,102, & 214,210,246, 58,108,178, 45, 96,156, 39, 66,117, & 43, 29, 80, 245,244,253, 81,122,200, 238,237,252, & 141,149,227, 232,229,250, 155,156,232, 39, 82,135, & 189,183,241, 201,196,244, 182,176,240, 50,102,167, & 226,223,249, 195,190,243, 167,164,236, 39, 73,125, & 42, 43, 94, 41, 90,146, 175,170,238, 111,136,215, & 220,217,248, 93,127,206, 44, 28, 78, 49,101,164, & 123,141,220, 41, 88,143, 190,185,242, 233,231,251, & 152,155,231, 40, 84,138, 237,235,251, 43, 39, 89, & 173,168,238, 240,238,252, 115,137,216, 243,242,253, & 39, 80,132, 130,144,223, 218,215,247, 40, 64,115, & 206,201,245, 41, 53,104, 71,116,192, 212,208,246, & 184,178,240, 85,124,202, 158,158,233, 42, 45, 96, & 39, 76,127, 43, 31, 82, 215,212,247, 43, 35, 86, & 145,151,228, 40, 60,111, 164,162,235, 187,181,241 & ], shape(devonS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: fes=reshape( [ & 13, 13, 13, 15, 15, 15, 18, 18, 18, 20, 20, 20, & 22, 22, 22, 24, 24, 24, 25, 25, 25, 27, 27, 27, & 29, 29, 29, 31, 31, 31, 33, 33, 33, 34, 34, 34, & 36, 36, 36, 38, 38, 38, 40, 40, 40, 41, 41, 41, & 43, 43, 43, 45, 45, 45, 46, 46, 46, 48, 48, 48, & 50, 50, 50, 52, 52, 52, 53, 53, 53, 55, 55, 55, & 57, 57, 57, 59, 59, 59, 60, 60, 60, 62, 62, 62, & 64, 64, 64, 65, 65, 65, 67, 67, 67, 69, 69, 69, & 70, 70, 70, 72, 72, 72, 73, 73, 73, 75, 75, 75, & 77, 77, 77, 78, 78, 78, 80, 80, 80, 82, 82, 82, & 83, 83, 83, 85, 85, 85, 86, 86, 86, 88, 88, 88, & 89, 89, 89, 91, 91, 91, 92, 92, 92, 94, 94, 94, & 96, 96, 96, 97, 97, 97, 99, 99, 99, 100,100,100, & 101,101,101, 103,103,103, 104,104,104, 106,106,106, & 107,107,107, 109,109,109, 110,110,110, 112,112,112, & 113,113,113, 114,114,114, 116,116,116, 117,117,117, & 119,119,119, 120,120,120, 121,121,121, 123,123,123, & 124,124,124, 126,126,126, 127,127,127, 129,129,129, & 130,130,130, 132,132,132, 133,133,133, 135,135,135, & 136,136,136, 138,138,138, 139,139,139, 141,141,141, & 142,142,142, 144,144,144, 146,146,146, 147,147,147, & 149,149,149, 151,151,151, 153,153,153, 154,154,154, & 156,156,156, 158,158,158, 160,160,160, 161,161,161, & 163,163,163, 165,165,165, 167,167,167, 169,169,169, & 171,171,171, 173,173,173, 175,175,175, 177,177,177, & 179,179,179, 181,181,181, 183,183,183, 185,185,185, & 187,187,187, 189,189,189, 191,191,191, 193,193,193, & 195,195,195, 197,197,197, 200,200,200, 202,202,202, & 204,204,204, 206,206,206, 209,209,209, 211,211,211, & 213,213,213, 216,216,216, 218,218,218, 221,221,221, & 223,223,223, 226,226,226, 228,228,228, 231,231,231, & 233,233,233, 236,236,236, 238,238,238, 241,241,241, & 2, 64, 38, 5, 65, 38, 9, 66, 37, 12, 67, 36, & 15, 68, 35, 18, 70, 35, 21, 71, 34, 24, 72, 34, & 27, 73, 33, 30, 74, 33, 33, 75, 32, 36, 76, 32, & 39, 78, 32, 43, 79, 32, 46, 80, 32, 49, 81, 32, & 52, 82, 32, 55, 83, 32, 58, 84, 32, 61, 85, 32, & 63, 85, 33, 66, 86, 33, 69, 87, 34, 72, 88, 34, & 74, 89, 34, 77, 89, 35, 80, 90, 35, 82, 91, 36, & 85, 91, 36, 87, 92, 37, 90, 93, 37, 92, 93, 38, & 94, 94, 38, 97, 94, 38, 99, 95, 39, 101, 96, 39, & 104, 96, 40, 106, 97, 40, 108, 97, 41, 111, 98, 41, & 113, 98, 41, 115, 99, 42, 117,100, 42, 120,100, 43, & 122,101, 43, 124,101, 44, 127,102, 44, 129,103, 45, & 131,103, 45, 134,104, 46, 136,104, 46, 139,105, 47, & 141,106, 47, 144,107, 48, 146,107, 48, 149,108, 49, & 151,109, 50, 154,110, 51, 156,111, 52, 159,112, 53, & 161,113, 55, 164,115, 56, 166,116, 58, 168,118, 60, & 171,119, 62, 173,121, 64, 175,123, 66, 177,125, 69, & 179,127, 71, 181,129, 74, 182,131, 77, 184,133, 80, & 185,135, 83, 186,137, 86, 188,139, 89, 189,142, 92, & 190,144, 95, 191,146, 98, 192,148,101, 193,151,105, & 194,153,108, 195,155,111, 196,157,114, 197,159,117, & 198,162,120, 198,164,124, 199,166,127, 200,168,130, & 201,171,133, 202,173,137, 203,175,140, 204,177,143, & 205,179,146, 206,182,150, 207,184,153, 208,186,156, & 209,188,160, 210,190,163, 210,192,166, 211,194,170, & 212,196,173, 213,198,176, 214,200,180, 215,202,183, & 216,204,186, 217,206,189, 218,207,193, 219,209,196, & 220,211,199, 221,212,202, 222,214,205, 223,215,207, & 224,217,210, 225,218,213, 226,219,216, 226,221,218, & 227,222,221, 228,223,224, 229,224,226, 230,226,229, & 231,227,232, 232,228,234, 232,230,237, 233,231,240, & 234,233,243, 235,234,246, 236,235,249, 237,237,252 & ], shape(fes), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: fes10=reshape( [ & 13, 13, 13, 64, 64, 64, 109,109,109, 151,151,151, & 206,206,206, 46, 80, 32, 117,100, 42, 182,131, 77, & 211,194,170, 237,237,252 & ], shape(fes10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: fes100=reshape( [ & 13, 13, 13, 20, 20, 20, 24, 24, 24, 29, 29, 29, & 33, 33, 33, 38, 38, 38, 41, 41, 41, 46, 46, 46, & 52, 52, 52, 55, 55, 55, 60, 60, 60, 64, 64, 64, & 69, 69, 69, 72, 72, 72, 77, 77, 77, 82, 82, 82, & 85, 85, 85, 89, 89, 89, 92, 92, 92, 97, 97, 97, & 101,101,101, 104,104,104, 109,109,109, 112,112,112, & 116,116,116, 119,119,119, 123,123,123, 127,127,127, & 130,130,130, 135,135,135, 138,138,138, 142,142,142, & 146,146,146, 151,151,151, 156,156,156, 160,160,160, & 165,165,165, 169,169,169, 175,175,175, 179,179,179, & 185,185,185, 191,191,191, 195,195,195, 202,202,202, & 206,206,206, 213,213,213, 218,218,218, 226,226,226, & 233,233,233, 238,238,238, 5, 65, 38, 12, 67, 36, & 21, 71, 34, 30, 74, 33, 36, 76, 32, 46, 80, 32, & 52, 82, 32, 61, 85, 32, 66, 86, 33, 74, 89, 34, & 82, 91, 36, 87, 92, 37, 94, 94, 38, 99, 95, 39, & 106, 97, 40, 111, 98, 41, 117,100, 42, 124,101, 44, & 129,103, 45, 136,104, 46, 141,106, 47, 149,108, 49, & 154,110, 51, 161,113, 55, 168,118, 60, 173,121, 64, & 179,127, 71, 182,131, 77, 186,137, 86, 189,142, 92, & 192,148,101, 195,155,111, 197,159,117, 199,166,127, & 201,171,133, 204,177,143, 207,184,153, 209,188,160, & 211,194,170, 213,198,176, 216,204,186, 218,207,193, & 221,212,202, 224,217,210, 226,219,216, 228,223,224, & 230,226,229, 232,230,237, 234,233,243, 237,237,252 & ], shape(fes100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: fes25=reshape( [ & 13, 13, 13, 34, 34, 34, 52, 52, 52, 70, 70, 70, & 88, 88, 88, 103,103,103, 119,119,119, 133,133,133, & 151,151,151, 171,171,171, 191,191,191, 216,216,216, & 2, 64, 38, 33, 75, 32, 66, 86, 33, 92, 93, 38, & 117,100, 42, 144,107, 48, 168,118, 60, 188,139, 89, & 198,164,124, 208,186,156, 218,207,193, 227,222,221, & 237,237,252 & ], shape(fes25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: fes50=reshape( [ & 13, 13, 13, 24, 24, 24, 33, 33, 33, 43, 43, 43, & 52, 52, 52, 60, 60, 60, 69, 69, 69, 77, 77, 77, & 86, 86, 86, 94, 94, 94, 101,101,101, 109,109,109, & 116,116,116, 124,124,124, 132,132,132, 139,139,139, & 147,147,147, 156,156,156, 167,167,167, 177,177,177, & 187,187,187, 197,197,197, 209,209,209, 223,223,223, & 236,236,236, 9, 66, 37, 24, 72, 34, 43, 79, 32, & 58, 84, 32, 72, 88, 34, 85, 91, 36, 97, 94, 38, & 111, 98, 41, 122,101, 43, 134,104, 46, 146,107, 48, & 159,112, 53, 173,121, 64, 182,131, 77, 189,142, 92, & 194,153,108, 198,164,124, 204,177,143, 209,188,160, & 213,198,176, 218,207,193, 223,215,207, 228,223,224, & 232,230,237, 237,237,252 & ], shape(fes50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: glasgow=reshape( [ & 54, 19, 56, 55, 19, 55, 56, 19, 55, 57, 20, 54, & 58, 20, 53, 59, 20, 52, 60, 20, 51, 61, 21, 51, & 62, 21, 50, 63, 21, 49, 64, 21, 48, 64, 22, 47, & 65, 22, 47, 66, 22, 46, 67, 22, 45, 68, 23, 44, & 69, 23, 44, 70, 23, 43, 70, 23, 42, 71, 24, 41, & 72, 24, 41, 73, 24, 40, 74, 24, 39, 75, 25, 38, & 75, 25, 38, 76, 25, 37, 77, 25, 36, 78, 26, 36, & 79, 26, 35, 80, 26, 34, 80, 26, 33, 81, 27, 33, & 82, 27, 32, 83, 27, 31, 84, 27, 30, 85, 28, 30, & 86, 28, 29, 87, 28, 28, 87, 28, 27, 88, 29, 27, & 89, 29, 26, 90, 29, 25, 91, 30, 24, 92, 30, 24, & 93, 30, 23, 94, 31, 22, 95, 31, 21, 96, 32, 20, & 97, 32, 19, 98, 33, 19, 99, 33, 18, 101, 34, 17, & 102, 34, 16, 103, 35, 15, 104, 36, 14, 105, 37, 13, & 106, 37, 12, 107, 38, 11, 108, 39, 11, 108, 40, 10, & 109, 41, 9, 110, 42, 8, 111, 43, 7, 112, 44, 6, & 112, 45, 6, 113, 46, 5, 113, 47, 4, 114, 49, 4, & 114, 50, 3, 115, 51, 3, 115, 52, 3, 115, 53, 2, & 116, 55, 2, 116, 56, 2, 116, 57, 1, 116, 58, 1, & 116, 59, 1, 116, 60, 1, 116, 62, 1, 116, 63, 1, & 117, 64, 1, 117, 65, 0, 117, 66, 0, 117, 67, 0, & 117, 68, 0, 116, 69, 0, 116, 70, 0, 116, 71, 0, & 116, 73, 0, 116, 74, 0, 116, 75, 0, 116, 76, 0, & 116, 77, 0, 116, 78, 1, 116, 79, 1, 116, 80, 1, & 116, 81, 1, 116, 82, 1, 116, 83, 2, 116, 84, 2, & 116, 85, 3, 116, 86, 3, 115, 87, 4, 115, 88, 4, & 115, 89, 5, 115, 90, 6, 115, 91, 7, 115, 92, 8, & 114, 94, 10, 114, 95, 11, 114, 96, 13, 114, 97, 14, & 114, 98, 16, 113, 99, 17, 113,100, 19, 113,101, 21, & 113,102, 23, 112,102, 24, 112,103, 26, 112,104, 28, & 112,105, 30, 111,106, 32, 111,107, 33, 111,108, 35, & 110,109, 37, 110,110, 39, 110,111, 41, 109,112, 43, & 109,112, 45, 109,113, 47, 108,114, 49, 108,115, 50, & 108,116, 52, 107,117, 54, 107,117, 56, 107,118, 58, & 106,119, 60, 106,120, 62, 106,121, 64, 105,122, 66, & 105,122, 68, 105,123, 70, 104,124, 72, 104,125, 74, & 104,125, 76, 103,126, 77, 103,127, 79, 103,128, 81, & 102,129, 83, 102,129, 85, 102,130, 87, 101,131, 89, & 101,132, 91, 101,132, 93, 101,133, 95, 100,134, 97, & 100,135, 99, 100,136,100, 99,136,102, 99,137,104, & 99,138,106, 98,139,108, 98,139,110, 98,140,112, & 97,141,114, 97,142,116, 97,142,118, 97,143,120, & 96,144,121, 96,145,123, 96,146,125, 96,146,127, & 96,147,129, 96,148,131, 95,149,133, 95,149,135, & 96,150,137, 96,151,138, 96,152,140, 96,153,142, & 96,153,144, 97,154,146, 97,155,148, 98,156,150, & 98,157,152, 99,158,154, 100,159,155, 101,159,157, & 102,160,159, 103,161,161, 104,162,163, 105,163,165, & 107,164,166, 108,165,168, 110,165,170, 111,166,171, & 113,167,173, 114,168,175, 116,169,176, 118,170,178, & 119,170,179, 121,171,181, 123,172,183, 125,173,184, & 126,174,185, 128,174,187, 130,175,188, 132,176,190, & 134,177,191, 135,177,193, 137,178,194, 139,179,195, & 141,180,197, 142,180,198, 144,181,200, 146,182,201, & 148,182,202, 149,183,204, 151,184,205, 153,185,206, & 155,185,207, 156,186,209, 158,187,210, 160,187,211, & 161,188,213, 163,189,214, 165,189,215, 166,190,216, & 168,191,218, 170,191,219, 171,192,220, 173,193,221, & 175,193,223, 176,194,224, 178,195,225, 180,195,226, & 181,196,228, 183,197,229, 185,198,230, 187,198,231, & 188,199,233, 190,200,234, 192,200,236, 194,201,237, & 196,202,238, 198,203,240, 200,204,241, 202,204,243, & 204,205,244, 206,206,246, 208,207,247, 210,208,249, & 212,209,250, 215,209,252, 217,210,253, 219,211,255 & ], shape(glasgow), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: glasgow10=reshape( [ & 54, 19, 56, 79, 26, 35, 107, 38, 11, 116, 69, 0, & 113, 99, 17, 104,124, 72, 96,146,125, 116,169,176, & 166,190,216, 219,211,255 & ], shape(glasgow10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: glasgow100=reshape( [ & 54, 19, 56, 57, 20, 54, 59, 20, 52, 62, 21, 50, & 64, 21, 48, 66, 22, 46, 68, 23, 44, 70, 23, 42, & 73, 24, 40, 75, 25, 38, 77, 25, 36, 79, 26, 35, & 81, 27, 33, 83, 27, 31, 86, 28, 29, 88, 29, 27, & 90, 29, 25, 93, 30, 23, 95, 31, 21, 98, 33, 19, & 102, 34, 16, 104, 36, 14, 107, 38, 11, 108, 40, 10, & 111, 43, 7, 112, 45, 6, 114, 49, 4, 115, 52, 3, & 116, 55, 2, 116, 58, 1, 116, 60, 1, 117, 64, 1, & 117, 66, 0, 116, 69, 0, 116, 73, 0, 116, 75, 0, & 116, 78, 1, 116, 80, 1, 116, 83, 2, 116, 85, 3, & 115, 88, 4, 115, 91, 7, 114, 94, 10, 114, 97, 14, & 113, 99, 17, 113,102, 23, 112,103, 26, 111,106, 32, & 110,109, 37, 110,111, 41, 109,113, 47, 108,115, 50, & 107,117, 56, 106,120, 62, 105,122, 66, 104,124, 72, & 104,125, 76, 103,128, 81, 102,129, 85, 101,132, 91, & 100,134, 97, 100,136,100, 99,138,106, 98,139,110, & 97,142,116, 97,143,120, 96,146,125, 96,148,131, & 95,149,135, 96,152,140, 96,153,144, 98,156,150, & 99,158,154, 102,160,159, 105,163,165, 108,165,168, & 113,167,173, 116,169,176, 121,171,181, 125,173,184, & 130,175,188, 135,177,193, 139,179,195, 144,181,200, & 148,182,202, 153,185,206, 158,187,210, 161,188,213, & 166,190,216, 170,191,219, 175,193,223, 178,195,225, & 183,197,229, 188,199,233, 192,200,236, 198,203,240, & 202,204,243, 208,207,247, 212,209,250, 219,211,255 & ], shape(glasgow100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: glasgow25=reshape( [ & 54, 19, 56, 64, 22, 47, 73, 24, 40, 82, 27, 32, & 92, 30, 24, 103, 35, 15, 112, 45, 6, 116, 57, 1, & 116, 69, 0, 116, 81, 1, 115, 91, 7, 112,102, 24, & 109,112, 45, 106,121, 64, 102,129, 85, 99,137,104, & 96,146,125, 97,154,146, 105,163,165, 123,172,183, & 142,180,198, 160,187,211, 178,195,225, 196,202,238, & 219,211,255 & ], shape(glasgow25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: glasgow50=reshape( [ & 54, 19, 56, 59, 20, 52, 64, 21, 48, 69, 23, 44, & 73, 24, 40, 77, 25, 36, 81, 27, 33, 86, 28, 29, & 91, 30, 24, 96, 32, 20, 102, 34, 16, 107, 38, 11, & 111, 43, 7, 114, 50, 3, 116, 56, 2, 116, 62, 1, & 117, 67, 0, 116, 73, 0, 116, 79, 1, 116, 84, 2, & 115, 89, 5, 114, 95, 11, 113,100, 19, 112,105, 30, & 110,110, 39, 108,114, 49, 107,118, 58, 105,123, 70, & 103,127, 79, 101,131, 89, 100,135, 99, 98,139,108, & 97,143,120, 96,147,129, 96,151,138, 97,155,148, & 101,159,157, 108,165,168, 116,169,176, 125,173,184, & 134,177,191, 142,180,198, 153,185,206, 161,188,213, & 170,191,219, 178,195,225, 187,198,231, 198,203,240, & 208,207,247, 219,211,255 & ], shape(glasgow50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: glasgowS=reshape( [ & 54, 19, 56, 219,211,255, 109,112, 45, 112, 45, 6, & 105,163,165, 82, 27, 32, 160,187,211, 116, 81, 1, & 99,138,106, 132,176,190, 104,125, 76, 69, 23, 44, & 97, 32, 19, 114, 98, 16, 187,198,231, 117, 64, 1, & 96,150,137, 112,105, 30, 101,132, 91, 202,204,243, & 115, 89, 5, 106, 37, 12, 173,193,221, 146,182,201, & 118,170,178, 106,119, 60, 116, 55, 2, 116, 73, 0, & 75, 25, 38, 62, 21, 50, 96,144,121, 89, 29, 26, & 98,156,150, 93, 30, 23, 108,116, 52, 72, 24, 41, & 58, 20, 53, 86, 28, 29, 97,141,114, 79, 26, 35, & 101,159,157, 100,135, 99, 102, 34, 16, 116, 77, 0, & 113,102, 23, 114, 50, 3, 153,185,206, 105,122, 68, & 65, 22, 47, 139,179,195, 194,201,237, 116, 59, 1, & 166,190,216, 116, 85, 3, 109, 41, 9, 96,147,129, & 210,208,249, 125,173,184, 110,109, 37, 111,166,171, & 114, 94, 10, 180,195,226, 102,129, 83, 117, 68, 0, & 96,153,142, 116, 83, 2, 80, 26, 33, 97,142,118, & 110,111, 41, 67, 22, 45, 106,121, 64, 116, 62, 1, & 156,186,209, 56, 19, 55, 104, 36, 14, 170,191,219, & 111, 43, 7, 116, 75, 0, 115, 87, 4, 135,177,193, & 101,133, 95, 142,180,198, 74, 24, 39, 99, 33, 18, & 96,146,125, 70, 23, 42, 114,168,175, 99,136,102, & 128,174,187, 95, 31, 21, 108,165,168, 121,171,181, & 183,197,229, 113,100, 19, 108, 39, 11, 116, 70, 0, & 116, 79, 1, 111,107, 33, 115, 91, 7, 95,149,133 & ], shape(glasgowS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: grayC=reshape( [ & 0, 0, 0, 2, 2, 2, 4, 4, 4, 5, 5, 5, & 7, 7, 7, 9, 9, 9, 11, 11, 11, 13, 13, 13, & 14, 14, 14, 15, 15, 15, 17, 17, 17, 18, 18, 18, & 19, 19, 19, 20, 20, 20, 21, 21, 21, 22, 22, 22, & 23, 23, 23, 24, 24, 24, 25, 25, 25, 26, 26, 26, & 27, 27, 27, 28, 28, 28, 29, 29, 29, 30, 30, 30, & 31, 31, 31, 32, 32, 32, 33, 33, 33, 34, 34, 34, & 35, 35, 35, 36, 36, 36, 36, 36, 36, 37, 37, 37, & 38, 38, 38, 39, 39, 39, 40, 40, 40, 41, 41, 41, & 42, 42, 42, 43, 43, 43, 44, 44, 44, 45, 45, 45, & 46, 46, 46, 47, 47, 47, 48, 48, 48, 49, 49, 49, & 49, 49, 49, 50, 50, 50, 51, 51, 51, 52, 52, 52, & 53, 53, 53, 54, 54, 54, 55, 55, 55, 56, 56, 56, & 57, 57, 57, 58, 58, 58, 59, 59, 59, 59, 59, 59, & 60, 60, 60, 61, 61, 61, 62, 62, 62, 63, 63, 63, & 64, 64, 64, 65, 65, 65, 66, 66, 66, 67, 67, 67, & 68, 68, 68, 68, 68, 68, 69, 69, 69, 70, 70, 70, & 71, 71, 71, 72, 72, 72, 73, 73, 73, 74, 74, 74, & 75, 75, 75, 75, 75, 75, 76, 76, 76, 77, 77, 77, & 78, 78, 78, 79, 79, 79, 80, 80, 80, 81, 81, 81, & 81, 81, 81, 82, 82, 82, 83, 83, 83, 84, 84, 84, & 85, 85, 85, 86, 86, 86, 86, 86, 86, 87, 87, 87, & 88, 88, 88, 89, 89, 89, 90, 90, 90, 91, 91, 91, & 91, 91, 91, 92, 92, 92, 93, 93, 93, 94, 94, 94, & 95, 95, 95, 95, 95, 95, 96, 96, 96, 97, 97, 97, & 98, 98, 98, 99, 99, 99, 99, 99, 99, 100,100,100, & 101,101,101, 102,102,102, 103,103,103, 103,103,103, & 104,104,104, 105,105,105, 106,106,106, 106,106,106, & 107,107,107, 108,108,108, 109,109,109, 110,110,110, & 110,110,110, 111,111,111, 112,112,112, 113,113,113, & 113,113,113, 114,114,114, 115,115,115, 116,116,116, & 116,116,116, 117,117,117, 118,118,118, 119,119,119, & 119,119,119, 120,120,120, 121,121,121, 122,122,122, & 122,122,122, 123,123,123, 124,124,124, 125,125,125, & 125,125,125, 126,126,126, 127,127,127, 128,128,128, & 128,128,128, 129,129,129, 130,130,130, 131,131,131, & 132,132,132, 132,132,132, 133,133,133, 134,134,134, & 135,135,135, 136,136,136, 136,136,136, 137,137,137, & 138,138,138, 139,139,139, 140,140,140, 141,141,141, & 142,142,142, 142,142,142, 143,143,143, 144,144,144, & 145,145,145, 146,146,146, 147,147,147, 148,148,148, & 149,149,149, 149,149,149, 150,150,150, 151,151,151, & 152,152,152, 153,153,153, 154,154,154, 155,155,155, & 156,156,156, 157,157,157, 158,158,158, 159,159,159, & 160,160,160, 161,161,161, 162,162,162, 163,163,163, & 164,164,164, 165,165,165, 166,166,166, 167,167,167, & 168,168,168, 169,169,169, 170,170,170, 171,171,171, & 172,172,172, 173,173,173, 174,174,174, 175,175,175, & 176,176,176, 177,177,177, 178,178,178, 179,179,179, & 180,180,180, 181,181,181, 182,182,182, 183,183,183, & 184,184,184, 185,185,185, 187,187,187, 188,188,188, & 189,189,189, 190,190,190, 191,191,191, 192,192,192, & 193,193,193, 195,195,195, 196,196,196, 197,197,197, & 198,198,198, 199,199,199, 200,200,200, 202,202,202, & 203,203,203, 204,204,204, 205,205,205, 206,206,206, & 208,208,208, 209,209,209, 210,210,210, 211,211,211, & 213,213,213, 214,214,214, 215,215,215, 216,216,216, & 218,218,218, 219,219,219, 220,220,220, 222,222,222, & 223,223,223, 224,224,224, 226,226,226, 227,227,227, & 228,228,228, 230,230,230, 231,231,231, 232,232,232, & 234,234,234, 235,235,235, 236,236,236, 238,238,238, & 239,239,239, 241,241,241, 242,242,242, 243,243,243, & 245,245,245, 246,246,246, 248,248,248, 249,249,249, & 251,251,251, 252,252,252, 254,254,254, 255,255,255 & ], shape(grayC), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: grayC10=reshape( [ & 0, 0, 0, 35, 35, 35, 61, 61, 61, 86, 86, 86, & 108,108,108, 130,130,130, 154,154,154, 182,182,182, & 216,216,216, 255,255,255 & ], shape(grayC10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: grayC100=reshape( [ & 0, 0, 0, 5, 5, 5, 9, 9, 9, 14, 14, 14, & 17, 17, 17, 20, 20, 20, 22, 22, 22, 25, 25, 25, & 28, 28, 28, 30, 30, 30, 33, 33, 33, 35, 35, 35, & 37, 37, 37, 39, 39, 39, 42, 42, 42, 45, 45, 45, & 47, 47, 47, 49, 49, 49, 51, 51, 51, 54, 54, 54, & 57, 57, 57, 59, 59, 59, 61, 61, 61, 63, 63, 63, & 66, 66, 66, 68, 68, 68, 70, 70, 70, 73, 73, 73, & 75, 75, 75, 77, 77, 77, 79, 79, 79, 81, 81, 81, & 83, 83, 83, 86, 86, 86, 88, 88, 88, 90, 90, 90, & 92, 92, 92, 94, 94, 94, 96, 96, 96, 98, 98, 98, & 100,100,100, 103,103,103, 104,104,104, 106,106,106, & 108,108,108, 110,110,110, 112,112,112, 114,114,114, & 116,116,116, 118,118,118, 120,120,120, 122,122,122, & 124,124,124, 126,126,126, 128,128,128, 130,130,130, & 132,132,132, 134,134,134, 136,136,136, 138,138,138, & 141,141,141, 142,142,142, 145,145,145, 147,147,147, & 149,149,149, 151,151,151, 154,154,154, 157,157,157, & 159,159,159, 162,162,162, 164,164,164, 167,167,167, & 169,169,169, 172,172,172, 175,175,175, 177,177,177, & 180,180,180, 182,182,182, 185,185,185, 188,188,188, & 191,191,191, 195,195,195, 197,197,197, 200,200,200, & 203,203,203, 206,206,206, 210,210,210, 213,213,213, & 216,216,216, 219,219,219, 223,223,223, 226,226,226, & 230,230,230, 234,234,234, 236,236,236, 241,241,241, & 243,243,243, 248,248,248, 251,251,251, 255,255,255 & ], shape(grayC100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: grayC25=reshape( [ & 0, 0, 0, 18, 18, 18, 28, 28, 28, 38, 38, 38, & 49, 49, 49, 58, 58, 58, 68, 68, 68, 76, 76, 76, & 86, 86, 86, 95, 95, 95, 103,103,103, 111,111,111, & 119,119,119, 127,127,127, 136,136,136, 144,144,144, & 154,154,154, 165,165,165, 175,175,175, 187,187,187, & 199,199,199, 211,211,211, 226,226,226, 239,239,239, & 255,255,255 & ], shape(grayC25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: grayC50=reshape( [ & 0, 0, 0, 9, 9, 9, 17, 17, 17, 23, 23, 23, & 28, 28, 28, 33, 33, 33, 37, 37, 37, 42, 42, 42, & 48, 48, 48, 52, 52, 52, 57, 57, 57, 61, 61, 61, & 66, 66, 66, 71, 71, 71, 75, 75, 75, 80, 80, 80, & 84, 84, 84, 88, 88, 88, 93, 93, 93, 97, 97, 97, & 101,101,101, 105,105,105, 109,109,109, 113,113,113, & 117,117,117, 121,121,121, 125,125,125, 129,129,129, & 133,133,133, 137,137,137, 142,142,142, 146,146,146, & 151,151,151, 156,156,156, 161,161,161, 166,166,166, & 171,171,171, 177,177,177, 182,182,182, 188,188,188, & 193,193,193, 199,199,199, 206,206,206, 213,213,213, & 219,219,219, 226,226,226, 232,232,232, 241,241,241, & 248,248,248, 255,255,255 & ], shape(grayC50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: grayCS=reshape( [ & 7, 7, 7, 249,249,249, 119,119,119, 69, 69, 69, & 173,173,173, 208,208,208, 41, 41, 41, 95, 95, 95, & 143,143,143, 107,107,107, 157,157,157, 27, 27, 27, & 189,189,189, 55, 55, 55, 82, 82, 82, 227,227,227, & 131,131,131, 238,238,238, 113,113,113, 89, 89, 89, & 62, 62, 62, 198,198,198, 19, 19, 19, 165,165,165, & 136,136,136, 101,101,101, 216,216,216, 76, 76, 76, & 181,181,181, 49, 49, 49, 150,150,150, 125,125,125, & 34, 34, 34, 104,104,104, 147,147,147, 128,128,128, & 59, 59, 59, 140,140,140, 222,222,222, 14, 14, 14, & 45, 45, 45, 193,193,193, 23, 23, 23, 66, 66, 66, & 92, 92, 92, 232,232,232, 169,169,169, 37, 37, 37, & 110,110,110, 86, 86, 86, 116,116,116, 73, 73, 73, & 243,243,243, 203,203,203, 177,177,177, 161,161,161, & 98, 98, 98, 30, 30, 30, 51, 51, 51, 79, 79, 79, & 122,122,122, 134,134,134, 185,185,185, 154,154,154, & 211,211,211, 138,138,138, 39, 39, 39, 32, 32, 32, & 17, 17, 17, 60, 60, 60, 129,129,129, 205,205,205, & 87, 87, 87, 64, 64, 64, 25, 25, 25, 235,235,235, & 81, 81, 81, 152,152,152, 71, 71, 71, 84, 84, 84, & 179,179,179, 57, 57, 57, 200,200,200, 43, 43, 43, & 246,246,246, 159,159,159, 99, 99, 99, 214,214,214, & 11, 11, 11, 175,175,175, 219,219,219, 142,142,142, & 167,167,167, 115,115,115, 171,171,171, 21, 21, 21, & 75, 75, 75, 53, 53, 53, 91, 91, 91, 230,230,230 & ], shape(grayCS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: hawaii=reshape( [ & 140, 2,115, 141, 4,114, 141, 6,113, 141, 8,112, & 141, 10,111, 142, 13,110, 142, 14,109, 142, 16,108, & 142, 18,107, 142, 19,106, 143, 21,105, 143, 22,104, & 143, 24,103, 143, 25,102, 143, 26,101, 144, 28,100, & 144, 29, 99, 144, 30, 99, 144, 31, 98, 144, 32, 97, & 144, 33, 96, 145, 35, 95, 145, 36, 94, 145, 37, 93, & 145, 38, 92, 145, 39, 91, 145, 40, 90, 146, 41, 90, & 146, 42, 89, 146, 43, 88, 146, 44, 87, 146, 45, 86, & 146, 46, 85, 146, 47, 84, 147, 48, 84, 147, 49, 83, & 147, 50, 82, 147, 51, 81, 147, 52, 80, 147, 53, 80, & 147, 54, 79, 148, 55, 78, 148, 56, 77, 148, 57, 77, & 148, 58, 76, 148, 59, 75, 148, 60, 74, 148, 61, 74, & 149, 62, 73, 149, 63, 72, 149, 64, 71, 149, 65, 71, & 149, 66, 70, 149, 67, 69, 149, 68, 69, 149, 69, 68, & 150, 70, 67, 150, 71, 66, 150, 72, 66, 150, 73, 65, & 150, 74, 64, 150, 75, 64, 150, 76, 63, 150, 77, 62, & 151, 78, 62, 151, 79, 61, 151, 80, 60, 151, 81, 60, & 151, 82, 59, 151, 83, 58, 151, 83, 58, 151, 84, 57, & 152, 85, 56, 152, 86, 56, 152, 87, 55, 152, 88, 54, & 152, 89, 54, 152, 90, 53, 152, 92, 52, 153, 93, 52, & 153, 94, 51, 153, 95, 50, 153, 96, 50, 153, 97, 49, & 153, 98, 48, 153, 99, 48, 153,100, 47, 154,101, 46, & 154,102, 46, 154,103, 45, 154,104, 44, 154,105, 44, & 154,106, 43, 154,107, 42, 155,108, 42, 155,109, 41, & 155,111, 40, 155,112, 40, 155,113, 39, 155,114, 38, & 155,115, 38, 155,116, 37, 156,117, 36, 156,119, 36, & 156,120, 35, 156,121, 35, 156,122, 34, 156,123, 33, & 156,125, 33, 156,126, 32, 156,127, 32, 156,128, 31, & 157,129, 31, 157,131, 30, 157,132, 30, 157,133, 29, & 157,135, 29, 157,136, 29, 157,137, 28, 157,138, 28, & 157,140, 28, 157,141, 28, 157,142, 28, 157,144, 28, & 156,145, 28, 156,146, 28, 156,148, 28, 156,149, 28, & 156,150, 28, 156,152, 29, 155,153, 29, 155,154, 30, & 155,156, 31, 155,157, 31, 154,159, 32, 154,160, 33, & 154,161, 34, 153,163, 35, 153,164, 36, 152,165, 38, & 152,166, 39, 151,168, 40, 151,169, 42, 150,170, 43, & 149,171, 45, 149,173, 46, 148,174, 48, 147,175, 50, & 147,176, 51, 146,177, 53, 145,179, 55, 145,180, 57, & 144,181, 59, 143,182, 60, 142,183, 62, 141,184, 64, & 140,185, 66, 140,186, 68, 139,187, 70, 138,188, 72, & 137,189, 74, 136,190, 76, 135,190, 78, 134,191, 80, & 133,192, 82, 132,193, 84, 131,194, 87, 130,195, 89, & 130,195, 91, 129,196, 93, 128,197, 95, 127,198, 97, & 126,198, 99, 125,199,101, 124,200,103, 123,201,105, & 122,201,108, 121,202,110, 120,203,112, 119,204,114, & 118,204,116, 117,205,118, 116,206,121, 115,206,123, & 114,207,125, 113,208,127, 112,208,129, 112,209,131, & 111,210,134, 110,210,136, 109,211,138, 108,212,140, & 107,212,142, 106,213,145, 105,214,147, 104,214,149, & 104,215,151, 103,216,153, 102,216,156, 101,217,158, & 100,218,160, 100,218,162, 99,219,165, 98,220,167, & 98,220,169, 97,221,171, 97,222,174, 96,222,176, & 96,223,178, 96,224,180, 95,224,183, 95,225,185, & 95,226,187, 95,226,189, 95,227,192, 95,228,194, & 96,228,196, 96,229,198, 97,229,200, 97,230,202, & 98,231,205, 99,231,207, 100,232,209, 102,232,211, & 103,233,213, 104,233,215, 106,234,217, 108,235,219, & 109,235,220, 111,235,222, 113,236,224, 115,236,226, & 118,237,227, 120,237,229, 122,238,231, 125,238,232, & 127,238,234, 130,239,235, 132,239,236, 135,239,238, & 138,240,239, 141,240,240, 143,240,241, 146,240,243, & 149,241,244, 152,241,245, 154,241,246, 157,241,247, & 160,241,248, 163,241,249, 166,241,249, 168,242,250, & 171,242,251, 174,242,252, 177,242,253, 179,242,253 & ], shape(hawaii), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: hawaii10=reshape( [ & 140, 2,115, 146, 42, 89, 150, 71, 66, 153, 99, 48, & 157,131, 30, 151,169, 42, 128,197, 95, 102,216,156, & 108,235,219, 179,242,253 & ], shape(hawaii10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: hawaii100=reshape( [ & 140, 2,115, 141, 8,112, 142, 13,110, 142, 18,107, & 143, 21,105, 143, 25,102, 144, 28,100, 144, 31, 98, & 145, 35, 95, 145, 37, 93, 145, 40, 90, 146, 42, 89, & 146, 45, 86, 146, 47, 84, 147, 50, 82, 147, 53, 80, & 148, 55, 78, 148, 58, 76, 148, 60, 74, 149, 63, 72, & 149, 66, 70, 149, 68, 69, 150, 71, 66, 150, 73, 65, & 150, 76, 63, 151, 78, 62, 151, 81, 60, 151, 83, 58, & 152, 85, 56, 152, 88, 54, 152, 90, 53, 153, 94, 51, & 153, 96, 50, 153, 99, 48, 154,102, 46, 154,104, 44, & 154,107, 42, 155,109, 41, 155,113, 39, 155,115, 38, & 156,119, 36, 156,122, 34, 156,125, 33, 156,128, 31, & 157,131, 30, 157,135, 29, 157,137, 28, 157,141, 28, & 156,145, 28, 156,148, 28, 156,152, 29, 155,154, 30, & 154,159, 32, 153,163, 35, 152,165, 38, 151,169, 42, & 149,171, 45, 147,175, 50, 146,177, 53, 144,181, 59, & 141,184, 64, 140,186, 68, 137,189, 74, 135,190, 78, & 132,193, 84, 130,195, 89, 128,197, 95, 125,199,101, & 123,201,105, 120,203,112, 118,204,116, 115,206,123, & 113,208,127, 111,210,134, 108,212,140, 106,213,145, & 104,215,151, 102,216,156, 100,218,162, 98,220,167, & 97,222,174, 96,224,180, 95,225,185, 95,227,192, & 96,228,196, 97,230,202, 100,232,209, 103,233,213, & 108,235,219, 111,235,222, 118,237,227, 122,238,231, & 130,239,235, 138,240,239, 143,240,241, 152,241,245, & 157,241,247, 166,241,249, 171,242,251, 179,242,253 & ], shape(hawaii100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: hawaii25=reshape( [ & 140, 2,115, 143, 22,104, 145, 35, 95, 146, 46, 85, & 148, 57, 77, 149, 67, 69, 151, 78, 62, 152, 87, 55, & 153, 99, 48, 155,111, 40, 156,122, 34, 157,136, 29, & 156,150, 28, 153,164, 36, 146,177, 53, 138,188, 72, & 128,197, 95, 117,205,118, 108,212,140, 99,219,165, & 95,226,189, 102,232,211, 122,238,231, 149,241,244, & 179,242,253 & ], shape(hawaii25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: hawaii50=reshape( [ & 140, 2,115, 142, 13,110, 143, 21,105, 144, 29, 99, & 145, 35, 95, 145, 40, 90, 146, 45, 86, 147, 50, 82, & 148, 56, 77, 148, 61, 74, 149, 66, 70, 150, 71, 66, & 150, 76, 63, 151, 82, 59, 152, 86, 56, 152, 92, 52, & 153, 97, 49, 154,102, 46, 155,108, 42, 155,114, 38, & 156,120, 35, 156,126, 32, 157,132, 30, 157,140, 28, & 156,146, 28, 155,153, 29, 154,160, 33, 151,168, 40, & 148,174, 48, 145,180, 57, 140,185, 66, 136,190, 76, & 130,195, 89, 126,198, 99, 121,202,110, 116,206,121, & 112,209,131, 106,213,145, 102,216,156, 98,220,167, & 96,223,178, 95,226,189, 97,230,202, 103,233,213, & 111,235,222, 122,238,231, 135,239,238, 152,241,245, & 166,241,249, 179,242,253 & ], shape(hawaii50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: hawaiiS=reshape( [ & 140, 2,115, 179,242,253, 156,150, 28, 151, 78, 62, & 107,212,142, 146, 46, 85, 137,189, 74, 155,111, 40, & 103,233,213, 122,201,108, 149, 62, 73, 96,223,178, & 149,171, 45, 144, 29, 99, 153, 94, 51, 157,129, 31, & 135,239,238, 147, 54, 79, 96,228,196, 157,241,247, & 157,140, 28, 142, 18,107, 156,120, 35, 150, 70, 67, & 100,218,160, 152, 85, 56, 114,207,125, 130,195, 91, & 144,181, 59, 145, 38, 92, 154,102, 46, 154,161, 34, & 115,236,226, 152,166, 39, 151, 82, 59, 146, 42, 89, & 148, 58, 76, 153, 98, 48, 156,145, 28, 156,125, 33, & 155,156, 31, 118,204,116, 157,135, 29, 141, 10,111, & 143, 24,103, 147,176, 51, 168,242,250, 126,198, 99, & 125,238,232, 152, 89, 54, 154,106, 43, 98,231,205, & 98,220,169, 155,115, 38, 95,226,187, 150, 74, 64, & 140,185, 66, 149, 66, 70, 133,192, 82, 104,215,151, & 144, 33, 96, 147, 50, 82, 111,210,134, 146,240,243, & 108,235,219, 143, 26,101, 149, 64, 71, 135,190, 78, & 152, 92, 52, 147, 52, 80, 149, 68, 69, 152,241,245, & 153,100, 47, 151, 83, 58, 124,200,103, 141, 6,113, & 145, 40, 90, 155,113, 39, 152, 87, 55, 109,211,138, & 112,208,129, 100,232,209, 148,174, 48, 145,179, 55, & 153,164, 36, 97,229,200, 157,137, 28, 156,122, 34, & 139,187, 70, 153, 96, 50, 145, 36, 94, 156,127, 32, & 150, 72, 66, 116,206,121, 95,224,183, 156,148, 28, & 128,197, 95, 151, 80, 60, 154,159, 32, 155,108, 42 & ], shape(hawaiiS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: imola=reshape( [ & 26, 51,179, 26, 52,178, 27, 53,178, 27, 53,177, & 28, 54,177, 28, 55,177, 28, 55,176, 29, 56,176, & 29, 57,176, 30, 57,175, 30, 58,175, 30, 59,175, & 31, 60,174, 31, 60,174, 31, 61,174, 32, 62,173, & 32, 62,173, 32, 63,173, 33, 64,172, 33, 64,172, & 33, 65,172, 34, 66,171, 34, 66,171, 34, 67,171, & 35, 68,170, 35, 68,170, 35, 69,170, 36, 70,169, & 36, 70,169, 36, 71,169, 37, 72,168, 37, 72,168, & 37, 73,168, 38, 74,167, 38, 74,167, 38, 75,167, & 39, 76,166, 39, 76,166, 39, 77,166, 40, 78,165, & 40, 78,165, 40, 79,165, 41, 80,164, 41, 80,164, & 41, 81,164, 42, 82,163, 42, 82,163, 42, 83,163, & 43, 83,162, 43, 84,162, 43, 85,162, 44, 85,161, & 44, 86,161, 44, 87,161, 45, 87,160, 45, 88,160, & 45, 89,160, 46, 89,159, 46, 90,159, 46, 91,159, & 47, 91,158, 47, 92,158, 47, 93,158, 48, 93,157, & 48, 94,157, 48, 95,156, 49, 95,156, 49, 96,156, & 50, 96,155, 50, 97,155, 50, 98,155, 51, 98,154, & 51, 99,154, 52,100,153, 52,100,153, 52,101,152, & 53,101,152, 53,102,152, 54,103,151, 54,103,151, & 55,104,150, 55,104,150, 56,105,149, 56,106,149, & 57,106,148, 57,107,148, 58,107,147, 58,108,147, & 59,108,146, 59,109,146, 60,110,145, 60,110,145, & 61,111,144, 61,111,144, 62,112,143, 62,112,143, & 63,113,142, 64,114,141, 64,114,141, 65,115,140, & 65,115,140, 66,116,139, 66,116,139, 67,117,138, & 68,118,138, 68,118,137, 69,119,137, 69,119,136, & 70,120,136, 70,121,135, 71,121,135, 72,122,134, & 72,123,134, 73,123,133, 74,124,133, 74,125,132, & 75,125,132, 76,126,131, 76,127,131, 77,127,130, & 78,128,130, 78,129,129, 79,129,129, 80,130,129, & 81,131,128, 81,132,128, 82,133,128, 83,133,127, & 84,134,127, 85,135,127, 86,136,126, 86,137,126, & 87,138,126, 88,138,125, 89,139,125, 90,140,125, & 91,141,125, 92,142,124, 92,143,124, 93,144,124, & 94,145,123, 95,146,123, 96,146,123, 97,147,123, & 98,148,122, 99,149,122, 100,150,122, 101,151,122, & 102,152,122, 103,153,121, 103,154,121, 104,155,121, & 105,156,121, 106,157,120, 107,158,120, 108,159,120, & 109,160,120, 110,161,119, 111,162,119, 112,163,119, & 113,164,119, 114,165,118, 115,166,118, 116,167,118, & 117,168,118, 118,169,117, 119,170,117, 120,171,117, & 121,172,117, 122,173,116, 123,174,116, 124,175,116, & 125,176,116, 126,177,115, 127,178,115, 128,179,115, & 129,180,115, 130,181,114, 131,182,114, 132,183,114, & 133,184,114, 134,185,113, 135,186,113, 136,187,113, & 137,188,113, 138,189,112, 139,190,112, 140,191,112, & 141,192,112, 142,193,111, 144,194,111, 145,195,111, & 146,196,110, 147,198,110, 148,199,110, 149,200,110, & 150,201,109, 151,202,109, 152,203,109, 153,204,109, & 155,205,108, 156,206,108, 157,207,108, 158,208,108, & 159,210,107, 161,211,107, 162,212,107, 163,213,107, & 164,214,106, 166,215,106, 167,216,106, 169,217,106, & 170,218,105, 172,219,105, 173,221,105, 175,222,105, & 176,223,104, 178,224,104, 180,225,104, 181,226,104, & 183,227,104, 185,228,104, 187,229,103, 189,230,103, & 191,231,103, 192,232,103, 194,233,103, 196,234,103, & 198,235,103, 200,235,103, 202,236,103, 205,237,102, & 207,238,102, 209,239,102, 211,240,102, 213,240,102, & 215,241,102, 217,242,102, 219,243,102, 221,244,102, & 223,244,102, 226,245,102, 228,246,102, 230,246,102, & 232,247,102, 234,248,102, 236,249,102, 238,249,102, & 240,250,102, 242,251,102, 245,251,102, 247,252,102, & 249,253,102, 251,254,102, 253,254,102, 255,255,102 & ], shape(imola), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: imola10=reshape( [ & 26, 51,179, 36, 70,169, 46, 89,159, 57,107,148, & 73,123,133, 96,146,123, 123,174,116, 152,203,109, & 196,234,103, 255,255,102 & ], shape(imola10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: imola100=reshape( [ & 26, 51,179, 27, 53,177, 28, 55,177, 29, 57,176, & 30, 58,175, 31, 60,174, 32, 62,173, 33, 64,172, & 34, 66,171, 34, 67,171, 35, 69,170, 36, 70,169, & 37, 72,168, 38, 74,167, 39, 76,166, 40, 78,165, & 40, 79,165, 41, 81,164, 42, 82,163, 43, 84,162, & 44, 86,161, 45, 87,160, 46, 89,159, 46, 91,159, & 47, 93,158, 48, 94,157, 49, 96,156, 50, 98,155, & 51, 99,154, 52,101,152, 53,102,152, 55,104,150, & 56,105,149, 57,107,148, 59,108,146, 60,110,145, & 61,111,144, 62,112,143, 64,114,141, 65,115,140, & 67,117,138, 69,119,137, 70,120,136, 72,122,134, & 73,123,133, 75,125,132, 76,127,131, 78,129,129, & 81,131,128, 82,133,128, 85,135,127, 86,137,126, & 89,139,125, 92,142,124, 93,144,124, 96,146,123, & 98,148,122, 101,151,122, 103,153,121, 105,156,121, & 108,159,120, 110,161,119, 113,164,119, 115,166,118, & 118,169,117, 120,171,117, 123,174,116, 126,177,115, & 128,179,115, 131,182,114, 133,184,114, 136,187,113, & 138,189,112, 141,192,112, 145,195,111, 147,198,110, & 150,201,109, 152,203,109, 156,206,108, 158,208,108, & 162,212,107, 166,215,106, 169,217,106, 173,221,105, & 176,223,104, 181,226,104, 187,229,103, 191,231,103, & 196,234,103, 200,235,103, 207,238,102, 211,240,102, & 217,242,102, 223,244,102, 228,246,102, 234,248,102, & 238,249,102, 245,251,102, 249,253,102, 255,255,102 & ], shape(imola100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: imola25=reshape( [ & 26, 51,179, 30, 59,175, 34, 66,171, 37, 73,168, & 41, 80,164, 44, 87,161, 48, 94,157, 52,100,153, & 57,107,148, 63,113,142, 69,119,137, 76,126,131, & 84,134,127, 92,143,124, 103,153,121, 112,163,119, & 123,174,116, 134,185,113, 145,195,111, 157,207,108, & 172,219,105, 189,230,103, 211,240,102, 232,247,102, & 255,255,102 & ], shape(imola25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: imola50=reshape( [ & 26, 51,179, 28, 55,177, 30, 58,175, 32, 62,173, & 34, 66,171, 35, 69,170, 37, 72,168, 39, 76,166, & 41, 80,164, 42, 83,163, 44, 86,161, 46, 89,159, & 47, 93,158, 50, 96,155, 52,100,153, 54,103,151, & 56,106,149, 59,108,146, 62,112,143, 65,115,140, & 68,118,138, 70,121,135, 74,124,133, 78,128,130, & 81,132,128, 86,136,126, 90,140,125, 95,146,123, & 100,150,122, 104,155,121, 109,160,120, 114,165,118, & 120,171,117, 125,176,116, 130,181,114, 135,186,113, & 140,191,112, 147,198,110, 152,203,109, 158,208,108, & 164,214,106, 172,219,105, 181,226,104, 191,231,103, & 200,235,103, 211,240,102, 221,244,102, 234,248,102, & 245,251,102, 255,255,102 & ], shape(imola50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: imolaS=reshape( [ & 26, 51,179, 255,255,102, 84,134,127, 48, 94,157, & 145,195,111, 63,113,142, 189,230,103, 37, 73,168, & 113,164,119, 43, 83,162, 221,244,102, 72,123,134, & 32, 62,173, 163,213,107, 98,148,122, 55,104,150, & 128,179,115, 175,222,105, 45, 89,160, 136,187,113, & 205,237,102, 68,118,138, 59,108,146, 238,249,102, & 91,141,125, 105,156,121, 40, 78,165, 35, 68,170, & 51, 99,154, 29, 57,176, 78,128,130, 153,204,109, & 121,172,117, 70,120,136, 140,191,112, 87,138,126, & 117,168,118, 169,217,106, 102,152,122, 65,115,140, & 61,111,144, 33, 65,172, 230,246,102, 57,106,148, & 53,101,152, 28, 54,177, 94,145,123, 247,252,102, & 44, 86,161, 158,208,108, 36, 70,169, 181,226,104, & 149,200,110, 75,125,132, 39, 76,166, 213,240,102, & 41, 81,164, 31, 60,174, 109,160,120, 132,183,114, & 50, 96,155, 196,234,103, 81,131,128, 47, 91,158, & 124,175,116, 92,143,124, 37, 72,168, 33, 64,172, & 54,103,151, 130,181,114, 76,127,131, 86,136,126, & 31, 61,174, 35, 69,170, 62,112,143, 60,110,145, & 251,254,102, 156,206,108, 126,177,115, 200,235,103, & 89,139,125, 64,114,141, 192,232,103, 47, 93,158, & 42, 82,163, 134,185,113, 49, 95,156, 41, 80,164, & 56,105,149, 58,107,147, 27, 53,178, 50, 98,155, & 147,198,110, 242,251,102, 52,100,153, 119,170,117, & 234,248,102, 100,150,122, 69,119,137, 115,166,118 & ], shape(imolaS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: lajolla=reshape( [ & 25, 25, 0, 26, 26, 1, 27, 26, 1, 28, 26, 1, & 29, 27, 2, 30, 27, 2, 30, 27, 3, 31, 28, 3, & 32, 28, 4, 33, 28, 4, 34, 28, 5, 35, 29, 5, & 36, 29, 6, 36, 29, 7, 37, 30, 7, 38, 30, 8, & 39, 30, 8, 40, 31, 9, 41, 31, 9, 42, 31, 10, & 43, 32, 10, 44, 32, 11, 45, 32, 12, 46, 33, 12, & 47, 33, 13, 48, 33, 13, 49, 34, 14, 50, 34, 15, & 51, 34, 15, 52, 35, 16, 53, 35, 16, 54, 36, 17, & 55, 36, 17, 57, 36, 18, 58, 37, 19, 59, 37, 19, & 60, 38, 20, 61, 38, 20, 63, 38, 21, 64, 39, 22, & 65, 39, 22, 67, 40, 23, 68, 40, 23, 69, 41, 24, & 71, 41, 25, 72, 42, 26, 74, 42, 26, 75, 43, 27, & 77, 43, 28, 78, 44, 29, 80, 44, 29, 81, 45, 30, & 83, 45, 31, 84, 46, 32, 86, 46, 33, 87, 47, 33, & 89, 47, 34, 91, 48, 35, 92, 48, 36, 94, 49, 37, & 96, 50, 38, 97, 50, 39, 99, 51, 40, 101, 51, 41, & 103, 52, 42, 105, 53, 43, 106, 53, 44, 108, 54, 44, & 110, 54, 45, 112, 55, 46, 114, 56, 47, 116, 56, 48, & 118, 57, 49, 120, 57, 50, 121, 58, 51, 123, 59, 52, & 125, 59, 53, 127, 60, 54, 129, 60, 55, 131, 61, 56, & 133, 62, 57, 135, 62, 58, 137, 63, 58, 139, 63, 59, & 141, 64, 60, 143, 64, 61, 146, 65, 62, 148, 65, 62, & 150, 66, 63, 152, 66, 64, 154, 67, 64, 156, 67, 65, & 158, 68, 66, 160, 68, 66, 162, 69, 67, 164, 69, 68, & 166, 70, 68, 168, 70, 69, 171, 71, 69, 173, 71, 70, & 175, 72, 70, 177, 72, 71, 179, 73, 71, 181, 73, 71, & 183, 74, 72, 185, 74, 72, 187, 75, 72, 188, 76, 73, & 190, 76, 73, 192, 77, 73, 194, 77, 74, 196, 78, 74, & 197, 79, 74, 199, 80, 75, 201, 81, 75, 202, 81, 75, & 204, 82, 75, 205, 83, 76, 207, 84, 76, 208, 85, 76, & 209, 86, 76, 210, 88, 76, 212, 89, 77, 213, 90, 77, & 214, 91, 77, 215, 92, 77, 215, 94, 77, 216, 95, 77, & 217, 96, 78, 218, 97, 78, 219, 99, 78, 219,100, 78, & 220,101, 78, 220,103, 78, 221,104, 78, 221,105, 79, & 222,107, 79, 222,108, 79, 223,109, 79, 223,110, 79, & 224,112, 79, 224,113, 79, 224,114, 79, 225,116, 79, & 225,117, 80, 225,118, 80, 225,119, 80, 226,121, 80, & 226,122, 80, 226,123, 80, 227,124, 80, 227,125, 80, & 227,127, 80, 227,128, 80, 228,129, 80, 228,130, 81, & 228,131, 81, 228,133, 81, 229,134, 81, 229,135, 81, & 229,136, 81, 229,137, 81, 230,139, 81, 230,140, 81, & 230,141, 81, 230,142, 81, 230,143, 82, 231,144, 82, & 231,146, 82, 231,147, 82, 231,148, 82, 232,149, 82, & 232,150, 82, 232,151, 82, 232,152, 82, 233,154, 82, & 233,155, 82, 233,156, 82, 233,157, 83, 234,158, 83, & 234,159, 83, 234,161, 83, 234,162, 83, 235,163, 83, & 235,164, 83, 235,165, 83, 235,166, 83, 235,168, 83, & 236,169, 83, 236,170, 84, 236,171, 84, 236,172, 84, & 237,174, 84, 237,175, 84, 237,176, 84, 237,177, 84, & 238,179, 85, 238,180, 85, 238,181, 85, 239,182, 85, & 239,184, 86, 239,185, 86, 239,186, 86, 240,188, 87, & 240,189, 87, 240,190, 88, 241,192, 88, 241,193, 89, & 241,194, 90, 241,196, 90, 242,197, 91, 242,199, 92, & 242,200, 93, 243,202, 95, 243,203, 96, 244,205, 97, & 244,206, 99, 244,208,101, 245,209,103, 245,211,105, & 245,212,107, 246,214,109, 246,215,111, 247,217,113, & 247,218,116, 247,220,119, 248,221,121, 248,223,124, & 248,224,127, 249,226,130, 249,227,132, 250,229,135, & 250,230,138, 250,231,141, 251,232,144, 251,234,147, & 251,235,150, 251,236,153, 252,237,156, 252,239,159, & 252,240,162, 252,241,165, 253,242,168, 253,243,171, & 253,244,174, 253,245,176, 254,246,179, 254,247,182, & 254,248,184, 254,249,187, 254,250,190, 254,251,192, & 255,252,195, 255,253,198, 255,254,200, 255,254,203 & ], shape(lajolla), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: lajolla10=reshape( [ & 25, 25, 0, 51, 34, 15, 91, 48, 35, 143, 64, 61, & 199, 80, 75, 224,114, 79, 231,148, 82, 238,181, 85, & 248,223,124, 255,254,203 & ], shape(lajolla10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: lajolla100=reshape( [ & 25, 25, 0, 28, 26, 1, 30, 27, 2, 32, 28, 4, & 34, 28, 5, 36, 29, 7, 38, 30, 8, 41, 31, 9, & 44, 32, 11, 46, 33, 12, 49, 34, 14, 51, 34, 15, & 54, 36, 17, 57, 36, 18, 60, 38, 20, 64, 39, 22, & 67, 40, 23, 71, 41, 25, 74, 42, 26, 78, 44, 29, & 83, 45, 31, 86, 46, 33, 91, 48, 35, 94, 49, 37, & 99, 51, 40, 103, 52, 42, 108, 54, 44, 114, 56, 47, & 118, 57, 49, 123, 59, 52, 127, 60, 54, 133, 62, 57, & 137, 63, 58, 143, 64, 61, 150, 66, 63, 154, 67, 64, & 160, 68, 66, 164, 69, 68, 171, 71, 69, 175, 72, 70, & 181, 73, 71, 187, 75, 72, 190, 76, 73, 196, 78, 74, & 199, 80, 75, 204, 82, 75, 207, 84, 76, 210, 88, 76, & 214, 91, 77, 215, 94, 77, 218, 97, 78, 219,100, 78, & 221,104, 78, 222,108, 79, 223,110, 79, 224,114, 79, & 225,117, 80, 226,121, 80, 226,123, 80, 227,127, 80, & 228,130, 81, 228,133, 81, 229,136, 81, 230,139, 81, & 230,142, 81, 231,144, 82, 231,148, 82, 232,151, 82, & 233,154, 82, 233,157, 83, 234,159, 83, 235,163, 83, & 235,165, 83, 236,169, 83, 236,172, 84, 237,175, 84, & 238,179, 85, 238,181, 85, 239,185, 86, 240,188, 87, & 241,192, 88, 241,196, 90, 242,199, 92, 243,203, 96, & 244,206, 99, 245,211,105, 246,215,111, 247,218,116, & 248,223,124, 249,226,130, 250,230,138, 251,232,144, & 251,236,153, 252,240,162, 253,242,168, 253,245,176, & 254,247,182, 254,250,190, 255,252,195, 255,254,203 & ], shape(lajolla100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: lajolla25=reshape( [ & 25, 25, 0, 35, 29, 5, 44, 32, 11, 55, 36, 17, & 69, 41, 24, 84, 46, 32, 103, 52, 42, 121, 58, 51, & 143, 64, 61, 166, 70, 68, 187, 75, 72, 205, 83, 76, & 217, 96, 78, 223,109, 79, 226,123, 80, 229,135, 81, & 231,148, 82, 234,161, 83, 236,172, 84, 239,186, 86, & 243,202, 95, 247,217,113, 251,232,144, 253,244,174, & 255,254,203 & ], shape(lajolla25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: lajolla50=reshape( [ & 25, 25, 0, 30, 27, 2, 34, 28, 5, 39, 30, 8, & 44, 32, 11, 49, 34, 14, 54, 36, 17, 60, 38, 20, & 68, 40, 23, 75, 43, 27, 83, 45, 31, 91, 48, 35, & 99, 51, 40, 110, 54, 45, 120, 57, 50, 129, 60, 55, & 139, 63, 59, 150, 66, 63, 162, 69, 67, 173, 71, 70, & 183, 74, 72, 192, 77, 73, 201, 81, 75, 209, 86, 76, & 215, 92, 77, 219, 99, 78, 221,105, 79, 224,113, 79, & 225,119, 80, 227,125, 80, 228,131, 81, 229,137, 81, & 231,144, 82, 232,150, 82, 233,156, 82, 234,162, 83, & 235,168, 83, 237,175, 84, 238,181, 85, 240,188, 87, & 241,194, 90, 243,202, 95, 245,211,105, 247,218,116, & 249,226,130, 251,232,144, 252,239,159, 253,245,176, & 254,250,190, 255,254,203 & ], shape(lajolla50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: lajollaS=reshape( [ & 25, 25, 0, 255,254,203, 217, 96, 78, 103, 52, 42, & 237,174, 84, 55, 36, 17, 229,136, 81, 166, 70, 68, & 247,218,116, 241,194, 90, 133, 62, 57, 77, 43, 28, & 233,155, 82, 225,117, 80, 39, 30, 8, 197, 79, 74, & 252,240,162, 150, 66, 63, 235,164, 83, 183, 74, 72, & 231,146, 82, 250,230,138, 239,184, 86, 32, 28, 4, & 244,206, 99, 227,127, 80, 118, 57, 49, 47, 33, 13, & 222,107, 79, 89, 47, 34, 209, 86, 76, 65, 39, 22, & 254,248,184, 245,212,107, 158, 68, 66, 36, 29, 6, & 125, 59, 53, 141, 64, 60, 214, 91, 77, 224,112, 79, & 234,159, 83, 175, 72, 70, 251,235,150, 83, 45, 31, & 236,169, 83, 248,224,127, 226,122, 80, 242,200, 93, & 29, 27, 2, 220,101, 78, 43, 32, 10, 60, 38, 20, & 190, 76, 73, 96, 50, 38, 230,141, 81, 110, 54, 45, & 238,179, 85, 232,150, 82, 71, 41, 25, 51, 34, 15, & 204, 82, 75, 240,189, 87, 228,131, 81, 253,244,174, & 254,251,192, 179, 73, 71, 114, 56, 47, 230,139, 81, & 86, 46, 33, 231,148, 82, 74, 42, 26, 45, 32, 12, & 251,232,144, 224,114, 79, 194, 77, 74, 49, 34, 14, & 225,119, 80, 53, 35, 16, 106, 53, 44, 63, 38, 21, & 162, 69, 67, 187, 75, 72, 252,237,156, 246,215,111, & 239,186, 86, 37, 30, 7, 212, 89, 77, 207, 84, 76, & 215, 94, 77, 254,246,179, 121, 58, 51, 58, 37, 19, & 241,192, 88, 30, 27, 3, 253,242,168, 238,181, 85, & 249,227,132, 235,166, 83, 229,134, 81, 255,253,198 & ], shape(lajollaS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: lapaz=reshape( [ & 26, 12,100, 27, 14,101, 27, 15,102, 27, 16,103, & 28, 18,104, 28, 19,104, 28, 20,105, 29, 22,106, & 29, 23,107, 29, 24,108, 30, 25,109, 30, 26,109, & 30, 28,110, 31, 29,111, 31, 30,112, 31, 31,113, & 32, 32,113, 32, 33,114, 32, 35,115, 32, 36,116, & 33, 37,117, 33, 38,117, 33, 39,118, 33, 40,119, & 34, 41,120, 34, 42,121, 34, 43,121, 34, 44,122, & 35, 45,123, 35, 47,124, 35, 48,124, 35, 49,125, & 36, 50,126, 36, 51,127, 36, 52,127, 36, 53,128, & 37, 54,129, 37, 55,130, 37, 56,130, 37, 57,131, & 38, 58,132, 38, 59,132, 38, 60,133, 38, 61,134, & 39, 62,135, 39, 63,135, 39, 64,136, 39, 65,137, & 40, 66,137, 40, 67,138, 40, 69,139, 40, 70,139, & 41, 71,140, 41, 72,140, 41, 73,141, 42, 74,142, & 42, 75,142, 42, 76,143, 43, 77,144, 43, 78,144, & 43, 79,145, 44, 80,145, 44, 81,146, 44, 82,146, & 45, 83,147, 45, 84,148, 45, 85,148, 46, 86,149, & 46, 87,149, 46, 88,150, 47, 89,150, 47, 90,151, & 48, 91,151, 48, 92,152, 48, 93,152, 49, 94,153, & 49, 94,153, 50, 95,153, 50, 96,154, 51, 97,154, & 51, 98,155, 52, 99,155, 52,100,156, 53,101,156, & 53,102,156, 54,103,157, 55,104,157, 55,105,157, & 56,106,158, 56,107,158, 57,108,158, 58,109,159, & 58,110,159, 59,111,159, 60,112,160, 60,112,160, & 61,113,160, 62,114,161, 62,115,161, 63,116,161, & 64,117,161, 65,118,162, 66,119,162, 66,120,162, & 67,121,162, 68,122,162, 69,122,162, 70,123,163, & 71,124,163, 72,125,163, 73,126,163, 74,127,163, & 75,128,163, 76,128,163, 77,129,163, 78,130,163, & 79,131,164, 80,132,164, 81,133,164, 82,133,164, & 83,134,164, 84,135,164, 85,136,164, 86,136,164, & 87,137,164, 88,138,163, 90,139,163, 91,139,163, & 92,140,163, 93,141,163, 94,142,163, 96,142,163, & 97,143,163, 98,144,163, 99,144,162, 101,145,162, & 102,146,162, 103,146,162, 104,147,162, 106,148,161, & 107,148,161, 108,149,161, 110,149,161, 111,150,161, & 112,151,160, 114,151,160, 115,152,160, 116,152,159, & 118,153,159, 119,153,159, 120,154,159, 122,154,158, & 123,155,158, 124,155,158, 126,156,157, 127,156,157, & 128,157,157, 130,157,156, 131,158,156, 133,158,156, & 134,158,155, 135,159,155, 137,159,154, 138,160,154, & 139,160,154, 141,160,153, 142,161,153, 144,161,153, & 145,162,152, 146,162,152, 148,162,152, 149,163,152, & 151,163,151, 152,164,151, 153,164,151, 155,164,150, & 156,165,150, 158,165,150, 159,166,150, 161,166,150, & 162,166,150, 164,167,149, 165,167,149, 167,168,149, & 168,168,149, 170,169,149, 171,169,149, 173,170,149, & 174,170,149, 176,171,149, 178,171,150, 179,172,150, & 181,173,150, 183,173,150, 184,174,151, 186,175,151, & 188,176,152, 190,176,152, 191,177,153, 193,178,153, & 195,179,154, 197,180,155, 199,181,156, 200,182,156, & 202,183,157, 204,184,158, 206,185,159, 208,186,160, & 210,187,162, 211,188,163, 213,189,164, 215,190,166, & 217,192,167, 218,193,168, 220,194,170, 222,195,171, & 223,197,173, 225,198,175, 227,199,176, 228,201,178, & 230,202,180, 231,203,181, 232,204,183, 234,206,185, & 235,207,187, 236,208,189, 237,210,190, 239,211,192, & 240,212,194, 241,213,196, 242,215,198, 243,216,200, & 244,217,201, 244,218,203, 245,219,205, 246,221,207, & 247,222,209, 247,223,211, 248,224,212, 249,225,214, & 249,226,216, 250,227,218, 250,229,220, 251,230,221, & 251,231,223, 251,232,225, 252,233,227, 252,234,229, & 252,235,230, 253,236,232, 253,237,234, 253,238,236, & 254,239,237, 254,240,239, 254,241,241, 254,242,243 & ], shape(lapaz), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: lapaz10=reshape( [ & 26, 12,100, 35, 45,123, 42, 76,143, 54,103,157, & 76,128,163, 110,149,161, 148,162,152, 191,177,153, & 239,211,192, 254,242,243 & ], shape(lapaz10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: lapaz100=reshape( [ & 26, 12,100, 27, 16,103, 28, 19,104, 29, 23,107, & 30, 25,109, 31, 29,111, 31, 31,113, 32, 35,115, & 33, 38,117, 33, 40,119, 34, 43,121, 35, 45,123, & 35, 49,125, 36, 51,127, 37, 54,129, 37, 57,131, & 38, 59,132, 39, 62,135, 39, 64,136, 40, 67,138, & 41, 71,140, 41, 73,141, 42, 76,143, 43, 78,144, & 44, 81,146, 45, 83,147, 46, 86,149, 47, 89,150, & 48, 91,151, 49, 94,153, 50, 95,153, 51, 98,155, & 52,100,156, 54,103,157, 56,106,158, 57,108,158, & 59,111,159, 60,112,160, 62,115,161, 64,117,161, & 66,120,162, 69,122,162, 71,124,163, 74,127,163, & 76,128,163, 79,131,164, 81,133,164, 84,135,164, & 87,137,164, 90,139,163, 93,141,163, 96,142,163, & 99,144,162, 103,146,162, 106,148,161, 110,149,161, & 112,151,160, 116,152,159, 119,153,159, 123,155,158, & 127,156,157, 130,157,156, 134,158,155, 137,159,154, & 141,160,153, 144,161,153, 148,162,152, 152,164,151, & 155,164,150, 159,166,150, 162,166,150, 167,168,149, & 170,169,149, 174,170,149, 179,172,150, 183,173,150, & 188,176,152, 191,177,153, 197,180,155, 200,182,156, & 206,185,159, 211,188,163, 215,190,166, 220,194,170, & 223,197,173, 228,201,178, 232,204,183, 235,207,187, & 239,211,192, 241,213,196, 244,217,201, 245,219,205, & 247,223,211, 249,226,216, 250,229,220, 251,232,225, & 252,234,229, 253,237,234, 254,239,237, 254,242,243 & ], shape(lapaz100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: lapaz25=reshape( [ & 26, 12,100, 30, 26,109, 33, 38,117, 36, 50,126, & 38, 61,134, 41, 72,140, 45, 83,147, 48, 93,152, & 54,103,157, 61,113,160, 69,122,162, 80,132,164, & 92,140,163, 104,147,162, 119,153,159, 133,158,156, & 148,162,152, 164,167,149, 179,172,150, 199,181,156, & 218,193,168, 234,206,185, 245,219,205, 251,231,223, & 254,242,243 & ], shape(lapaz25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: lapaz50=reshape( [ & 26, 12,100, 28, 19,104, 30, 25,109, 32, 32,113, & 33, 38,117, 34, 43,121, 35, 49,125, 37, 54,129, & 38, 60,133, 39, 65,137, 41, 71,140, 42, 76,143, & 44, 81,146, 46, 87,149, 48, 92,152, 50, 96,154, & 53,101,156, 56,106,158, 60,112,160, 63,116,161, & 67,121,162, 72,125,163, 77,129,163, 83,134,164, & 88,138,163, 94,142,163, 101,145,162, 108,149,161, & 115,152,160, 122,154,158, 128,157,157, 135,159,155, & 144,161,153, 151,163,151, 158,165,150, 165,167,149, & 173,170,149, 183,173,150, 191,177,153, 200,182,156, & 210,187,162, 218,193,168, 228,201,178, 235,207,187, & 241,213,196, 245,219,205, 249,225,214, 251,232,225, & 253,237,234, 254,242,243 & ], shape(lapaz50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: lapazS=reshape( [ & 26, 12,100, 254,242,243, 92,140,163, 45, 83,147, & 179,172,150, 61,113,160, 234,206,185, 36, 50,126, & 133,158,156, 32, 32,113, 155,164,150, 51, 98,155, & 249,225,214, 208,186,160, 75,128,163, 40, 66,137, & 111,150,161, 34, 41,120, 48, 91,151, 144,161,153, & 122,154,158, 252,234,229, 167,168,149, 67,121,162, & 193,178,153, 29, 23,107, 38, 58,132, 222,195,171, & 56,106,158, 243,216,200, 42, 75,142, 83,134,164, & 101,145,162, 30, 28,110, 46, 87,149, 37, 54,129, & 149,163,152, 87,137,164, 35, 45,123, 79,131,164, & 246,221,207, 138,160,154, 200,182,156, 253,238,236, & 116,152,159, 71,124,163, 106,148,161, 161,166,150, & 215,190,166, 127,156,157, 186,175,151, 49, 94,153, & 64,117,161, 33, 37,117, 239,211,192, 41, 71,140, & 43, 79,145, 53,102,156, 251,230,221, 28, 18,104, & 39, 62,135, 58,110,159, 228,201,178, 173,170,149, & 97,143,163, 231,203,181, 146,162,152, 190,176,152, & 94,142,163, 27, 15,102, 40, 69,139, 73,126,163, & 114,151,160, 60,112,160, 141,160,153, 124,155,158, & 197,180,155, 37, 56,130, 85,136,164, 55,104,157, & 253,236,232, 247,223,211, 241,213,196, 62,115,161, & 176,171,149, 244,218,203, 48, 93,152, 33, 39,118, & 90,139,163, 47, 89,150, 218,193,168, 36, 52,127, & 39, 64,136, 103,146,162, 31, 30,112, 43, 77,144, & 152,164,151, 34, 43,121, 135,159,155, 236,208,189 & ], shape(lapazS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: lipari=reshape( [ & 3, 19, 38, 4, 20, 40, 4, 22, 41, 4, 23, 43, & 5, 24, 45, 5, 25, 47, 5, 27, 49, 5, 28, 51, & 6, 29, 53, 6, 31, 55, 6, 32, 56, 7, 33, 58, & 7, 34, 60, 7, 36, 62, 8, 37, 64, 8, 38, 66, & 9, 40, 68, 9, 41, 70, 10, 42, 72, 10, 44, 74, & 11, 45, 75, 12, 46, 77, 13, 48, 79, 13, 49, 81, & 14, 51, 83, 15, 52, 85, 16, 53, 87, 17, 55, 88, & 19, 56, 90, 20, 57, 92, 21, 59, 94, 22, 60, 95, & 24, 62, 97, 25, 63, 99, 27, 64,100, 29, 66,102, & 30, 67,104, 32, 68,105, 34, 70,107, 36, 71,108, & 37, 72,109, 39, 73,111, 41, 75,112, 43, 76,113, & 45, 77,114, 47, 78,115, 49, 79,116, 52, 80,117, & 54, 81,118, 56, 82,119, 58, 83,119, 60, 84,120, & 62, 85,120, 63, 86,121, 65, 86,121, 67, 87,122, & 69, 88,122, 71, 88,122, 72, 89,122, 74, 89,122, & 76, 90,122, 77, 90,123, 79, 91,123, 80, 91,122, & 82, 91,122, 83, 92,122, 84, 92,122, 86, 92,122, & 87, 92,122, 88, 93,122, 90, 93,122, 91, 93,121, & 92, 93,121, 93, 93,121, 94, 93,121, 96, 94,120, & 97, 94,120, 98, 94,120, 99, 94,120, 100, 94,119, & 101, 94,119, 102, 94,119, 104, 94,119, 105, 94,118, & 106, 94,118, 107, 95,118, 108, 95,117, 109, 95,117, & 110, 95,117, 112, 95,116, 113, 95,116, 114, 95,116, & 115, 95,116, 116, 95,115, 118, 95,115, 119, 95,115, & 120, 95,114, 121, 95,114, 122, 95,114, 124, 96,113, & 125, 96,113, 126, 96,113, 128, 96,112, 129, 96,112, & 130, 96,112, 131, 96,111, 133, 96,111, 134, 96,111, & 135, 96,110, 137, 96,110, 138, 96,110, 140, 96,109, & 141, 97,109, 142, 97,108, 144, 97,108, 145, 97,108, & 147, 97,107, 148, 97,107, 150, 97,107, 151, 97,106, & 152, 97,106, 154, 97,105, 155, 97,105, 157, 98,105, & 159, 98,104, 160, 98,104, 162, 98,103, 163, 98,103, & 165, 98,103, 166, 98,102, 168, 98,102, 170, 98,101, & 171, 99,101, 173, 99,101, 174, 99,100, 176, 99,100, & 178, 99,100, 179, 99, 99, 181, 99, 99, 183,100, 98, & 184,100, 98, 186,100, 98, 188,100, 97, 190,101, 97, & 191,101, 97, 193,101, 96, 195,102, 96, 197,102, 96, & 198,102, 95, 200,103, 95, 202,103, 95, 203,104, 95, & 205,104, 95, 207,105, 94, 208,106, 94, 210,106, 94, & 212,107, 94, 213,108, 94, 215,109, 94, 216,110, 94, & 218,111, 94, 219,112, 95, 221,113, 95, 222,114, 95, & 223,115, 95, 224,116, 96, 225,118, 96, 226,119, 96, & 227,120, 97, 228,122, 97, 229,123, 98, 230,124, 99, & 231,126, 99, 231,127,100, 232,129,101, 232,130,101, & 233,132,102, 233,133,103, 233,135,104, 233,136,104, & 234,138,105, 234,139,106, 234,141,107, 234,142,108, & 234,144,109, 234,145,110, 234,146,110, 234,148,111, & 233,149,112, 233,151,113, 233,152,114, 233,153,115, & 233,155,116, 232,156,117, 232,157,118, 232,158,119, & 232,160,119, 231,161,120, 231,162,121, 231,163,122, & 231,165,123, 230,166,124, 230,167,125, 230,168,126, & 230,170,127, 230,171,128, 230,172,129, 229,173,130, & 229,175,132, 229,176,133, 229,177,134, 229,178,135, & 229,180,136, 229,181,138, 229,182,139, 229,184,140, & 229,185,142, 229,186,143, 230,188,144, 230,189,146, & 230,190,147, 230,192,149, 231,193,151, 231,195,152, & 231,196,154, 232,198,156, 232,199,157, 233,201,159, & 233,202,161, 234,204,163, 234,205,165, 235,207,167, & 235,208,169, 236,210,171, 237,211,173, 237,213,175, & 238,214,177, 239,216,179, 239,218,181, 240,219,183, & 241,221,185, 242,222,187, 242,224,190, 243,225,192, & 244,227,194, 245,229,196, 246,230,198, 246,232,201, & 247,233,203, 248,235,205, 249,237,207, 250,238,209, & 251,240,212, 251,241,214, 252,243,216, 253,245,218 & ], shape(lipari), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: lipari10=reshape( [ & 3, 19, 38, 19, 56, 90, 71, 88,122, 107, 95,118, & 142, 97,108, 188,100, 97, 229,123, 98, 231,162,121, & 233,201,159, 253,245,218 & ], shape(lipari10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: lipari100=reshape( [ & 3, 19, 38, 4, 23, 43, 5, 25, 47, 6, 29, 53, & 6, 32, 56, 7, 36, 62, 8, 38, 66, 10, 42, 72, & 12, 46, 77, 13, 49, 81, 16, 53, 87, 19, 56, 90, & 22, 60, 95, 25, 63, 99, 30, 67,104, 36, 71,108, & 39, 73,111, 45, 77,114, 49, 79,116, 56, 82,119, & 62, 85,120, 65, 86,121, 71, 88,122, 74, 89,122, & 79, 91,123, 82, 91,122, 86, 92,122, 90, 93,122, & 92, 93,121, 96, 94,120, 98, 94,120, 101, 94,119, & 104, 94,119, 107, 95,118, 110, 95,117, 113, 95,116, & 116, 95,115, 119, 95,115, 122, 95,114, 125, 96,113, & 129, 96,112, 133, 96,111, 135, 96,110, 140, 96,109, & 142, 97,108, 147, 97,107, 150, 97,107, 154, 97,105, & 159, 98,104, 162, 98,103, 166, 98,102, 170, 98,101, & 174, 99,100, 179, 99, 99, 183,100, 98, 188,100, 97, & 191,101, 97, 197,102, 96, 200,103, 95, 205,104, 95, & 210,106, 94, 213,108, 94, 218,111, 94, 221,113, 95, & 224,116, 96, 226,119, 96, 229,123, 98, 231,127,100, & 232,130,101, 233,135,104, 234,138,105, 234,142,108, & 234,145,110, 233,149,112, 233,153,115, 232,156,117, & 232,160,119, 231,162,121, 230,166,124, 230,168,126, & 230,172,129, 229,176,133, 229,178,135, 229,182,139, & 229,185,142, 230,189,146, 231,193,151, 231,196,154, & 233,201,159, 234,204,163, 235,208,169, 237,211,173, & 239,216,179, 241,221,185, 242,224,190, 245,229,196, & 246,232,201, 249,237,207, 251,240,212, 253,245,218 & ], shape(lipari100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: lipari25=reshape( [ & 3, 19, 38, 7, 33, 58, 12, 46, 77, 24, 62, 97, & 43, 76,113, 63, 86,121, 82, 91,122, 94, 93,121, & 107, 95,118, 120, 95,114, 133, 96,111, 148, 97,107, & 165, 98,103, 181, 99, 99, 200,103, 95, 216,110, 94, & 229,123, 98, 234,139,106, 233,153,115, 230,167,125, & 229,181,138, 231,195,152, 237,211,173, 244,227,194, & 253,245,218 & ], shape(lipari25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: lipari50=reshape( [ & 3, 19, 38, 5, 25, 47, 6, 32, 56, 9, 40, 68, & 12, 46, 77, 16, 53, 87, 22, 60, 95, 30, 67,104, & 41, 75,112, 52, 80,117, 62, 85,120, 71, 88,122, & 79, 91,123, 87, 92,122, 93, 93,121, 99, 94,120, & 105, 94,118, 110, 95,117, 118, 95,115, 124, 96,113, & 130, 96,112, 137, 96,110, 144, 97,108, 152, 97,106, & 160, 98,104, 168, 98,102, 176, 99,100, 186,100, 98, & 195,102, 96, 203,104, 95, 212,107, 94, 219,112, 95, & 226,119, 96, 231,126, 99, 233,133,103, 234,141,107, & 234,148,111, 232,156,117, 231,162,121, 230,168,126, & 229,175,132, 229,181,138, 230,189,146, 231,196,154, & 234,204,163, 237,211,173, 240,219,183, 245,229,196, & 249,237,207, 253,245,218 & ], shape(lipari50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: lipariS=reshape( [ & 3, 19, 38, 253,245,218, 163, 98,103, 233,153,115, & 82, 91,122, 216,110, 94, 24, 62, 97, 231,195,152, & 119, 95,115, 240,219,183, 232,130,101, 190,101, 97, & 9, 40, 68, 140, 96,109, 229,173,130, 54, 81,118, & 101, 94,119, 176, 99,100, 37, 72,109, 231,163,122, & 229,184,140, 92, 93,121, 203,104, 95, 69, 88,122, & 14, 51, 83, 235,207,167, 6, 29, 53, 129, 96,112, & 246,232,201, 226,119, 96, 151, 97,106, 234,142,108, & 110, 95,117, 45, 77,114, 230,124, 99, 62, 85,120, & 19, 56, 90, 134, 96,111, 157, 98,105, 11, 45, 75, & 232,158,119, 210,106, 94, 250,238,209, 87, 92,122, & 237,213,175, 233,136,104, 230,168,126, 124, 96,113, & 170, 98,101, 7, 34, 60, 233,201,159, 145, 97,108, & 234,148,111, 229,178,135, 76, 90,122, 197,102, 96, & 97, 94,120, 230,189,146, 5, 24, 45, 243,225,192, & 222,114, 95, 183,100, 98, 106, 94,118, 30, 67,104, & 114, 95,116, 13, 48, 79, 251,241,214, 230,192,149, & 4, 22, 41, 231,127,100, 219,112, 95, 131, 96,111, & 154, 97,105, 121, 95,114, 148, 97,107, 6, 32, 56, & 142, 97,108, 27, 64,100, 10, 42, 72, 207,105, 94, & 228,122, 97, 231,161,120, 84, 92,122, 232,156,117, & 233,151,113, 173, 99,101, 236,210,171, 230,171,128, & 160, 98,104, 230,166,124, 224,116, 96, 248,235,205, & 34, 70,107, 232,198,156, 179, 99, 99, 21, 59, 94, & 245,229,196, 229,181,138, 8, 37, 64, 90, 93,122 & ], shape(lipariS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: lisbon=reshape( [ & 230,229,255, 227,227,253, 224,226,252, 221,224,250, & 219,222,249, 216,220,247, 213,218,245, 211,216,244, & 208,214,242, 205,212,241, 203,210,239, 200,208,237, & 197,206,236, 195,204,234, 192,202,233, 189,200,231, & 187,198,229, 184,196,228, 181,194,226, 179,192,225, & 176,190,223, 173,188,222, 171,186,220, 168,185,218, & 165,183,217, 163,181,215, 160,179,214, 158,177,212, & 155,175,211, 152,173,209, 150,171,207, 147,169,206, & 144,167,204, 142,165,203, 139,163,201, 137,162,200, & 134,160,198, 132,158,196, 129,156,195, 126,154,193, & 124,152,192, 121,150,190, 119,148,189, 116,146,187, & 114,144,185, 111,142,184, 109,141,182, 106,139,181, & 104,137,179, 101,135,177, 98,133,176, 96,131,174, & 94,129,172, 91,127,171, 89,125,169, 86,123,167, & 84,121,166, 81,119,164, 79,117,162, 76,115,160, & 74,114,158, 72,112,157, 69,110,155, 67,108,153, & 65,106,151, 63,104,149, 61,102,147, 58,100,145, & 56, 98,143, 54, 96,140, 52, 94,138, 50, 92,136, & 48, 90,134, 47, 89,132, 45, 87,130, 43, 85,127, & 42, 83,125, 40, 81,123, 39, 79,120, 37, 78,118, & 36, 76,116, 34, 74,113, 33, 72,111, 32, 71,109, & 31, 69,106, 30, 67,104, 29, 66,102, 28, 64,100, & 27, 63, 97, 26, 61, 95, 25, 60, 93, 25, 58, 90, & 24, 57, 88, 23, 55, 86, 23, 54, 83, 22, 52, 81, & 22, 51, 79, 21, 49, 77, 21, 48, 75, 20, 46, 72, & 20, 45, 70, 19, 44, 68, 19, 42, 66, 19, 41, 64, & 18, 40, 62, 18, 39, 60, 18, 37, 58, 18, 36, 55, & 17, 35, 53, 17, 34, 51, 17, 33, 50, 17, 32, 48, & 17, 31, 46, 17, 30, 44, 17, 29, 42, 17, 28, 40, & 17, 27, 39, 18, 27, 37, 18, 26, 36, 18, 26, 34, & 18, 25, 33, 19, 25, 32, 19, 25, 30, 20, 24, 29, & 20, 24, 28, 21, 24, 27, 21, 24, 26, 22, 25, 26, & 23, 25, 25, 24, 25, 25, 24, 26, 24, 25, 26, 24, & 26, 27, 24, 27, 28, 23, 28, 28, 23, 30, 29, 23, & 31, 30, 24, 32, 31, 24, 33, 32, 24, 35, 33, 24, & 36, 35, 25, 37, 36, 25, 39, 37, 26, 40, 38, 26, & 42, 40, 27, 43, 41, 28, 45, 43, 28, 47, 44, 29, & 48, 45, 30, 50, 47, 31, 51, 48, 32, 53, 50, 32, & 55, 52, 33, 56, 53, 34, 58, 55, 35, 60, 56, 36, & 62, 58, 37, 63, 60, 38, 65, 61, 39, 67, 63, 40, & 69, 64, 41, 70, 66, 42, 72, 68, 43, 74, 69, 44, & 76, 71, 45, 77, 73, 46, 79, 75, 47, 81, 76, 49, & 83, 78, 50, 85, 80, 51, 87, 81, 52, 88, 83, 53, & 90, 85, 54, 92, 87, 55, 94, 88, 56, 96, 90, 57, & 98, 92, 58, 100, 94, 60, 102, 96, 61, 104, 97, 62, & 105, 99, 63, 107,101, 64, 109,103, 65, 111,105, 67, & 113,107, 68, 115,108, 69, 117,110, 70, 119,112, 71, & 121,114, 73, 123,116, 74, 125,118, 75, 127,120, 76, & 129,122, 78, 131,123, 79, 133,125, 80, 135,127, 82, & 137,129, 83, 139,131, 85, 141,133, 86, 143,135, 88, & 145,137, 89, 148,139, 91, 150,141, 92, 152,143, 94, & 154,145, 96, 156,147, 97, 158,150, 99, 160,152,101, & 162,154,103, 164,156,105, 166,158,106, 168,160,108, & 171,162,110, 173,164,112, 175,167,114, 177,169,117, & 179,171,119, 181,173,121, 183,175,123, 185,177,125, & 187,179,128, 189,182,130, 191,184,132, 193,186,135, & 195,188,137, 197,190,139, 199,192,142, 201,195,144, & 203,197,147, 205,199,149, 207,201,152, 209,203,154, & 211,205,157, 213,207,159, 215,210,162, 217,212,164, & 218,214,167, 220,216,169, 222,218,172, 224,220,175, & 226,222,177, 228,225,180, 230,227,182, 232,229,185, & 234,231,188, 236,233,190, 238,235,193, 240,238,195, & 241,240,198, 243,242,201, 245,244,203, 247,246,206, & 249,248,209, 251,251,211, 253,253,214, 255,255,217 & ], shape(lisbon), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: lisbon10=reshape( [ & 230,229,255, 155,175,211, 81,119,164, 30, 67,104, & 17, 30, 44, 39, 37, 26, 87, 81, 52, 141,133, 86, & 201,195,144, 255,255,217 & ], shape(lisbon10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: lisbon100=reshape( [ & 230,229,255, 221,224,250, 216,220,247, 208,214,242, & 203,210,239, 195,204,234, 189,200,231, 181,194,226, & 173,188,222, 168,185,218, 160,179,214, 155,175,211, & 147,169,206, 142,165,203, 134,160,198, 126,154,193, & 121,150,190, 114,144,185, 109,141,182, 101,135,177, & 94,129,172, 89,125,169, 81,119,164, 76,115,160, & 69,110,155, 65,106,151, 58,100,145, 52, 94,138, & 48, 90,134, 43, 85,127, 40, 81,123, 36, 76,116, & 33, 72,111, 30, 67,104, 27, 63, 97, 25, 60, 93, & 23, 55, 86, 22, 52, 81, 21, 48, 75, 20, 45, 70, & 19, 41, 64, 18, 37, 58, 17, 35, 53, 17, 32, 48, & 17, 30, 44, 17, 27, 39, 18, 26, 36, 19, 25, 32, & 20, 24, 28, 21, 24, 26, 24, 25, 25, 25, 26, 24, & 28, 28, 23, 32, 31, 24, 35, 33, 24, 39, 37, 26, & 42, 40, 27, 47, 44, 29, 50, 47, 31, 55, 52, 33, & 60, 56, 36, 63, 60, 38, 69, 64, 41, 72, 68, 43, & 77, 73, 46, 81, 76, 49, 87, 81, 52, 92, 87, 55, & 96, 90, 57, 102, 96, 61, 105, 99, 63, 111,105, 67, & 115,108, 69, 121,114, 73, 127,120, 76, 131,123, 79, & 137,129, 83, 141,133, 86, 148,139, 91, 152,143, 94, & 158,150, 99, 164,156,105, 168,160,108, 175,167,114, & 179,171,119, 185,177,125, 191,184,132, 195,188,137, & 201,195,144, 205,199,149, 211,205,157, 215,210,162, & 220,216,169, 226,222,177, 230,227,182, 236,233,190, & 240,238,195, 245,244,203, 249,248,209, 255,255,217 & ], shape(lisbon100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: lisbon25=reshape( [ & 230,229,255, 200,208,237, 173,188,222, 144,167,204, & 116,146,187, 91,127,171, 65,106,151, 45, 87,130, & 30, 67,104, 22, 51, 79, 18, 37, 58, 18, 27, 37, & 23, 25, 25, 33, 32, 24, 50, 47, 31, 67, 63, 40, & 87, 81, 52, 107,101, 64, 127,120, 76, 150,141, 92, & 173,164,112, 193,186,135, 215,210,162, 234,231,188, & 255,255,217 & ], shape(lisbon25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: lisbon50=reshape( [ & 230,229,255, 216,220,247, 203,210,239, 187,198,229, & 173,188,222, 160,179,214, 147,169,206, 134,160,198, & 119,148,189, 106,139,181, 94,129,172, 81,119,164, & 69,110,155, 56, 98,143, 47, 89,132, 39, 79,120, & 32, 71,109, 27, 63, 97, 23, 54, 83, 20, 46, 72, & 18, 40, 62, 17, 34, 51, 17, 29, 42, 18, 25, 33, & 21, 24, 27, 24, 26, 24, 30, 29, 23, 37, 36, 25, & 45, 43, 28, 53, 50, 32, 62, 58, 37, 70, 66, 42, & 81, 76, 49, 90, 85, 54, 100, 94, 60, 109,103, 65, & 119,112, 71, 131,123, 79, 141,133, 86, 152,143, 94, & 162,154,103, 173,164,112, 185,177,125, 195,188,137, & 205,199,149, 215,210,162, 224,220,175, 236,233,190, & 245,244,203, 255,255,217 & ], shape(lisbon50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: managua=reshape( [ & 255,207,103, 254,205,102, 253,203,102, 251,201,101, & 250,199,100, 249,197,100, 248,195, 99, 246,193, 98, & 245,191, 98, 244,189, 97, 243,187, 96, 241,185, 96, & 240,183, 95, 239,181, 94, 238,179, 94, 236,177, 93, & 235,176, 93, 234,174, 92, 233,172, 91, 232,170, 91, & 230,168, 90, 229,166, 89, 228,164, 89, 227,163, 88, & 225,161, 88, 224,159, 87, 223,157, 86, 222,156, 86, & 221,154, 85, 219,152, 85, 218,150, 84, 217,149, 84, & 216,147, 83, 215,145, 82, 213,144, 82, 212,142, 81, & 211,140, 81, 210,139, 80, 209,137, 80, 207,135, 79, & 206,134, 79, 205,132, 78, 204,130, 77, 203,129, 77, & 201,127, 76, 200,126, 76, 199,124, 75, 198,123, 75, & 197,121, 74, 195,119, 74, 194,118, 73, 193,116, 73, & 192,115, 72, 190,113, 72, 189,112, 71, 188,111, 71, & 187,109, 70, 185,108, 70, 184,106, 69, 183,105, 69, & 182,103, 69, 180,102, 68, 179,100, 68, 178, 99, 67, & 177, 98, 67, 175, 96, 66, 174, 95, 66, 173, 94, 66, & 171, 92, 65, 170, 91, 65, 168, 89, 64, 167, 88, 64, & 166, 87, 63, 164, 85, 63, 163, 84, 63, 161, 83, 62, & 160, 81, 62, 158, 80, 62, 157, 79, 61, 156, 77, 61, & 154, 76, 61, 152, 75, 60, 151, 73, 60, 149, 72, 60, & 148, 71, 59, 146, 70, 59, 145, 68, 59, 143, 67, 59, & 142, 66, 58, 140, 65, 58, 138, 63, 58, 137, 62, 58, & 135, 61, 57, 134, 60, 57, 132, 59, 57, 130, 58, 57, & 129, 57, 57, 127, 56, 57, 126, 55, 57, 124, 54, 57, & 122, 53, 57, 121, 52, 57, 119, 51, 57, 118, 50, 57, & 116, 49, 57, 115, 48, 57, 113, 47, 58, 112, 47, 58, & 110, 46, 58, 109, 45, 58, 107, 45, 59, 106, 44, 59, & 105, 43, 60, 103, 43, 60, 102, 42, 61, 101, 42, 61, & 99, 42, 62, 98, 41, 63, 97, 41, 63, 96, 41, 64, & 95, 41, 65, 94, 41, 66, 93, 40, 67, 92, 40, 67, & 91, 40, 68, 90, 40, 70, 89, 41, 71, 88, 41, 72, & 87, 41, 73, 86, 41, 74, 85, 42, 76, 84, 42, 77, & 84, 42, 78, 83, 43, 80, 82, 43, 81, 82, 44, 83, & 81, 45, 84, 81, 45, 86, 80, 46, 88, 80, 47, 89, & 79, 48, 91, 79, 49, 93, 78, 49, 94, 78, 50, 96, & 78, 51, 98, 77, 52,100, 77, 53,102, 77, 54,104, & 77, 55,106, 76, 57,107, 76, 58,109, 76, 59,111, & 76, 60,113, 76, 61,115, 76, 63,117, 76, 64,119, & 76, 65,121, 76, 67,123, 76, 68,125, 76, 69,127, & 76, 71,129, 76, 72,131, 76, 74,133, 76, 75,134, & 77, 76,136, 77, 78,138, 77, 79,140, 77, 81,142, & 77, 82,144, 78, 84,145, 78, 85,147, 78, 87,149, & 79, 88,151, 79, 90,152, 79, 91,154, 80, 93,156, & 80, 94,157, 81, 96,159, 81, 97,161, 81, 99,162, & 82,100,164, 82,102,165, 83,103,167, 83,105,168, & 84,106,170, 84,108,171, 85,110,172, 85,111,174, & 86,113,175, 86,114,177, 87,116,178, 87,117,179, & 88,119,181, 88,120,182, 89,122,183, 89,123,184, & 90,125,186, 91,126,187, 91,128,188, 92,129,189, & 92,131,191, 93,133,192, 93,134,193, 94,136,194, & 95,137,195, 95,139,197, 96,141,198, 96,142,199, & 97,144,200, 98,146,201, 98,147,203, 99,149,204, & 100,151,205, 100,152,206, 101,154,207, 102,156,208, & 102,158,210, 103,159,211, 104,161,212, 104,163,213, & 105,165,214, 105,166,215, 106,168,217, 107,170,218, & 107,172,219, 108,173,220, 109,175,221, 109,177,222, & 110,179,223, 111,181,225, 111,182,226, 112,184,227, & 113,186,228, 114,188,229, 114,190,230, 115,192,231, & 116,194,233, 116,196,234, 117,197,235, 118,199,236, & 118,201,237, 119,203,238, 120,205,240, 120,207,241, & 121,209,242, 122,211,243, 122,213,244, 123,215,245, & 124,217,247, 124,219,248, 125,221,249, 126,223,250, & 126,225,251, 127,227,253, 128,229,254, 129,231,255 & ], shape(managua), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: managua10=reshape( [ & 255,207,103, 221,154, 85, 185,108, 70, 146, 70, 59, & 103, 43, 60, 78, 49, 94, 78, 85,147, 91,128,188, & 109,177,222, 129,231,255 & ], shape(managua10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: managua100=reshape( [ & 255,207,103, 251,201,101, 249,197,100, 245,191, 98, & 243,187, 96, 239,181, 94, 236,177, 93, 233,172, 91, & 229,166, 89, 227,163, 88, 223,157, 86, 221,154, 85, & 217,149, 84, 215,145, 82, 211,140, 81, 207,135, 79, & 205,132, 78, 201,127, 76, 199,124, 75, 195,119, 74, & 192,115, 72, 189,112, 71, 185,108, 70, 183,105, 69, & 179,100, 68, 177, 98, 67, 173, 94, 66, 168, 89, 64, & 166, 87, 63, 161, 83, 62, 158, 80, 62, 154, 76, 61, & 151, 73, 60, 146, 70, 59, 142, 66, 58, 138, 63, 58, & 134, 60, 57, 130, 58, 57, 126, 55, 57, 122, 53, 57, & 118, 50, 57, 113, 47, 58, 110, 46, 58, 106, 44, 59, & 103, 43, 60, 99, 42, 62, 97, 41, 63, 94, 41, 66, & 91, 40, 68, 89, 41, 71, 86, 41, 74, 84, 42, 77, & 82, 43, 81, 81, 45, 86, 80, 47, 89, 78, 49, 94, & 78, 51, 98, 77, 54,104, 76, 57,107, 76, 60,113, & 76, 64,119, 76, 67,123, 76, 71,129, 76, 74,133, & 77, 78,138, 77, 81,142, 78, 85,147, 79, 90,152, & 80, 93,156, 81, 97,161, 82,100,164, 83,105,168, & 84,108,171, 86,113,175, 87,117,179, 88,120,182, & 90,125,186, 91,128,188, 93,133,192, 94,136,194, & 96,141,198, 98,146,201, 99,149,204, 101,154,207, & 102,158,210, 104,163,213, 106,168,217, 107,172,219, & 109,177,222, 111,181,225, 113,186,228, 114,190,230, & 116,196,234, 118,201,237, 120,205,240, 122,211,243, & 123,215,245, 125,221,249, 126,225,251, 129,231,255 & ], shape(managua100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: managua25=reshape( [ & 255,207,103, 241,185, 96, 229,166, 89, 216,147, 83, & 203,129, 77, 190,113, 72, 177, 98, 67, 163, 84, 63, & 146, 70, 59, 129, 57, 57, 113, 47, 58, 98, 41, 63, & 87, 41, 73, 80, 46, 88, 76, 57,107, 76, 69,127, & 78, 85,147, 82,102,165, 87,117,179, 93,134,193, & 100,152,206, 107,170,218, 114,190,230, 121,209,242, & 129,231,255 & ], shape(managua25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: managua50=reshape( [ & 255,207,103, 249,197,100, 243,187, 96, 235,176, 93, & 229,166, 89, 223,157, 86, 217,149, 84, 211,140, 81, & 204,130, 77, 198,123, 75, 192,115, 72, 185,108, 70, & 179,100, 68, 171, 92, 65, 164, 85, 63, 157, 79, 61, & 149, 72, 60, 142, 66, 58, 132, 59, 57, 124, 54, 57, & 116, 49, 57, 109, 45, 58, 102, 42, 61, 95, 41, 65, & 90, 40, 70, 85, 42, 76, 82, 44, 83, 79, 49, 93, & 77, 53,102, 76, 59,111, 76, 65,121, 76, 72,131, & 77, 81,142, 79, 88,151, 81, 96,159, 83,103,167, & 85,111,174, 88,120,182, 91,128,188, 94,136,194, & 97,144,200, 100,152,206, 104,163,213, 107,172,219, & 111,181,225, 114,190,230, 118,199,236, 122,211,243, & 125,221,249, 129,231,255 & ], shape(managua50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: navia=reshape( [ & 3, 19, 39, 4, 21, 41, 4, 22, 43, 4, 23, 44, & 4, 24, 46, 4, 25, 48, 5, 26, 50, 5, 27, 52, & 5, 28, 54, 5, 29, 56, 5, 30, 58, 5, 32, 60, & 5, 33, 62, 5, 34, 64, 5, 35, 66, 5, 36, 68, & 5, 37, 70, 5, 38, 72, 6, 40, 74, 6, 41, 76, & 6, 42, 78, 6, 43, 80, 6, 44, 82, 6, 46, 84, & 6, 47, 86, 6, 48, 88, 6, 49, 90, 7, 50, 92, & 7, 52, 94, 7, 53, 96, 7, 54, 98, 7, 55,100, & 7, 57,102, 8, 58,104, 8, 59,106, 8, 60,107, & 8, 62,109, 9, 63,111, 9, 64,113, 10, 65,115, & 10, 67,116, 11, 68,118, 11, 69,120, 11, 70,121, & 12, 72,123, 13, 73,125, 13, 74,126, 14, 76,128, & 14, 77,129, 15, 78,130, 16, 79,132, 16, 81,133, & 17, 82,134, 18, 83,135, 19, 84,136, 19, 86,137, & 20, 87,138, 21, 88,139, 22, 89,140, 23, 90,141, & 23, 92,141, 24, 93,142, 25, 94,142, 26, 95,143, & 27, 96,143, 27, 97,144, 28, 98,144, 29, 99,144, & 30,100,145, 30,101,145, 31,102,145, 32,103,145, & 32,104,145, 33,105,145, 34,106,145, 34,107,145, & 35,108,145, 36,108,145, 36,109,145, 37,110,144, & 38,111,144, 38,111,144, 39,112,144, 39,113,143, & 40,113,143, 40,114,143, 41,115,143, 42,115,142, & 42,116,142, 43,117,142, 43,117,141, 44,118,141, & 44,118,141, 45,119,140, 45,120,140, 46,120,140, & 47,121,139, 47,121,139, 48,122,139, 48,122,138, & 49,123,138, 49,124,138, 50,124,137, 50,125,137, & 51,125,137, 52,126,136, 52,126,136, 53,127,136, & 53,127,135, 54,128,135, 54,128,134, 55,129,134, & 55,129,134, 56,130,133, 57,131,133, 57,131,133, & 58,132,132, 58,132,132, 59,133,132, 60,133,131, & 60,134,131, 61,134,130, 61,135,130, 62,136,130, & 63,136,129, 63,137,129, 64,137,129, 64,138,128, & 65,138,128, 66,139,127, 66,140,127, 67,140,127, & 68,141,126, 68,141,126, 69,142,125, 70,143,125, & 71,143,125, 71,144,124, 72,145,124, 73,145,123, & 73,146,123, 74,147,122, 75,147,122, 76,148,122, & 76,149,121, 77,149,121, 78,150,120, 79,151,120, & 80,152,119, 80,152,119, 81,153,118, 82,154,118, & 83,155,117, 84,155,117, 85,156,116, 86,157,116, & 87,158,115, 87,159,115, 88,160,114, 89,160,114, & 90,161,113, 91,162,113, 92,163,112, 93,164,112, & 94,165,111, 95,166,111, 96,167,110, 98,168,110, & 99,169,109, 100,170,109, 101,171,108, 102,172,108, & 103,173,107, 105,174,107, 106,175,106, 107,176,106, & 109,177,105, 110,178,105, 112,179,105, 113,180,105, & 115,181,104, 116,182,104, 118,183,104, 120,185,104, & 121,186,104, 123,187,104, 125,188,104, 127,189,104, & 129,191,104, 131,192,104, 133,193,105, 135,194,105, & 137,195,106, 140,197,106, 142,198,107, 144,199,108, & 147,200,109, 149,202,110, 152,203,111, 154,204,112, & 156,205,114, 159,206,115, 162,207,116, 164,209,118, & 167,210,120, 169,211,121, 172,212,123, 174,213,125, & 177,214,127, 179,215,129, 181,216,131, 184,217,133, & 186,218,135, 188,219,137, 191,220,139, 193,220,141, & 195,221,144, 197,222,146, 199,223,148, 201,224,150, & 203,224,152, 205,225,155, 207,226,157, 209,227,159, & 211,227,161, 213,228,163, 215,229,165, 216,229,168, & 218,230,170, 220,231,172, 221,231,174, 223,232,176, & 224,232,178, 226,233,180, 227,234,182, 229,234,184, & 230,235,186, 232,235,188, 233,236,190, 234,237,191, & 235,237,193, 237,238,195, 238,238,197, 239,239,198, & 240,239,200, 241,240,202, 243,240,203, 244,241,205, & 245,241,207, 246,242,208, 247,242,210, 248,243,211, & 249,243,213, 250,243,214, 251,244,215, 252,244,217 & ], shape(navia), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: navia10=reshape( [ & 3, 19, 39, 7, 52, 94, 21, 88,139, 40,114,143, & 56,130,133, 75,147,122, 101,171,108, 152,203,111, & 216,229,168, 252,244,217 & ], shape(navia10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: navia100=reshape( [ & 3, 19, 39, 4, 23, 44, 4, 25, 48, 5, 28, 54, & 5, 30, 58, 5, 34, 64, 5, 36, 68, 6, 40, 74, & 6, 43, 80, 6, 46, 84, 6, 49, 90, 7, 52, 94, & 7, 55,100, 8, 58,104, 8, 62,109, 10, 65,115, & 11, 68,118, 12, 72,123, 13, 74,126, 15, 78,130, & 17, 82,134, 19, 84,136, 21, 88,139, 23, 90,141, & 25, 94,142, 27, 96,143, 29, 99,144, 31,102,145, & 32,104,145, 34,107,145, 36,108,145, 38,111,144, & 39,112,144, 40,114,143, 42,116,142, 43,117,141, & 45,119,140, 46,120,140, 48,122,139, 49,123,138, & 50,125,137, 52,126,136, 53,127,135, 55,129,134, & 56,130,133, 58,132,132, 59,133,132, 61,134,130, & 63,136,129, 64,137,129, 66,139,127, 67,140,127, & 69,142,125, 71,144,124, 73,145,123, 75,147,122, & 76,149,121, 79,151,120, 80,152,119, 83,155,117, & 86,157,116, 87,159,115, 90,161,113, 92,163,112, & 95,166,111, 98,168,110, 101,171,108, 105,174,107, & 107,176,106, 112,179,105, 115,181,104, 120,185,104, & 123,187,104, 129,191,104, 135,194,105, 140,197,106, & 147,200,109, 152,203,111, 159,206,115, 164,209,118, & 172,212,123, 179,215,129, 184,217,133, 191,220,139, & 195,221,144, 201,224,150, 207,226,157, 211,227,161, & 216,229,168, 220,231,172, 224,232,178, 227,234,182, & 232,235,188, 235,237,193, 238,238,197, 241,240,202, & 244,241,205, 247,242,210, 249,243,213, 252,244,217 & ], shape(navia100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: navia25=reshape( [ & 3, 19, 39, 5, 32, 60, 6, 43, 80, 7, 57,102, & 11, 70,121, 18, 83,135, 27, 96,143, 34,106,145, & 40,114,143, 47,121,139, 52,126,136, 58,132,132, & 65,138,128, 72,145,124, 80,152,119, 89,160,114, & 101,171,108, 116,182,104, 135,194,105, 162,207,116, & 188,219,137, 209,227,159, 227,234,182, 240,239,200, & 252,244,217 & ], shape(navia25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: navia50=reshape( [ & 3, 19, 39, 4, 25, 48, 5, 30, 58, 5, 37, 70, & 6, 43, 80, 6, 49, 90, 7, 55,100, 8, 62,109, & 11, 69,120, 14, 76,128, 17, 82,134, 21, 88,139, & 25, 94,142, 30,100,145, 33,105,145, 36,109,145, & 39,113,143, 42,116,142, 45,120,140, 48,122,138, & 51,125,137, 54,128,135, 57,131,133, 60,134,131, & 63,137,129, 66,140,127, 70,143,125, 74,147,122, & 78,150,120, 82,154,118, 87,158,115, 91,162,113, & 98,168,110, 103,173,107, 110,178,105, 118,183,104, & 127,189,104, 140,197,106, 152,203,111, 164,209,118, & 177,214,127, 188,219,137, 201,224,150, 211,227,161, & 220,231,172, 227,234,182, 234,237,191, 241,240,202, & 247,242,210, 252,244,217 & ], shape(navia50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: naviaS=reshape( [ & 3, 19, 39, 252,244,217, 65,138,128, 27, 96,143, & 135,194,105, 7, 57,102, 209,227,159, 47,121,139, & 89,160,114, 234,237,191, 5, 37, 70, 14, 77,129, & 38,111,144, 174,213,125, 107,176,106, 55,129,134, & 76,149,121, 32,104,145, 5, 28, 54, 10, 67,116, & 6, 47, 86, 51,125,137, 193,220,141, 244,241,205, & 98,168,110, 154,204,112, 42,116,142, 71,143,125, & 60,134,131, 223,232,176, 120,185,104, 20, 87,138, & 83,155,117, 23, 92,141, 239,239,198, 4, 24, 46, & 73,146,123, 216,229,168, 12, 72,123, 53,127,135, & 40,113,143, 93,164,112, 184,217,133, 49,123,138, & 102,172,108, 248,243,211, 144,199,108, 127,189,104, & 229,234,184, 7, 52, 94, 68,141,126, 80,152,119, & 113,180,105, 58,132,132, 17, 82,134, 5, 33, 62, & 6, 42, 78, 30,100,145, 201,224,150, 164,209,118, & 35,108,145, 8, 62,109, 63,136,129, 44,118,141, & 87,158,115, 43,117,141, 5, 35, 66, 59,133,132, & 57,131,133, 39,112,144, 232,235,188, 69,142,125, & 123,187,104, 105,174,107, 188,219,137, 22, 89,140, & 159,206,115, 48,122,139, 5, 30, 58, 213,228,163, & 246,242,208, 7, 54, 98, 66,140,127, 140,197,106, & 6, 49, 90, 5, 26, 50, 54,128,134, 11, 69,120, & 241,240,202, 226,233,180, 220,231,172, 250,243,214, & 91,162,113, 95,166,111, 36,109,145, 6, 44, 82, & 52,126,136, 72,145,124, 75,147,122, 131,192,104 & ], shape(naviaS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: naviaW=reshape( [ & 4, 20, 39, 4, 21, 41, 4, 22, 43, 4, 23, 45, & 5, 25, 47, 5, 26, 49, 5, 27, 51, 5, 28, 53, & 5, 29, 55, 5, 30, 57, 5, 32, 59, 5, 33, 61, & 6, 34, 63, 6, 35, 65, 6, 36, 67, 6, 38, 69, & 6, 39, 71, 6, 40, 74, 6, 41, 76, 7, 43, 78, & 7, 44, 80, 7, 45, 82, 7, 47, 84, 7, 48, 86, & 8, 49, 88, 8, 50, 90, 8, 52, 92, 8, 53, 94, & 9, 54, 96, 9, 56, 98, 9, 57,100, 10, 58,102, & 10, 60,104, 10, 61,106, 11, 62,107, 11, 64,109, & 12, 65,111, 12, 66,113, 13, 68,114, 14, 69,116, & 14, 70,118, 15, 72,119, 15, 73,121, 16, 74,122, & 17, 76,124, 17, 77,125, 18, 78,127, 19, 80,128, & 20, 81,129, 20, 82,130, 21, 84,131, 22, 85,132, & 23, 86,134, 24, 88,134, 24, 89,135, 25, 90,136, & 26, 91,137, 27, 93,138, 28, 94,139, 28, 95,139, & 29, 96,140, 30, 97,140, 31, 98,141, 32,100,141, & 32,101,142, 33,102,142, 34,103,142, 35,104,142, & 35,105,143, 36,106,143, 37,107,143, 38,108,143, & 38,109,143, 39,109,143, 40,110,143, 40,111,143, & 41,112,143, 42,113,143, 42,114,143, 43,114,143, & 43,115,142, 44,116,142, 45,117,142, 45,117,142, & 46,118,142, 46,119,141, 47,119,141, 48,120,141, & 48,121,141, 49,121,140, 49,122,140, 50,123,140, & 51,123,140, 51,124,139, 52,125,139, 52,125,139, & 53,126,138, 54,126,138, 54,127,138, 55,128,137, & 55,128,137, 56,129,137, 56,129,136, 57,130,136, & 58,131,136, 58,131,135, 59,132,135, 60,132,135, & 60,133,134, 61,134,134, 61,134,134, 62,135,133, & 63,135,133, 63,136,133, 64,137,132, 65,137,132, & 65,138,131, 66,138,131, 67,139,131, 67,140,130, & 68,140,130, 69,141,130, 69,142,129, 70,142,129, & 71,143,128, 72,144,128, 72,144,128, 73,145,127, & 74,146,127, 75,146,126, 75,147,126, 76,148,126, & 77,149,125, 78,149,125, 79,150,124, 80,151,124, & 80,152,124, 81,153,123, 82,153,123, 83,154,122, & 84,155,122, 85,156,121, 86,157,121, 87,157,120, & 88,158,120, 89,159,120, 90,160,119, 91,161,119, & 92,162,118, 93,163,118, 94,164,117, 95,165,117, & 96,166,117, 98,167,116, 99,168,116, 100,169,115, & 101,170,115, 103,171,115, 104,172,114, 105,173,114, & 107,174,114, 108,175,113, 110,176,113, 111,178,113, & 113,179,113, 114,180,113, 116,181,113, 118,182,113, & 119,184,113, 121,185,113, 123,186,113, 125,188,113, & 127,189,113, 129,190,114, 131,192,114, 133,193,114, & 135,194,115, 137,196,116, 140,197,116, 142,198,117, & 144,200,118, 147,201,119, 149,203,120, 152,204,121, & 154,205,123, 157,207,124, 159,208,125, 162,210,127, & 164,211,129, 167,212,130, 169,214,132, 172,215,134, & 175,216,136, 177,217,138, 180,219,140, 182,220,142, & 185,221,144, 187,222,147, 190,223,149, 192,225,151, & 194,226,154, 197,227,156, 199,228,158, 201,229,161, & 203,230,163, 205,231,166, 207,232,168, 209,232,171, & 211,233,173, 213,234,175, 215,235,178, 216,236,180, & 218,236,182, 219,237,185, 221,238,187, 222,238,189, & 224,239,191, 225,240,194, 227,240,196, 228,241,198, & 229,241,200, 230,242,202, 231,243,204, 232,243,206, & 233,244,208, 234,244,210, 235,245,212, 236,245,213, & 237,245,215, 238,246,217, 239,246,219, 240,247,220, & 241,247,222, 241,248,224, 242,248,225, 243,248,227, & 243,249,228, 244,249,230, 245,249,231, 246,250,233, & 246,250,234, 247,250,236, 247,251,237, 248,251,238, & 249,251,240, 249,252,241, 250,252,242, 250,252,243, & 251,253,245, 251,253,246, 252,253,247, 252,253,248, & 253,254,249, 253,254,251, 254,254,252, 254,254,253 & ], shape(naviaW), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: naviaW10=reshape( [ & 4, 20, 39, 9, 54, 96, 27, 93,138, 46,119,141, & 63,136,133, 86,157,121, 123,186,113, 190,223,149, & 236,245,213, 254,254,253 & ], shape(naviaW10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: naviaW100=reshape( [ & 4, 20, 39, 4, 23, 45, 5, 26, 49, 5, 29, 55, & 5, 32, 59, 6, 35, 65, 6, 38, 69, 6, 41, 76, & 7, 45, 82, 7, 48, 86, 8, 52, 92, 9, 54, 96, & 10, 58,102, 10, 61,106, 12, 65,111, 14, 69,116, & 15, 72,119, 17, 76,124, 18, 78,127, 20, 82,130, & 23, 86,134, 24, 89,135, 27, 93,138, 28, 95,139, & 31, 98,141, 32,101,142, 35,104,142, 37,107,143, & 38,109,143, 40,111,143, 42,113,143, 43,115,142, & 45,117,142, 46,119,141, 48,121,141, 49,122,140, & 51,124,139, 52,125,139, 54,127,138, 55,128,137, & 57,130,136, 59,132,135, 60,133,134, 62,135,133, & 63,136,133, 65,138,131, 67,139,131, 69,141,130, & 71,143,128, 72,144,128, 75,146,126, 76,148,126, & 79,150,124, 81,153,123, 83,154,122, 86,157,121, & 88,158,120, 91,161,119, 93,163,118, 96,166,117, & 100,169,115, 103,171,115, 107,174,114, 110,176,113, & 114,180,113, 118,182,113, 123,186,113, 129,190,114, & 133,193,114, 140,197,116, 144,200,118, 152,204,121, & 157,207,124, 164,211,129, 172,215,134, 177,217,138, & 185,221,144, 190,223,149, 197,227,156, 201,229,161, & 207,232,168, 213,234,175, 216,236,180, 221,238,187, & 224,239,191, 228,241,198, 231,243,204, 233,244,208, & 236,245,213, 238,246,217, 241,247,222, 242,248,225, & 244,249,230, 246,250,234, 247,251,237, 249,252,241, & 250,252,243, 252,253,247, 253,254,249, 254,254,253 & ], shape(naviaW100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: naviaW25=reshape( [ & 4, 20, 39, 5, 33, 61, 7, 45, 82, 10, 60,104, & 16, 74,122, 24, 88,134, 32,101,142, 40,110,143, & 46,119,141, 53,126,138, 59,132,135, 66,138,131, & 74,146,127, 82,153,123, 93,163,118, 105,173,114, & 123,186,113, 147,201,119, 172,215,134, 199,228,158, & 219,237,185, 232,243,206, 242,248,225, 249,251,240, & 254,254,253 & ], shape(naviaW25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: naviaW50=reshape( [ & 4, 20, 39, 5, 26, 49, 5, 32, 59, 6, 39, 71, & 7, 45, 82, 8, 52, 92, 10, 58,102, 12, 65,111, & 15, 73,121, 19, 80,128, 23, 86,134, 27, 93,138, & 31, 98,141, 35,105,143, 39,109,143, 42,114,143, & 45,117,142, 48,121,141, 52,125,139, 55,128,137, & 58,131,136, 61,134,134, 64,137,132, 68,140,130, & 72,144,128, 75,147,126, 80,151,124, 85,156,121, & 90,160,119, 95,165,117, 101,170,115, 108,175,113, & 118,182,113, 127,189,113, 137,196,116, 149,203,120, & 162,210,127, 177,217,138, 190,223,149, 201,229,161, & 211,233,173, 219,237,185, 228,241,198, 233,244,208, & 238,246,217, 242,248,225, 246,250,233, 249,252,241, & 252,253,247, 254,254,253 & ], shape(naviaW50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: naviaWS=reshape( [ & 4, 20, 39, 251,253,246, 72,144,128, 31, 98,141, & 162,210,127, 227,240,196, 10, 58,102, 52,125,139, & 101,170,115, 42,114,143, 6, 39, 71, 85,156,121, & 19, 80,128, 242,248,225, 61,134,134, 201,229,161, & 127,189,113, 47,119,141, 37,107,143, 182,220,142, & 66,138,131, 235,245,212, 5, 29, 55, 14, 69,116, & 113,179,113, 78,149,125, 93,163,118, 8, 49, 88, & 247,250,236, 142,198,117, 56,129,137, 215,235,178, & 24, 89,135, 11, 64,109, 28, 94,139, 40,110,143, & 69,141,130, 6, 34, 63, 239,246,219, 231,243,204, & 75,146,126, 81,153,123, 49,122,140, 221,238,187, & 58,131,135, 7, 44, 80, 172,215,134, 63,136,133, & 34,103,142, 89,159,120, 5, 25, 47, 16, 74,122, & 249,252,241, 192,225,151, 119,184,113, 45,117,142, & 152,204,121, 107,174,114, 8, 53, 94, 54,126,138, & 207,232,168, 135,194,115, 98,167,116, 22, 85,132, & 244,249,230, 17, 77,125, 123,186,113, 20, 82,130, & 51,123,140, 104,172,114, 187,222,147, 6, 41, 76, & 241,247,222, 177,217,138, 67,140,130, 60,132,135, & 62,135,133, 38,109,143, 76,148,126, 73,145,127, & 218,236,182, 197,227,156, 95,165,117, 43,115,142, & 211,233,173, 70,142,129, 35,105,143, 246,250,233, & 229,241,200, 80,151,124, 87,157,120, 83,154,122, & 10, 61,106, 26, 91,137, 55,128,137, 12, 66,113, & 224,239,191, 7, 47, 84, 15, 72,119, 6, 36, 67 & ], shape(naviaWS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: nuuk=reshape( [ & 5, 89,140, 7, 90,140, 9, 90,140, 11, 90,139, & 13, 91,139, 14, 91,139, 16, 91,138, 17, 91,138, & 19, 92,137, 20, 92,137, 21, 92,137, 23, 92,136, & 24, 93,136, 25, 93,136, 26, 93,135, 27, 94,135, & 28, 94,135, 30, 94,134, 31, 95,134, 32, 95,134, & 33, 95,134, 34, 96,133, 35, 96,133, 36, 96,133, & 37, 97,133, 38, 97,132, 39, 97,132, 40, 98,132, & 41, 98,132, 42, 99,131, 43, 99,131, 44, 99,131, & 45,100,131, 46,100,131, 47,101,131, 48,101,130, & 50,102,130, 51,102,130, 52,103,130, 53,103,130, & 54,104,130, 55,104,130, 56,105,130, 57,105,130, & 59,106,130, 60,106,130, 61,107,130, 62,108,130, & 63,108,130, 64,109,130, 66,109,130, 67,110,130, & 68,111,130, 69,111,130, 70,112,131, 72,113,131, & 73,113,131, 74,114,131, 75,115,131, 77,115,132, & 78,116,132, 79,117,132, 81,117,132, 82,118,133, & 83,119,133, 85,120,133, 86,120,134, 87,121,134, & 88,122,134, 90,122,135, 91,123,135, 92,124,135, & 94,125,136, 95,125,136, 96,126,136, 98,127,137, & 99,128,137, 100,129,138, 102,129,138, 103,130,138, & 104,131,139, 106,132,139, 107,132,140, 108,133,140, & 110,134,140, 111,135,141, 112,135,141, 114,136,142, & 115,137,142, 116,138,143, 118,139,143, 119,139,143, & 120,140,144, 121,141,144, 123,142,145, 124,142,145, & 125,143,145, 127,144,146, 128,145,146, 129,145,146, & 130,146,147, 132,147,147, 133,148,147, 134,148,148, & 135,149,148, 137,150,148, 138,151,149, 139,151,149, & 140,152,149, 141,153,150, 142,154,150, 144,154,150, & 145,155,150, 146,156,150, 147,156,151, 148,157,151, & 149,158,151, 150,158,151, 151,159,151, 152,160,151, & 153,160,151, 154,161,152, 155,162,152, 156,162,152, & 157,163,152, 158,164,152, 159,164,152, 160,165,152, & 161,166,152, 162,166,152, 162,167,152, 163,167,152, & 164,168,151, 165,168,151, 166,169,151, 166,170,151, & 167,170,151, 168,171,151, 169,171,151, 169,172,151, & 170,172,150, 171,173,150, 171,173,150, 172,174,150, & 173,174,149, 173,175,149, 174,175,149, 174,176,149, & 175,176,148, 176,177,148, 176,177,148, 177,177,148, & 177,178,147, 178,178,147, 178,179,147, 179,179,146, & 179,180,146, 180,180,146, 180,181,145, 181,181,145, & 181,181,145, 182,182,144, 182,182,144, 183,183,144, & 183,183,143, 183,183,143, 184,184,142, 184,184,142, & 185,185,142, 185,185,141, 186,185,141, 186,186,141, & 186,186,140, 187,187,140, 187,187,139, 188,187,139, & 188,188,139, 189,188,138, 189,189,138, 189,189,138, & 190,189,137, 190,190,137, 191,190,136, 191,191,136, & 192,191,136, 192,192,135, 192,192,135, 193,193,135, & 193,193,134, 194,193,134, 194,194,134, 195,194,133, & 195,195,133, 196,195,133, 196,196,133, 197,196,132, & 197,197,132, 198,198,132, 199,198,132, 199,199,132, & 200,199,131, 200,200,131, 201,201,131, 202,201,131, & 202,202,131, 203,203,131, 204,203,131, 205,204,131, & 205,205,131, 206,206,131, 207,207,132, 208,207,132, & 209,208,132, 210,209,132, 210,210,133, 211,211,133, & 212,212,134, 213,213,134, 214,214,135, 215,215,135, & 216,216,136, 217,217,136, 219,218,137, 220,219,138, & 221,221,139, 222,222,140, 223,223,141, 224,224,142, & 225,225,143, 227,226,144, 228,227,145, 229,229,146, & 230,230,147, 231,231,148, 232,232,149, 233,233,151, & 235,234,152, 236,235,153, 237,237,154, 238,238,156, & 239,239,157, 240,240,158, 241,241,160, 242,242,161, & 243,243,163, 244,244,164, 245,245,165, 246,246,167, & 247,247,168, 248,248,170, 249,249,171, 250,250,173, & 251,251,174, 252,252,175, 253,253,177, 254,254,178 & ], shape(nuuk), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: nuuk10=reshape( [ & 5, 89,140, 41, 98,132, 74,114,131, 111,135,141, & 146,156,150, 171,173,150, 186,185,141, 199,198,132, & 224,224,142, 254,254,178 & ], shape(nuuk10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: nuuk100=reshape( [ & 5, 89,140, 11, 90,139, 14, 91,139, 19, 92,137, & 21, 92,137, 25, 93,136, 27, 94,135, 31, 95,134, & 34, 96,133, 36, 96,133, 39, 97,132, 41, 98,132, & 44, 99,131, 46,100,131, 50,102,130, 53,103,130, & 55,104,130, 59,106,130, 61,107,130, 64,109,130, & 68,111,130, 70,112,131, 74,114,131, 77,115,132, & 81,117,132, 83,119,133, 87,121,134, 91,123,135, & 94,125,136, 98,127,137, 100,129,138, 104,131,139, & 107,132,140, 111,135,141, 115,137,142, 118,139,143, & 121,141,144, 124,142,145, 128,145,146, 130,146,147, & 134,148,148, 138,151,149, 140,152,149, 144,154,150, & 146,156,150, 149,158,151, 151,159,151, 154,161,152, & 157,163,152, 159,164,152, 162,166,152, 163,167,152, & 166,169,151, 168,171,151, 169,172,151, 171,173,150, & 173,174,149, 174,176,149, 176,177,148, 177,178,147, & 179,179,146, 180,180,146, 181,181,145, 182,182,144, & 183,183,143, 184,184,142, 186,185,141, 187,187,140, & 188,187,139, 189,189,138, 190,189,137, 191,191,136, & 192,192,135, 193,193,134, 195,194,133, 196,195,133, & 197,197,132, 199,198,132, 200,200,131, 202,201,131, & 204,203,131, 206,206,131, 208,207,132, 210,210,133, & 212,212,134, 215,215,135, 219,218,137, 221,221,139, & 224,224,142, 227,226,144, 230,230,147, 232,232,149, & 236,235,153, 239,239,157, 241,241,160, 244,244,164, & 246,246,167, 249,249,171, 251,251,174, 254,254,178 & ], shape(nuuk100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: nuuk25=reshape( [ & 5, 89,140, 23, 92,136, 34, 96,133, 45,100,131, & 57,105,130, 69,111,130, 83,119,133, 96,126,136, & 111,135,141, 125,143,145, 138,151,149, 150,158,151, & 161,166,152, 169,171,151, 176,177,148, 181,181,145, & 186,185,141, 190,190,137, 195,194,133, 201,201,131, & 210,209,132, 220,219,138, 232,232,149, 243,243,163, & 254,254,178 & ], shape(nuuk25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: nuuk50=reshape( [ & 5, 89,140, 14, 91,139, 21, 92,137, 28, 94,135, & 34, 96,133, 39, 97,132, 44, 99,131, 50,102,130, & 56,105,130, 62,108,130, 68,111,130, 74,114,131, & 81,117,132, 88,122,134, 95,125,136, 102,129,138, & 108,133,140, 115,137,142, 123,142,145, 129,145,146, & 135,149,148, 141,153,150, 147,156,151, 153,160,151, & 158,164,152, 162,167,152, 166,170,151, 171,173,150, & 174,175,149, 177,177,148, 179,180,146, 182,182,144, & 184,184,142, 186,186,140, 189,188,138, 191,190,136, & 193,193,135, 196,195,133, 199,198,132, 202,201,131, & 205,205,131, 210,209,132, 215,215,135, 221,221,139, & 227,226,144, 232,232,149, 238,238,156, 244,244,164, & 249,249,171, 254,254,178 & ], shape(nuuk50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: nuukS=reshape( [ & 5, 89,140, 254,254,178, 161,166,152, 83,119,133, & 195,195,133, 45,100,131, 181,181,145, 125,143,145, & 221,221,139, 188,188,139, 173,174,149, 145,155,150, & 104,131,139, 63,108,130, 28, 94,135, 205,205,131, & 238,238,156, 135,149,148, 177,178,147, 94,125,136, & 115,137,142, 200,199,131, 246,246,167, 192,191,136, & 153,160,151, 212,212,134, 73,113,131, 167,170,151, & 185,185,142, 19, 92,137, 37, 97,133, 54,104,130, & 230,230,147, 99,128,137, 170,172,150, 175,176,148, & 183,183,143, 179,180,146, 50,102,130, 130,146,147, & 110,134,140, 24, 93,136, 78,116,132, 250,250,173, & 225,225,143, 202,202,131, 41, 98,132, 164,168,151, & 13, 91,139, 193,193,134, 209,208,132, 216,216,136, & 59,106,130, 120,140,144, 190,189,137, 149,158,151, & 157,163,152, 242,242,161, 197,197,132, 33, 95,134, & 88,122,134, 186,186,140, 140,152,149, 68,111,130, & 235,234,152, 147,156,151, 192,192,135, 171,173,150, & 252,252,175, 118,139,143, 219,218,137, 214,214,135, & 112,135,141, 189,189,138, 228,227,145, 210,210,133, & 31, 95,134, 16, 91,138, 166,169,151, 9, 90,140, & 66,109,130, 21, 92,137, 196,196,133, 70,112,131, & 240,240,158, 191,190,136, 199,198,132, 133,148,147, & 96,126,136, 180,181,145, 204,203,131, 207,207,132, & 223,223,141, 187,187,139, 138,151,149, 142,154,150, & 39, 97,132, 128,145,146, 162,167,152, 47,101,131 & ], shape(nuukS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: oleron=reshape( [ & 26, 38, 89, 27, 40, 91, 29, 41, 92, 30, 43, 94, & 32, 44, 95, 33, 46, 97, 35, 47, 98, 36, 49,100, & 38, 50,101, 40, 52,103, 41, 53,104, 43, 55,106, & 44, 56,107, 46, 58,109, 47, 59,111, 49, 61,112, & 50, 63,114, 52, 64,115, 53, 66,117, 55, 67,118, & 57, 69,120, 58, 71,122, 60, 72,123, 61, 74,125, & 63, 75,126, 65, 77,128, 66, 79,130, 68, 80,131, & 69, 82,133, 71, 84,135, 73, 85,136, 74, 87,138, & 76, 89,140, 78, 90,141, 79, 92,143, 81, 94,145, & 83, 95,146, 84, 97,148, 86, 99,150, 88,100,151, & 89,102,153, 91,104,155, 93,105,156, 94,107,158, & 96,109,160, 98,111,162, 100,112,163, 101,114,165, & 103,116,167, 105,117,169, 107,119,170, 108,121,172, & 110,123,174, 112,125,176, 114,126,177, 115,128,179, & 117,130,181, 119,132,183, 121,133,184, 122,135,186, & 124,137,188, 126,139,190, 128,141,192, 130,142,193, & 131,144,195, 133,146,197, 135,148,199, 137,150,201, & 139,151,202, 141,153,204, 142,155,206, 144,157,208, & 146,159,210, 148,161,211, 150,162,213, 152,164,215, & 153,166,217, 155,168,219, 157,170,220, 159,172,222, & 161,173,224, 163,175,225, 164,177,227, 166,179,229, & 168,181,230, 170,183,232, 172,184,233, 173,186,234, & 175,188,236, 177,189,237, 178,191,238, 180,193,239, & 182,194,240, 183,196,241, 185,198,242, 186,199,243, & 188,201,243, 189,202,244, 191,203,244, 192,205,245, & 194,206,245, 195,208,246, 196,209,246, 198,210,247, & 199,212,247, 200,213,248, 202,214,248, 203,216,248, & 204,217,249, 206,218,249, 207,220,249, 208,221,250, & 210,222,250, 211,224,250, 212,225,251, 214,226,251, & 215,228,251, 216,229,252, 218,230,252, 219,232,252, & 220,233,253, 222,234,253, 223,236,253, 224,237,254, & 226,238,254, 227,240,254, 228,241,255, 230,242,255, & 26, 76, 0, 29, 77, 0, 31, 78, 0, 34, 79, 0, & 37, 79, 0, 39, 80, 0, 42, 81, 0, 44, 81, 0, & 47, 82, 0, 49, 83, 0, 51, 84, 0, 53, 84, 0, & 56, 85, 0, 58, 86, 0, 60, 86, 0, 62, 87, 0, & 64, 87, 0, 66, 88, 0, 68, 89, 0, 70, 89, 0, & 73, 90, 1, 75, 91, 1, 77, 92, 1, 79, 92, 2, & 81, 93, 2, 83, 94, 2, 85, 95, 3, 87, 96, 4, & 90, 96, 5, 92, 97, 6, 94, 98, 7, 96, 99, 9, & 99,100, 10, 101,102, 12, 103,103, 14, 106,104, 16, & 108,105, 18, 110,106, 20, 113,108, 22, 115,109, 24, & 117,110, 26, 120,112, 29, 122,113, 31, 124,114, 33, & 126,116, 35, 129,117, 37, 131,118, 40, 133,120, 42, & 135,121, 44, 138,123, 46, 140,124, 49, 142,125, 51, & 144,127, 53, 146,128, 55, 148,130, 58, 151,131, 60, & 153,132, 62, 155,134, 64, 157,135, 67, 159,137, 69, & 161,138, 71, 163,140, 73, 166,141, 76, 168,143, 78, & 170,144, 80, 172,146, 83, 174,147, 85, 177,149, 87, & 179,151, 89, 181,152, 92, 183,154, 94, 186,156, 96, & 188,157, 99, 190,159,101, 193,161,103, 195,163,106, & 197,164,108, 199,166,110, 202,168,113, 204,170,115, & 206,172,117, 209,173,120, 211,175,122, 213,177,124, & 215,179,127, 217,181,129, 220,182,132, 222,184,134, & 224,186,137, 226,188,139, 228,190,142, 229,192,144, & 231,194,147, 233,196,149, 234,197,152, 236,199,154, & 237,201,157, 238,203,159, 240,205,162, 241,206,164, & 242,208,167, 242,210,169, 243,212,171, 244,213,174, & 245,215,176, 245,217,178, 246,218,181, 246,220,183, & 247,222,185, 247,223,188, 247,225,190, 248,226,192, & 248,228,195, 248,230,197, 249,231,199, 249,233,201, & 249,234,204, 250,236,206, 250,238,208, 250,239,211, & 251,241,213, 251,243,215, 251,244,218, 251,246,220, & 252,248,222, 252,249,225, 252,251,227, 253,253,230 & ], shape(oleron), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: oleron10=reshape( [ & 26, 38, 89, 69, 82,133, 119,132,183, 170,183,232, & 211,224,250, 60, 86, 0, 122,113, 31, 183,154, 94, & 241,206,164, 253,253,230 & ], shape(oleron10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: oleron100=reshape( [ & 26, 38, 89, 30, 43, 94, 33, 46, 97, 38, 50,101, & 41, 53,104, 46, 58,109, 49, 61,112, 53, 66,117, & 58, 71,122, 61, 74,125, 66, 79,130, 69, 82,133, & 74, 87,138, 78, 90,141, 83, 95,146, 88,100,151, & 91,104,155, 96,109,160, 100,112,163, 105,117,169, & 110,123,174, 114,126,177, 119,132,183, 122,135,186, & 128,141,192, 131,144,195, 137,150,201, 142,155,206, & 146,159,210, 152,164,215, 155,168,219, 161,173,224, & 164,177,227, 170,183,232, 175,188,236, 178,191,238, & 183,196,241, 186,199,243, 191,203,244, 194,206,245, & 198,210,247, 202,214,248, 204,217,249, 208,221,250, & 211,224,250, 215,228,251, 218,230,252, 222,234,253, & 226,238,254, 228,241,255, 29, 77, 0, 34, 79, 0, & 42, 81, 0, 49, 83, 0, 53, 84, 0, 60, 86, 0, & 64, 87, 0, 70, 89, 0, 75, 91, 1, 81, 93, 2, & 87, 96, 4, 92, 97, 6, 99,100, 10, 103,103, 14, & 110,106, 20, 115,109, 24, 122,113, 31, 129,117, 37, & 133,120, 42, 140,124, 49, 144,127, 53, 151,131, 60, & 155,134, 64, 161,138, 71, 168,143, 78, 172,146, 83, & 179,151, 89, 183,154, 94, 190,159,101, 195,163,106, & 202,168,113, 209,173,120, 213,177,124, 220,182,132, & 224,186,137, 229,192,144, 234,197,152, 237,201,157, & 241,206,164, 242,210,169, 245,215,176, 246,218,181, & 247,223,188, 248,228,195, 249,231,199, 250,236,206, & 250,239,211, 251,244,218, 252,248,222, 253,253,230 & ], shape(oleron100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: oleron25=reshape( [ & 26, 38, 89, 43, 55,106, 58, 71,122, 76, 89,140, & 94,107,158, 112,125,176, 131,144,195, 150,162,213, & 170,183,232, 188,201,243, 202,214,248, 216,229,252, & 26, 76, 0, 51, 84, 0, 75, 91, 1, 96, 99, 9, & 122,113, 31, 146,128, 55, 168,143, 78, 193,161,103, & 217,181,129, 236,199,154, 246,218,181, 249,234,204, & 253,253,230 & ], shape(oleron25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: oleron50=reshape( [ & 26, 38, 89, 33, 46, 97, 41, 53,104, 50, 63,114, & 58, 71,122, 66, 79,130, 74, 87,138, 83, 95,146, & 93,105,156, 101,114,165, 110,123,174, 119,132,183, & 128,141,192, 139,151,202, 148,161,211, 157,170,220, & 166,179,229, 175,188,236, 185,198,242, 192,205,245, & 199,212,247, 206,218,249, 212,225,251, 220,233,253, & 227,240,254, 31, 78, 0, 44, 81, 0, 58, 86, 0, & 68, 89, 0, 79, 92, 2, 90, 96, 5, 101,102, 12, & 115,109, 24, 126,116, 35, 138,123, 46, 148,130, 58, & 159,137, 69, 172,146, 83, 183,154, 94, 195,163,106, & 206,172,117, 217,181,129, 229,192,144, 237,201,157, & 242,210,169, 246,218,181, 248,226,192, 250,236,206, & 251,244,218, 253,253,230 & ], shape(oleron50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: oslo=reshape( [ & 1, 1, 1, 1, 2, 3, 2, 4, 5, 2, 5, 7, & 3, 6, 9, 4, 7, 11, 4, 8, 13, 5, 9, 15, & 5, 10, 16, 6, 11, 18, 6, 12, 19, 7, 13, 21, & 8, 14, 22, 8, 15, 23, 9, 16, 24, 9, 17, 25, & 10, 18, 27, 11, 19, 28, 11, 19, 29, 11, 20, 30, & 12, 21, 31, 12, 22, 32, 13, 22, 34, 13, 23, 35, & 13, 24, 36, 13, 25, 37, 13, 25, 39, 13, 26, 40, & 13, 27, 41, 14, 27, 42, 14, 28, 44, 14, 29, 45, & 14, 30, 46, 14, 30, 47, 14, 31, 49, 14, 32, 50, & 15, 33, 51, 15, 33, 53, 15, 34, 54, 15, 35, 55, & 15, 36, 57, 15, 37, 58, 16, 38, 60, 16, 38, 61, & 16, 39, 62, 16, 40, 64, 16, 41, 65, 17, 42, 67, & 17, 43, 68, 17, 43, 69, 17, 44, 71, 18, 45, 72, & 18, 46, 74, 18, 47, 75, 18, 48, 76, 19, 49, 78, & 19, 50, 79, 19, 50, 81, 20, 51, 82, 20, 52, 84, & 20, 53, 85, 20, 54, 87, 21, 55, 88, 21, 56, 90, & 21, 57, 91, 22, 58, 93, 22, 59, 94, 23, 59, 96, & 23, 60, 97, 23, 61, 99, 24, 62,100, 24, 63,102, & 25, 64,103, 25, 65,105, 25, 66,106, 26, 67,108, & 26, 68,109, 27, 69,111, 27, 70,112, 28, 71,114, & 28, 72,115, 29, 72,117, 29, 73,118, 30, 74,120, & 30, 75,122, 31, 76,123, 32, 77,125, 32, 78,126, & 33, 79,128, 33, 80,129, 34, 81,131, 35, 82,133, & 35, 83,134, 36, 84,136, 37, 85,137, 38, 86,139, & 38, 87,140, 39, 88,142, 40, 89,144, 41, 90,145, & 42, 91,147, 43, 92,148, 44, 93,150, 45, 94,152, & 46, 95,153, 47, 96,155, 48, 97,156, 49, 98,158, & 50, 99,160, 51,100,161, 52,101,163, 54,102,164, & 55,103,166, 56,105,168, 58,106,169, 59,107,171, & 61,108,172, 62,109,174, 64,110,175, 65,112,177, & 67,113,178, 68,114,179, 70,115,181, 71,117,182, & 73,118,184, 75,119,185, 76,120,186, 78,122,187, & 80,123,188, 81,124,189, 83,125,190, 84,126,191, & 86,127,192, 88,129,193, 89,130,194, 91,131,195, & 92,132,195, 94,133,196, 96,134,197, 97,135,197, & 99,136,198, 100,137,198, 101,138,199, 103,139,199, & 104,140,199, 106,141,200, 107,142,200, 108,143,200, & 110,144,200, 111,144,201, 112,145,201, 114,146,201, & 115,147,201, 116,148,201, 117,148,201, 119,149,201, & 120,150,201, 121,151,202, 122,152,202, 123,152,202, & 125,153,202, 126,154,202, 127,155,202, 128,155,202, & 129,156,202, 131,157,202, 132,158,202, 133,158,202, & 134,159,202, 135,160,202, 137,160,202, 138,161,202, & 139,162,201, 140,163,201, 141,163,201, 142,164,201, & 144,165,201, 145,166,201, 146,166,201, 147,167,201, & 148,168,201, 150,169,201, 151,169,201, 152,170,201, & 153,171,201, 154,172,201, 156,172,201, 157,173,201, & 158,174,201, 159,175,201, 160,175,201, 162,176,202, & 163,177,202, 164,178,202, 165,179,202, 167,180,202, & 168,180,202, 169,181,202, 170,182,202, 172,183,202, & 173,184,203, 174,185,203, 176,186,203, 177,187,203, & 178,188,204, 180,189,204, 181,189,204, 182,190,205, & 184,191,205, 185,193,205, 186,194,206, 188,195,206, & 189,196,207, 191,197,207, 192,198,208, 194,199,209, & 195,200,209, 197,201,210, 198,203,211, 199,204,211, & 201,205,212, 202,206,213, 204,208,214, 206,209,215, & 207,210,216, 209,211,217, 210,213,218, 212,214,219, & 213,216,220, 215,217,221, 216,218,222, 218,220,223, & 219,221,224, 221,222,225, 222,224,226, 224,225,228, & 226,227,229, 227,228,230, 229,230,231, 230,231,233, & 232,233,234, 233,234,235, 235,236,237, 236,237,238, & 238,238,239, 239,240,241, 241,241,242, 243,243,244, & 244,244,245, 246,246,246, 247,247,248, 249,249,249, & 250,250,251, 252,252,252, 253,253,254, 255,255,255 & ], shape(oslo), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: oslo10=reshape( [ & 1, 1, 1, 13, 27, 41, 19, 50, 81, 31, 76,123, & 56,105,168, 101,138,199, 137,160,202, 170,182,202, & 212,214,219, 255,255,255 & ], shape(oslo10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: oslo100=reshape( [ & 1, 1, 1, 2, 5, 7, 4, 7, 11, 5, 10, 16, & 6, 12, 19, 8, 15, 23, 9, 17, 25, 11, 19, 29, & 12, 22, 32, 13, 23, 35, 13, 25, 39, 13, 27, 41, & 14, 29, 45, 14, 30, 47, 15, 33, 51, 15, 35, 55, & 15, 37, 58, 16, 39, 62, 16, 41, 65, 17, 43, 69, & 18, 46, 74, 18, 48, 76, 19, 50, 81, 20, 52, 84, & 21, 55, 88, 21, 57, 91, 23, 59, 96, 24, 62,100, & 25, 64,103, 26, 67,108, 27, 69,111, 28, 72,115, & 29, 73,118, 31, 76,123, 33, 79,128, 34, 81,131, & 36, 84,136, 38, 86,139, 40, 89,144, 42, 91,147, & 45, 94,152, 48, 97,156, 50, 99,160, 54,102,164, & 56,105,168, 61,108,172, 64,110,175, 68,114,179, & 73,118,184, 76,120,186, 81,124,189, 84,126,191, & 89,130,194, 94,133,196, 97,135,197, 101,138,199, & 104,140,199, 108,143,200, 111,144,201, 115,147,201, & 119,149,201, 121,151,202, 125,153,202, 127,155,202, & 131,157,202, 133,158,202, 137,160,202, 140,163,201, & 142,164,201, 146,166,201, 148,168,201, 152,170,201, & 154,172,201, 158,174,201, 162,176,202, 164,178,202, & 168,180,202, 170,182,202, 174,185,203, 177,187,203, & 181,189,204, 185,193,205, 188,195,206, 192,198,208, & 195,200,209, 199,204,211, 204,208,214, 207,210,216, & 212,214,219, 215,217,221, 219,221,224, 222,224,226, & 227,228,230, 232,233,234, 235,236,237, 239,240,241, & 243,243,244, 247,247,248, 250,250,251, 255,255,255 & ], shape(oslo100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: oslo25=reshape( [ & 1, 1, 1, 7, 13, 21, 12, 22, 32, 14, 30, 46, & 16, 38, 61, 18, 47, 75, 21, 57, 91, 25, 66,106, & 31, 76,123, 38, 87,140, 48, 97,156, 62,109,174, & 80,123,188, 96,134,197, 111,144,201, 123,152,202, & 137,160,202, 150,169,201, 162,176,202, 176,186,203, & 191,197,207, 206,209,215, 222,224,226, 238,238,239, & 255,255,255 & ], shape(oslo25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: oslo50=reshape( [ & 1, 1, 1, 4, 7, 11, 6, 12, 19, 10, 18, 27, & 12, 22, 32, 13, 25, 39, 14, 29, 45, 15, 33, 51, & 16, 38, 60, 17, 42, 67, 18, 46, 74, 19, 50, 81, & 21, 55, 88, 23, 60, 97, 25, 65,105, 27, 70,112, & 30, 74,120, 33, 79,128, 37, 85,137, 41, 90,145, & 46, 95,153, 51,100,161, 58,106,169, 67,113,178, & 75,119,185, 83,125,190, 91,131,195, 100,137,198, & 107,142,200, 114,146,201, 120,150,201, 126,154,202, & 133,158,202, 139,162,201, 145,166,201, 151,169,201, & 157,173,201, 164,178,202, 170,182,202, 177,187,203, & 184,191,205, 191,197,207, 199,204,211, 207,210,216, & 215,217,221, 222,224,226, 230,231,233, 239,240,241, & 247,247,248, 255,255,255 & ], shape(oslo50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: osloS=reshape( [ & 3, 6, 9, 249,249,249, 80,123,188, 22, 59, 94, & 160,175,201, 14, 32, 50, 123,152,202, 39, 88,142, & 202,206,213, 11, 20, 30, 18, 45, 72, 55,103,166, & 181,189,204, 103,139,199, 29, 73,118, 141,163,201, & 226,227,229, 25, 66,106, 16, 38, 61, 114,146,201, & 151,169,201, 67,113,178, 13, 26, 40, 170,182,202, & 47, 96,155, 215,217,221, 34, 81,131, 191,197,207, & 20, 52, 84, 238,238,239, 132,158,202, 8, 14, 22, & 91,131,195, 32, 77,125, 13, 23, 35, 73,118,184, & 137,160,202, 24, 62,100, 61,108,172, 14, 29, 45, & 108,143,200, 27, 70,112, 5, 10, 16, 209,211,217, & 19, 49, 78, 165,179,202, 17, 42, 67, 232,233,234, & 146,166,201, 197,201,210, 156,172,201, 97,135,197, & 119,149,201, 43, 92,148, 15, 35, 55, 176,186,203, & 50, 99,160, 243,243,244, 10, 18, 27, 36, 84,136, & 86,127,192, 127,155,202, 219,221,224, 186,194,206, & 21, 55, 88, 17, 43, 69, 6, 12, 19, 70,115,181, & 23, 60, 97, 212,214,219, 148,168,201, 76,120,186, & 13, 25, 37, 100,137,198, 139,162,201, 121,151,202, & 45, 94,152, 14, 30, 47, 184,191,205, 25, 64,103, & 94,133,196, 178,188,204, 83,125,190, 28, 72,115, & 206,209,215, 12, 22, 32, 158,174,201, 222,224,226, & 52,101,163, 58,106,169, 15, 37, 58, 235,236,237, & 194,199,209, 64,110,175, 33, 79,128, 15, 33, 53, & 229,230,231, 4, 8, 13, 19, 50, 81, 30, 75,122 & ], shape(osloS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: roma=reshape( [ & 126, 23, 0, 127, 26, 1, 128, 29, 2, 129, 32, 3, & 130, 34, 4, 131, 37, 4, 132, 39, 5, 133, 42, 6, & 134, 44, 6, 135, 46, 7, 136, 48, 8, 138, 50, 8, & 139, 52, 9, 140, 54, 10, 141, 56, 11, 142, 58, 11, & 143, 60, 12, 144, 62, 13, 144, 64, 14, 145, 66, 15, & 146, 68, 15, 147, 70, 16, 148, 71, 17, 149, 73, 18, & 150, 75, 18, 151, 77, 19, 152, 78, 20, 153, 80, 20, & 153, 82, 21, 154, 83, 22, 155, 85, 23, 156, 87, 23, & 157, 88, 24, 158, 90, 25, 158, 92, 25, 159, 93, 26, & 160, 95, 27, 161, 97, 28, 162, 98, 28, 162,100, 29, & 163,101, 30, 164,103, 30, 165,104, 31, 166,106, 32, & 166,108, 32, 167,109, 33, 168,111, 34, 169,112, 35, & 169,114, 35, 170,115, 36, 171,117, 37, 172,119, 38, & 173,120, 38, 173,122, 39, 174,124, 40, 175,125, 41, & 176,127, 42, 176,128, 43, 177,130, 44, 178,132, 45, & 179,134, 46, 180,135, 47, 181,137, 48, 181,139, 49, & 182,140, 50, 183,142, 51, 184,144, 52, 185,146, 53, & 186,148, 55, 186,149, 56, 187,151, 57, 188,153, 59, & 189,155, 60, 190,157, 62, 191,159, 64, 192,161, 65, & 193,163, 67, 193,165, 69, 194,166, 71, 195,168, 72, & 196,170, 74, 197,172, 76, 198,174, 79, 199,176, 81, & 199,178, 83, 200,180, 85, 201,182, 88, 202,184, 90, & 203,186, 93, 203,188, 95, 204,190, 98, 205,192,100, & 206,194,103, 206,196,106, 207,198,109, 207,200,111, & 208,202,114, 208,204,117, 209,205,120, 209,207,123, & 210,209,126, 210,211,129, 210,212,132, 210,214,135, & 210,215,138, 210,217,141, 210,218,144, 210,220,147, & 210,221,150, 210,222,152, 209,223,155, 209,225,158, & 209,226,161, 208,227,163, 208,228,166, 207,229,168, & 206,229,171, 205,230,173, 204,231,176, 204,231,178, & 203,232,180, 201,233,182, 200,233,184, 199,233,186, & 198,234,188, 196,234,190, 195,234,192, 193,234,194, & 192,234,195, 190,234,197, 189,234,198, 187,234,200, & 185,234,201, 183,234,202, 181,234,204, 179,233,205, & 177,233,206, 175,232,207, 173,232,208, 171,231,209, & 169,231,210, 166,230,210, 164,229,211, 162,229,212, & 159,228,212, 157,227,213, 155,226,213, 152,225,214, & 149,224,214, 147,223,214, 144,222,215, 142,221,215, & 139,220,215, 137,218,215, 134,217,215, 131,216,215, & 129,215,215, 126,213,215, 123,212,215, 121,210,215, & 118,209,215, 116,207,214, 113,206,214, 110,204,214, & 108,203,214, 105,201,213, 103,199,213, 100,198,213, & 98,196,212, 96,195,212, 93,193,211, 91,191,211, & 89,189,210, 87,188,210, 85,186,209, 83,184,209, & 81,183,208, 79,181,208, 77,179,207, 75,178,206, & 73,176,206, 71,174,205, 70,172,204, 68,171,204, & 67,169,203, 65,167,203, 64,166,202, 62,164,201, & 61,162,201, 60,161,200, 58,159,199, 57,157,199, & 56,156,198, 55,154,197, 54,152,197, 53,151,196, & 52,149,195, 51,148,195, 50,146,194, 49,144,193, & 48,143,193, 48,141,192, 47,140,191, 46,138,191, & 45,136,190, 45,135,189, 44,133,189, 43,132,188, & 43,130,187, 42,129,187, 41,127,186, 41,126,185, & 40,124,185, 40,122,184, 39,121,183, 38,119,183, & 38,118,182, 37,116,181, 37,115,181, 36,113,180, & 36,111,179, 35,110,179, 35,108,178, 34,106,177, & 34,105,176, 33,103,176, 33,102,175, 32,100,174, & 32, 98,174, 31, 96,173, 30, 95,172, 30, 93,171, & 29, 91,171, 29, 90,170, 28, 88,169, 27, 86,168, & 27, 84,168, 26, 83,167, 25, 81,166, 25, 79,165, & 24, 77,164, 23, 76,164, 22, 74,163, 21, 72,162, & 20, 70,161, 19, 68,160, 18, 66,160, 17, 64,159, & 15, 63,158, 14, 61,157, 12, 59,156, 11, 57,156, & 9, 55,155, 7, 53,154, 5, 51,153, 3, 49,152 & ], shape(roma), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: roma10=reshape( [ & 126, 23, 0, 153, 82, 21, 176,128, 43, 200,180, 85, & 208,227,163, 164,229,211, 93,193,211, 50,146,194, & 32,100,174, 3, 49,152 & ], shape(roma10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: roma100=reshape( [ & 126, 23, 0, 129, 32, 3, 131, 37, 4, 134, 44, 6, & 136, 48, 8, 140, 54, 10, 142, 58, 11, 144, 64, 14, & 147, 70, 16, 149, 73, 18, 152, 78, 20, 153, 82, 21, & 156, 87, 23, 158, 90, 25, 160, 95, 27, 162,100, 29, & 164,103, 30, 166,108, 32, 168,111, 34, 170,115, 36, & 173,120, 38, 174,124, 40, 176,128, 43, 178,132, 45, & 181,137, 48, 182,140, 50, 185,146, 53, 187,151, 57, & 189,155, 60, 192,161, 65, 193,165, 69, 196,170, 74, & 198,174, 79, 200,180, 85, 203,186, 93, 204,190, 98, & 206,196,106, 207,200,111, 209,205,120, 210,209,126, & 210,214,135, 210,218,144, 210,221,150, 209,225,158, & 208,227,163, 206,229,171, 204,231,176, 201,233,182, & 198,234,188, 195,234,192, 190,234,197, 187,234,200, & 181,234,204, 175,232,207, 171,231,209, 164,229,211, & 159,228,212, 152,225,214, 147,223,214, 139,220,215, & 131,216,215, 126,213,215, 118,209,215, 113,206,214, & 105,201,213, 100,198,213, 93,193,211, 87,188,210, & 83,184,209, 77,179,207, 73,176,206, 68,171,204, & 65,167,203, 61,162,201, 57,157,199, 55,154,197, & 52,149,195, 50,146,194, 48,141,192, 46,138,191, & 44,133,189, 42,129,187, 41,126,185, 39,121,183, & 38,118,182, 36,113,180, 35,108,178, 34,105,176, & 32,100,174, 31, 96,173, 29, 91,171, 28, 88,169, & 26, 83,167, 24, 77,164, 22, 74,163, 19, 68,160, & 17, 64,159, 12, 59,156, 9, 55,155, 3, 49,152 & ], shape(roma100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: roma25=reshape( [ & 126, 23, 0, 138, 50, 8, 147, 70, 16, 157, 88, 24, & 166,106, 32, 173,122, 39, 182,140, 50, 191,159, 64, & 200,180, 85, 208,202,114, 210,218,144, 205,230,173, & 192,234,195, 173,232,208, 147,223,214, 121,210,215, & 93,193,211, 71,174,205, 57,157,199, 47,140,191, & 40,122,184, 34,106,177, 28, 88,169, 20, 70,161, & 3, 49,152 & ], shape(roma25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: roma50=reshape( [ & 126, 23, 0, 131, 37, 4, 136, 48, 8, 143, 60, 12, & 147, 70, 16, 152, 78, 20, 156, 87, 23, 160, 95, 27, & 165,104, 31, 169,112, 35, 173,120, 38, 176,128, 43, & 181,137, 48, 186,148, 55, 190,157, 62, 194,166, 71, & 199,176, 81, 203,186, 93, 207,198,109, 209,207,123, & 210,215,138, 210,222,152, 208,228,166, 203,232,180, & 196,234,190, 189,234,198, 179,233,205, 166,230,210, & 155,226,213, 142,221,215, 129,215,215, 116,207,214, & 100,198,213, 89,189,210, 79,181,208, 70,172,204, & 62,164,201, 55,154,197, 50,146,194, 46,138,191, & 43,130,187, 40,122,184, 36,113,180, 34,105,176, & 31, 96,173, 28, 88,169, 25, 79,165, 19, 68,160, & 12, 59,156, 3, 49,152 & ], shape(roma50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: romaO=reshape( [ & 115, 57, 87, 116, 57, 86, 117, 57, 84, 117, 56, 83, & 118, 56, 81, 119, 56, 80, 119, 56, 79, 120, 56, 77, & 121, 56, 76, 121, 56, 75, 122, 56, 73, 123, 56, 72, & 124, 56, 71, 124, 57, 70, 125, 57, 69, 126, 57, 67, & 126, 57, 66, 127, 58, 65, 128, 58, 64, 129, 59, 63, & 129, 59, 62, 130, 60, 61, 131, 60, 60, 132, 61, 59, & 132, 61, 58, 133, 62, 57, 134, 63, 56, 135, 64, 55, & 135, 64, 55, 136, 65, 54, 137, 66, 53, 138, 67, 52, & 139, 68, 51, 140, 69, 51, 140, 70, 50, 141, 71, 49, & 142, 72, 49, 143, 73, 48, 144, 74, 48, 145, 76, 47, & 146, 77, 47, 147, 78, 46, 148, 80, 46, 148, 81, 45, & 149, 82, 45, 150, 84, 45, 151, 85, 44, 152, 87, 44, & 153, 88, 44, 154, 90, 44, 155, 91, 44, 156, 93, 43, & 157, 95, 43, 158, 96, 43, 159, 98, 43, 160,100, 44, & 162,102, 44, 163,103, 44, 164,105, 44, 165,107, 45, & 166,109, 45, 167,111, 45, 168,113, 46, 169,115, 46, & 170,117, 47, 171,119, 48, 173,121, 48, 174,123, 49, & 175,125, 50, 176,127, 51, 177,129, 52, 178,131, 53, & 180,134, 54, 181,136, 55, 182,138, 57, 183,140, 58, & 184,142, 59, 185,145, 61, 187,147, 63, 188,149, 64, & 189,152, 66, 190,154, 68, 191,156, 70, 193,159, 71, & 194,161, 73, 195,163, 75, 196,165, 78, 197,168, 80, & 198,170, 82, 200,172, 84, 201,175, 87, 202,177, 89, & 203,179, 92, 204,181, 94, 205,183, 97, 206,186, 99, & 207,188,102, 207,190,104, 208,192,107, 209,194,110, & 210,196,112, 210,198,115, 211,200,118, 212,201,120, & 212,203,123, 212,205,126, 213,206,129, 213,208,131, & 213,209,134, 214,211,136, 214,212,139, 214,213,142, & 214,215,144, 214,216,147, 213,217,149, 213,218,152, & 213,219,154, 212,220,156, 212,221,159, 211,221,161, & 211,222,163, 210,223,165, 209,223,167, 208,224,169, & 207,224,171, 206,224,173, 205,225,175, 204,225,177, & 203,225,179, 202,225,181, 200,225,182, 199,225,184, & 197,225,185, 196,225,187, 194,225,188, 193,225,190, & 191,225,191, 189,224,192, 187,224,194, 185,223,195, & 184,223,196, 182,222,197, 180,222,198, 177,221,199, & 175,220,200, 173,220,200, 171,219,201, 169,218,202, & 167,217,203, 164,216,203, 162,215,204, 160,214,204, & 157,213,205, 155,212,205, 153,211,206, 150,209,206, & 148,208,206, 146,207,206, 143,206,207, 141,204,207, & 139,203,207, 136,201,207, 134,200,207, 132,198,207, & 129,197,207, 127,195,207, 125,194,206, 123,192,206, & 120,190,206, 118,189,206, 116,187,205, 114,185,205, & 112,184,205, 110,182,204, 108,180,204, 106,178,203, & 104,177,203, 103,175,202, 101,173,202, 99,171,201, & 98,169,201, 96,168,200, 95,166,199, 93,164,199, & 92,162,198, 90,160,197, 89,158,196, 88,156,196, & 87,155,195, 86,153,194, 85,151,193, 84,149,192, & 83,147,191, 82,145,190, 82,143,189, 81,141,188, & 80,139,187, 80,138,186, 79,136,185, 79,134,184, & 79,132,183, 79,130,182, 78,128,180, 78,126,179, & 78,124,178, 78,122,176, 79,120,175, 79,118,174, & 79,117,172, 79,115,171, 80,113,169, 80,111,168, & 81,109,166, 81,107,164, 82,105,163, 82,103,161, & 83,102,159, 84,100,158, 84, 98,156, 85, 96,154, & 86, 95,152, 87, 93,150, 87, 91,148, 88, 89,147, & 89, 88,145, 90, 86,143, 91, 85,141, 92, 83,139, & 92, 82,137, 93, 80,135, 94, 79,133, 95, 77,131, & 96, 76,129, 97, 75,127, 98, 73,125, 99, 72,123, & 99, 71,121, 100, 70,119, 101, 69,118, 102, 68,116, & 103, 67,114, 104, 66,112, 104, 65,110, 105, 64,108, & 106, 63,107, 107, 63,105, 108, 62,103, 108, 61,101, & 109, 61,100, 110, 60, 98, 111, 59, 96, 111, 59, 95, & 112, 58, 93, 113, 58, 92, 114, 58, 90, 114, 57, 89 & ], shape(romaO), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: romaO10=reshape( [ & 115, 57, 87, 135, 64, 55, 163,103, 44, 195,163, 75, & 214,216,147, 180,222,198, 116,187,205, 79,136,185, & 92, 83,139, 114, 57, 89 & ], shape(romaO10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: romaO100=reshape( [ & 115, 57, 87, 117, 56, 83, 119, 56, 80, 121, 56, 76, & 122, 56, 73, 124, 57, 70, 126, 57, 67, 128, 58, 64, & 130, 60, 61, 132, 61, 59, 134, 63, 56, 135, 64, 55, & 138, 67, 52, 140, 69, 51, 142, 72, 49, 145, 76, 47, & 147, 78, 46, 149, 82, 45, 151, 85, 44, 154, 90, 44, & 157, 95, 43, 159, 98, 43, 163,103, 44, 165,107, 45, & 168,113, 46, 170,117, 47, 174,123, 49, 177,129, 52, & 180,134, 54, 183,140, 58, 185,145, 61, 189,152, 66, & 191,156, 70, 195,163, 75, 198,170, 82, 201,175, 87, & 204,181, 94, 206,186, 99, 208,192,107, 210,196,112, & 212,201,120, 213,206,129, 213,209,134, 214,213,142, & 214,216,147, 213,219,154, 212,221,159, 210,223,165, & 207,224,171, 205,225,175, 202,225,181, 199,225,184, & 194,225,188, 189,224,192, 185,223,195, 180,222,198, & 175,220,200, 169,218,202, 164,216,203, 157,213,205, & 150,209,206, 146,207,206, 139,203,207, 134,200,207, & 127,195,207, 123,192,206, 116,187,205, 110,182,204, & 106,178,203, 101,173,202, 98,169,201, 93,164,199, & 90,160,197, 87,155,195, 84,149,192, 82,145,190, & 80,139,187, 79,136,185, 79,130,182, 78,126,179, & 79,120,175, 79,115,171, 80,111,168, 82,105,163, & 83,102,159, 85, 96,154, 87, 91,148, 89, 88,145, & 92, 83,139, 93, 80,135, 96, 76,129, 98, 73,125, & 100, 70,119, 103, 67,114, 104, 65,110, 107, 63,105, & 108, 61,101, 111, 59, 96, 112, 58, 93, 114, 57, 89 & ], shape(romaO100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: romaO25=reshape( [ & 115, 57, 87, 123, 56, 72, 130, 60, 61, 139, 68, 51, & 148, 81, 45, 158, 96, 43, 170,117, 47, 182,138, 57, & 195,163, 75, 207,188,102, 213,206,129, 212,220,156, & 203,225,179, 187,224,194, 164,216,203, 141,204,207, & 116,187,205, 96,168,200, 84,149,192, 78,128,180, & 81,107,164, 88, 89,147, 98, 73,125, 106, 63,107, & 114, 57, 89 & ], shape(romaO25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: romaO50=reshape( [ & 115, 57, 87, 119, 56, 80, 122, 56, 73, 126, 57, 66, & 130, 60, 61, 134, 63, 56, 138, 67, 52, 142, 72, 49, & 148, 80, 46, 152, 87, 44, 157, 95, 43, 163,103, 44, & 168,113, 46, 175,125, 50, 181,136, 55, 187,147, 63, & 193,159, 71, 198,170, 82, 205,183, 97, 209,194,110, & 212,203,123, 214,211,136, 213,217,149, 211,222,163, & 206,224,173, 200,225,182, 193,225,190, 182,222,197, & 171,219,201, 160,214,204, 148,208,206, 136,201,207, & 123,192,206, 112,184,205, 103,175,202, 95,166,199, & 88,156,196, 82,145,190, 79,136,185, 78,126,179, & 79,117,172, 81,107,164, 85, 96,154, 89, 88,145, & 93, 80,135, 98, 73,125, 102, 68,116, 107, 63,105, & 111, 59, 96, 114, 57, 89 & ], shape(romaO50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: tofino=reshape( [ & 222,217,255, 219,215,254, 217,213,253, 214,211,251, & 211,209,250, 208,207,249, 206,205,248, 203,203,247, & 200,202,246, 198,200,244, 195,198,243, 192,196,242, & 190,194,241, 187,192,240, 184,190,239, 182,188,237, & 179,187,236, 176,185,235, 174,183,234, 171,181,233, & 168,179,232, 166,177,230, 163,175,229, 160,173,228, & 158,172,227, 155,170,226, 152,168,225, 150,166,223, & 147,164,222, 144,162,221, 142,160,220, 139,159,219, & 136,157,217, 134,155,216, 131,153,215, 128,151,213, & 126,149,212, 123,147,211, 121,145,209, 118,143,208, & 115,141,206, 113,139,205, 110,137,203, 107,135,202, & 105,133,200, 102,131,198, 100,129,197, 97,127,195, & 95,125,193, 92,123,191, 90,121,189, 87,119,186, & 85,117,184, 83,115,182, 81,113,180, 79,111,177, & 76,109,175, 74,107,172, 73,105,170, 71,103,167, & 69,101,165, 67, 99,162, 66, 98,160, 64, 96,157, & 62, 94,154, 61, 92,152, 60, 90,149, 58, 89,147, & 57, 87,144, 56, 85,141, 55, 84,139, 53, 82,136, & 52, 80,134, 51, 79,131, 50, 77,128, 49, 76,126, & 48, 74,123, 47, 73,121, 46, 71,118, 45, 69,116, & 44, 68,113, 43, 66,111, 42, 65,108, 41, 63,106, & 40, 62,103, 39, 60,101, 38, 59, 98, 37, 58, 96, & 36, 56, 93, 35, 55, 91, 34, 53, 89, 34, 52, 86, & 33, 50, 84, 32, 49, 81, 31, 48, 79, 30, 46, 77, & 29, 45, 74, 28, 43, 72, 28, 42, 70, 27, 41, 67, & 26, 40, 65, 25, 38, 63, 25, 37, 61, 24, 36, 59, & 23, 35, 56, 22, 33, 54, 22, 32, 52, 21, 31, 50, & 21, 30, 48, 20, 29, 46, 19, 28, 44, 19, 27, 42, & 18, 26, 40, 18, 25, 38, 17, 24, 36, 17, 24, 35, & 17, 23, 33, 16, 22, 32, 16, 22, 30, 15, 21, 29, & 15, 21, 27, 14, 21, 26, 14, 21, 25, 13, 21, 24, & 13, 21, 23, 13, 21, 22, 13, 21, 21, 13, 21, 20, & 13, 22, 19, 13, 22, 19, 13, 23, 18, 13, 23, 18, & 13, 24, 18, 14, 25, 18, 14, 26, 17, 15, 27, 18, & 15, 28, 18, 16, 28, 18, 16, 30, 18, 17, 31, 18, & 17, 32, 19, 17, 33, 19, 18, 34, 20, 18, 35, 20, & 19, 37, 21, 19, 38, 21, 20, 39, 22, 20, 41, 22, & 21, 42, 23, 21, 44, 24, 22, 45, 24, 22, 47, 25, & 23, 48, 26, 24, 50, 26, 24, 51, 27, 25, 53, 28, & 26, 54, 28, 26, 56, 29, 27, 57, 30, 28, 59, 31, & 29, 61, 32, 29, 62, 32, 30, 64, 33, 31, 66, 34, & 32, 67, 35, 32, 69, 36, 33, 71, 37, 34, 72, 37, & 35, 74, 38, 35, 76, 39, 36, 77, 40, 37, 79, 41, & 38, 81, 42, 39, 83, 43, 39, 84, 44, 40, 86, 44, & 41, 88, 45, 42, 90, 46, 43, 91, 47, 44, 93, 48, & 44, 95, 49, 45, 97, 50, 46, 98, 51, 47,100, 52, & 48,102, 53, 49,104, 54, 50,106, 55, 51,108, 56, & 52,109, 57, 53,111, 58, 54,113, 59, 55,115, 60, & 56,117, 61, 57,119, 62, 58,121, 63, 59,123, 64, & 61,125, 65, 62,127, 66, 63,129, 68, 65,131, 69, & 66,133, 70, 68,135, 71, 70,137, 73, 72,139, 74, & 74,141, 75, 76,143, 77, 78,145, 78, 80,147, 80, & 82,149, 81, 85,151, 83, 87,154, 84, 90,156, 86, & 92,158, 87, 95,160, 89, 98,162, 90, 100,164, 92, & 103,166, 94, 106,168, 95, 109,169, 97, 112,171, 99, & 115,173,100, 118,175,102, 121,177,103, 124,179,105, & 127,180,107, 130,182,108, 133,184,110, 136,185,112, & 139,187,113, 142,189,115, 145,190,116, 148,192,118, & 151,194,120, 154,195,121, 157,197,123, 160,198,124, & 163,200,126, 166,202,127, 169,203,129, 172,205,131, & 175,206,132, 178,208,134, 181,209,135, 183,211,137, & 186,212,138, 189,214,140, 192,216,141, 195,217,143, & 198,219,145, 201,220,146, 204,222,148, 207,223,149, & 210,225,151, 213,226,152, 216,228,154, 219,230,155 & ], shape(tofino), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: tofino10=reshape( [ & 222,217,255, 147,164,222, 74,107,172, 39, 60,101, & 18, 25, 38, 18, 34, 20, 36, 77, 40, 63,129, 68, & 136,185,112, 219,230,155 & ], shape(tofino10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: tofino100=reshape( [ & 222,217,255, 214,211,251, 208,207,249, 200,202,246, & 195,198,243, 187,192,240, 182,188,237, 174,183,234, & 166,177,230, 160,173,228, 152,168,225, 147,164,222, & 139,159,219, 134,155,216, 126,149,212, 118,143,208, & 113,139,205, 105,133,200, 100,129,197, 92,123,191, & 85,117,184, 81,113,180, 74,107,172, 71,103,167, & 66, 98,160, 62, 94,154, 58, 89,147, 55, 84,139, & 52, 80,134, 49, 76,126, 47, 73,121, 44, 68,113, & 42, 65,108, 39, 60,101, 36, 56, 93, 34, 53, 89, & 32, 49, 81, 30, 46, 77, 28, 42, 70, 26, 40, 65, & 24, 36, 59, 22, 32, 52, 21, 30, 48, 19, 27, 42, & 18, 25, 38, 17, 23, 33, 16, 22, 30, 14, 21, 26, & 13, 21, 23, 13, 21, 21, 13, 22, 19, 13, 23, 18, & 14, 26, 17, 16, 28, 18, 17, 31, 18, 18, 34, 20, & 19, 37, 21, 20, 41, 22, 21, 44, 24, 23, 48, 26, & 25, 53, 28, 26, 56, 29, 29, 61, 32, 30, 64, 33, & 32, 69, 36, 34, 72, 37, 36, 77, 40, 39, 83, 43, & 40, 86, 44, 43, 91, 47, 44, 95, 49, 47,100, 52, & 49,104, 54, 52,109, 57, 55,115, 60, 57,119, 62, & 61,125, 65, 63,129, 68, 68,135, 71, 72,139, 74, & 78,145, 78, 85,151, 83, 90,156, 86, 98,162, 90, & 103,166, 94, 112,171, 99, 121,177,103, 127,180,107, & 136,185,112, 142,189,115, 151,194,120, 157,197,123, & 166,202,127, 175,206,132, 181,209,135, 189,214,140, & 195,217,143, 204,222,148, 210,225,151, 219,230,155 & ], shape(tofino100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: tofino25=reshape( [ & 222,217,255, 192,196,242, 166,177,230, 136,157,217, & 107,135,202, 83,115,182, 62, 94,154, 50, 77,128, & 39, 60,101, 29, 45, 74, 22, 32, 52, 16, 22, 32, & 13, 22, 19, 16, 30, 18, 21, 44, 24, 28, 59, 31, & 36, 77, 40, 45, 97, 50, 55,115, 60, 70,137, 73, & 95,160, 89, 124,179,105, 157,197,123, 186,212,138, & 219,230,155 & ], shape(tofino25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: tofino50=reshape( [ & 222,217,255, 208,207,249, 195,198,243, 179,187,236, & 166,177,230, 152,168,225, 139,159,219, 126,149,212, & 110,137,203, 97,127,195, 85,117,184, 74,107,172, & 66, 98,160, 57, 87,144, 51, 79,131, 46, 71,118, & 41, 63,106, 36, 56, 93, 31, 48, 79, 27, 41, 67, & 23, 35, 56, 20, 29, 46, 17, 24, 36, 15, 21, 27, & 13, 21, 22, 13, 23, 18, 15, 27, 18, 17, 33, 19, & 20, 39, 22, 22, 47, 25, 26, 54, 28, 29, 62, 32, & 34, 72, 37, 38, 81, 42, 42, 90, 46, 46, 98, 51, & 51,108, 56, 57,119, 62, 63,129, 68, 72,139, 74, & 82,149, 81, 95,160, 89, 112,171, 99, 127,180,107, & 142,189,115, 157,197,123, 172,205,131, 189,214,140, & 204,222,148, 219,230,155 & ], shape(tofino50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: tokyo=reshape( [ & 28, 14, 52, 29, 15, 52, 31, 15, 53, 33, 16, 53, & 35, 16, 54, 36, 16, 54, 38, 17, 55, 40, 17, 56, & 41, 18, 56, 43, 18, 57, 45, 19, 57, 47, 19, 58, & 48, 20, 58, 50, 21, 59, 52, 21, 60, 53, 22, 60, & 55, 22, 61, 57, 23, 61, 58, 24, 62, 60, 25, 62, & 62, 25, 63, 63, 26, 64, 65, 27, 64, 67, 28, 65, & 68, 29, 65, 70, 30, 66, 72, 30, 67, 73, 31, 67, & 75, 32, 68, 76, 33, 68, 78, 34, 69, 79, 35, 69, & 81, 36, 70, 82, 38, 70, 83, 39, 71, 85, 40, 71, & 86, 41, 72, 87, 42, 72, 89, 43, 73, 90, 44, 73, & 91, 45, 73, 92, 47, 74, 93, 48, 74, 94, 49, 75, & 95, 50, 75, 96, 51, 75, 97, 52, 76, 98, 53, 76, & 99, 55, 76, 100, 56, 77, 100, 57, 77, 101, 58, 77, & 102, 59, 77, 102, 60, 78, 103, 61, 78, 104, 62, 78, & 104, 63, 78, 105, 64, 78, 105, 65, 79, 106, 66, 79, & 106, 67, 79, 106, 68, 79, 107, 69, 79, 107, 70, 79, & 108, 71, 80, 108, 72, 80, 108, 73, 80, 108, 74, 80, & 109, 75, 80, 109, 75, 80, 109, 76, 80, 109, 77, 80, & 110, 78, 80, 110, 79, 80, 110, 79, 81, 110, 80, 81, & 110, 81, 81, 111, 82, 81, 111, 82, 81, 111, 83, 81, & 111, 84, 81, 111, 84, 81, 111, 85, 81, 111, 86, 81, & 112, 86, 81, 112, 87, 81, 112, 88, 81, 112, 88, 81, & 112, 89, 81, 112, 89, 81, 112, 90, 82, 112, 91, 82, & 112, 91, 82, 112, 92, 82, 113, 92, 82, 113, 93, 82, & 113, 93, 82, 113, 94, 82, 113, 94, 82, 113, 95, 82, & 113, 95, 82, 113, 96, 82, 113, 97, 82, 113, 97, 82, & 113, 98, 82, 113, 98, 82, 114, 99, 82, 114, 99, 82, & 114,100, 82, 114,100, 82, 114,101, 82, 114,101, 82, & 114,102, 83, 114,103, 83, 114,103, 83, 114,104, 83, & 114,104, 83, 115,105, 83, 115,105, 83, 115,106, 83, & 115,107, 83, 115,107, 83, 115,108, 83, 115,109, 83, & 115,109, 83, 115,110, 83, 116,110, 83, 116,111, 83, & 116,112, 83, 116,113, 83, 116,113, 83, 116,114, 84, & 116,115, 84, 116,115, 84, 116,116, 84, 117,117, 84, & 117,118, 84, 117,119, 84, 117,119, 84, 117,120, 84, & 117,121, 84, 117,122, 84, 118,123, 84, 118,124, 84, & 118,124, 84, 118,125, 85, 118,126, 85, 118,127, 85, & 119,128, 85, 119,129, 85, 119,130, 85, 119,131, 85, & 119,132, 85, 120,133, 85, 120,134, 86, 120,135, 86, & 120,136, 86, 120,137, 86, 121,138, 86, 121,139, 86, & 121,141, 87, 121,142, 87, 121,143, 87, 122,144, 87, & 122,145, 87, 122,146, 88, 123,148, 88, 123,149, 88, & 123,150, 88, 123,151, 89, 124,152, 89, 124,154, 89, & 124,155, 90, 125,156, 90, 125,158, 90, 125,159, 91, & 126,160, 91, 126,162, 92, 127,163, 92, 127,164, 93, & 128,166, 93, 128,167, 94, 129,169, 94, 129,170, 95, & 130,172, 96, 130,173, 96, 131,175, 97, 132,176, 98, & 132,178, 99, 133,179,100, 134,181,101, 135,182,102, & 135,184,103, 136,185,104, 137,187,105, 138,189,106, & 139,190,107, 140,192,109, 141,193,110, 142,195,112, & 143,197,113, 145,198,115, 146,200,116, 147,202,118, & 149,203,120, 150,205,121, 152,207,123, 153,208,125, & 155,210,127, 156,212,129, 158,213,131, 160,215,133, & 162,216,135, 164,218,138, 165,220,140, 167,221,142, & 169,223,144, 171,224,147, 173,226,149, 175,227,152, & 178,228,154, 180,230,156, 182,231,159, 184,232,161, & 186,234,164, 188,235,166, 190,236,169, 193,237,171, & 195,238,173, 197,239,176, 199,240,178, 201,241,180, & 203,242,183, 205,243,185, 207,244,187, 209,244,189, & 211,245,191, 213,246,193, 214,246,195, 216,247,197, & 218,247,199, 220,248,201, 221,248,202, 223,249,204, & 224,249,206, 226,249,207, 227,250,209, 229,250,210, & 230,250,212, 232,251,213, 233,251,215, 234,251,216, & 235,251,217, 237,252,218, 238,252,220, 239,252,221 & ], shape(tokyo), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: tokyo10=reshape( [ & 28, 14, 52, 75, 32, 68, 105, 64, 78, 112, 87, 81, & 114,103, 83, 118,123, 84, 124,152, 89, 141,193,110, & 193,237,171, 239,252,221 & ], shape(tokyo10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: tokyo100=reshape( [ & 28, 14, 52, 33, 16, 53, 36, 16, 54, 41, 18, 56, & 45, 19, 57, 50, 21, 59, 53, 22, 60, 58, 24, 62, & 63, 26, 64, 67, 28, 65, 72, 30, 67, 75, 32, 68, & 79, 35, 69, 82, 38, 70, 86, 41, 72, 90, 44, 73, & 92, 47, 74, 95, 50, 75, 97, 52, 76, 100, 56, 77, & 102, 59, 77, 103, 61, 78, 105, 64, 78, 106, 66, 79, & 107, 69, 79, 108, 71, 80, 108, 74, 80, 109, 76, 80, & 110, 78, 80, 110, 80, 81, 111, 82, 81, 111, 84, 81, & 111, 85, 81, 112, 87, 81, 112, 89, 81, 112, 90, 82, & 112, 92, 82, 113, 93, 82, 113, 94, 82, 113, 95, 82, & 113, 97, 82, 114, 99, 82, 114,100, 82, 114,101, 82, & 114,103, 83, 114,104, 83, 115,105, 83, 115,107, 83, & 115,109, 83, 116,110, 83, 116,113, 83, 116,114, 84, & 116,116, 84, 117,119, 84, 117,120, 84, 118,123, 84, & 118,124, 84, 118,127, 85, 119,129, 85, 119,132, 85, & 120,135, 86, 120,137, 86, 121,141, 87, 121,143, 87, & 122,146, 88, 123,149, 88, 124,152, 89, 125,156, 90, & 125,159, 91, 127,163, 92, 128,166, 93, 129,170, 95, & 130,173, 96, 132,178, 99, 135,182,102, 136,185,104, & 139,190,107, 141,193,110, 145,198,115, 147,202,118, & 152,207,123, 156,212,129, 160,215,133, 165,220,140, & 169,223,144, 175,227,152, 182,231,159, 186,234,164, & 193,237,171, 197,239,176, 203,242,183, 207,244,187, & 213,246,193, 218,247,199, 221,248,202, 226,249,207, & 229,250,210, 233,251,215, 235,251,217, 239,252,221 & ], shape(tokyo100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: tokyo25=reshape( [ & 28, 14, 52, 47, 19, 58, 63, 26, 64, 81, 36, 70, & 94, 49, 75, 102, 60, 78, 108, 71, 80, 110, 79, 81, & 112, 87, 81, 113, 93, 82, 114, 99, 82, 115,105, 83, & 116,112, 83, 117,119, 84, 119,129, 85, 121,139, 86, & 124,152, 89, 128,167, 94, 135,182,102, 146,200,116, & 164,218,138, 184,232,161, 207,244,187, 224,249,206, & 239,252,221 & ], shape(tokyo25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: tokyo50=reshape( [ & 28, 14, 52, 36, 16, 54, 45, 19, 57, 55, 22, 61, & 63, 26, 64, 72, 30, 67, 79, 35, 69, 86, 41, 72, & 93, 48, 74, 98, 53, 76, 102, 59, 77, 105, 64, 78, & 107, 69, 79, 109, 75, 80, 110, 79, 80, 111, 82, 81, & 111, 86, 81, 112, 89, 81, 113, 92, 82, 113, 95, 82, & 113, 98, 82, 114,100, 82, 114,103, 83, 115,107, 83, & 115,110, 83, 116,113, 83, 117,117, 84, 117,122, 84, & 118,126, 85, 119,131, 85, 120,136, 86, 121,142, 87, & 123,149, 88, 124,155, 90, 126,162, 92, 129,169, 94, & 132,176, 98, 136,185,104, 141,193,110, 147,202,118, & 155,210,127, 164,218,138, 175,227,152, 186,234,164, & 197,239,176, 207,244,187, 216,247,197, 226,249,207, & 233,251,215, 239,252,221 & ], shape(tokyo50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: tokyoS=reshape( [ & 28, 14, 52, 239,252,221, 116,111, 83, 135,182,102, & 107, 70, 79, 121,139, 86, 113, 93, 82, 184,232,161, & 81, 36, 70, 55, 22, 61, 153,208,125, 216,247,197, & 114,101, 82, 111, 83, 81, 125,159, 91, 118,124, 84, & 99, 55, 76, 129,170, 95, 68, 29, 65, 167,221,142, & 91, 45, 73, 119,131, 85, 117,117, 84, 41, 18, 56, & 229,250,210, 123,149, 88, 142,195,112, 113, 97, 82, & 115,106, 83, 112, 88, 81, 109, 77, 80, 201,241,180, & 104, 63, 78, 111, 86, 81, 114, 99, 82, 193,237,171, & 117,120, 84, 35, 16, 54, 108, 74, 80, 138,189,106, & 115,109, 83, 110, 80, 81, 95, 50, 75, 102, 59, 77, & 120,135, 86, 48, 20, 58, 116,114, 84, 118,127, 85, & 113, 95, 82, 112, 91, 82, 175,227,152, 75, 32, 68, & 209,244,189, 122,144, 87, 124,154, 89, 147,202,118, & 62, 25, 63, 223,249,204, 160,215,133, 234,251,216, & 86, 41, 72, 132,176, 98, 127,164, 93, 114,104, 83, & 106, 66, 79, 125,156, 90, 188,235,166, 112, 87, 81, & 116,115, 84, 114,103, 83, 93, 48, 74, 171,224,147, & 45, 19, 57, 117,119, 84, 106, 68, 79, 205,243,185, & 118,125, 85, 72, 30, 67, 164,218,138, 52, 21, 60, & 89, 43, 73, 109, 75, 80, 140,192,109, 113, 96, 82, & 38, 17, 55, 156,212,129, 113, 98, 82, 145,198,115, & 213,246,193, 123,151, 89, 117,122, 84, 220,248,201, & 78, 34, 69, 83, 39, 71, 58, 24, 62, 112, 92, 82, & 108, 72, 80, 237,252,218, 115,107, 83, 130,173, 96 & ], shape(tokyoS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: turku=reshape( [ & 0, 0, 0, 2, 2, 2, 4, 4, 3, 6, 6, 5, & 7, 7, 7, 9, 9, 8, 11, 11, 10, 13, 13, 12, & 14, 14, 13, 16, 16, 14, 17, 17, 16, 18, 18, 17, & 20, 19, 18, 21, 21, 19, 22, 22, 20, 23, 23, 21, & 24, 24, 22, 25, 25, 23, 26, 26, 24, 27, 27, 25, & 28, 28, 25, 29, 29, 26, 30, 30, 27, 31, 31, 28, & 32, 32, 29, 33, 33, 30, 34, 34, 31, 35, 35, 31, & 36, 36, 32, 37, 37, 33, 38, 38, 34, 39, 39, 35, & 40, 40, 35, 41, 41, 36, 42, 42, 37, 43, 43, 38, & 44, 44, 39, 45, 45, 39, 46, 46, 40, 47, 47, 41, & 48, 48, 42, 50, 49, 42, 51, 50, 43, 52, 51, 44, & 53, 52, 45, 54, 54, 45, 55, 55, 46, 56, 56, 47, & 57, 57, 48, 58, 58, 48, 59, 59, 49, 60, 60, 50, & 61, 61, 50, 62, 62, 51, 63, 63, 52, 64, 64, 52, & 65, 65, 53, 66, 66, 53, 67, 67, 54, 68, 68, 55, & 69, 69, 55, 70, 70, 56, 71, 71, 56, 72, 72, 57, & 73, 73, 58, 75, 74, 58, 76, 75, 59, 77, 76, 59, & 78, 77, 60, 79, 78, 60, 80, 79, 61, 81, 80, 61, & 82, 81, 62, 83, 82, 62, 84, 83, 63, 85, 84, 63, & 86, 86, 64, 87, 87, 64, 88, 88, 65, 89, 89, 65, & 90, 90, 66, 91, 91, 66, 92, 92, 67, 93, 93, 67, & 94, 94, 68, 95, 95, 68, 96, 96, 69, 97, 97, 69, & 98, 98, 70, 99, 99, 70, 100,100, 71, 101,101, 71, & 102,102, 71, 103,103, 72, 104,104, 72, 106,105, 73, & 107,106, 73, 108,107, 74, 109,108, 74, 110,109, 75, & 111,110, 75, 112,111, 76, 113,112, 76, 114,113, 77, & 115,114, 77, 117,115, 78, 118,116, 78, 119,117, 79, & 120,118, 79, 121,119, 80, 123,121, 80, 124,122, 81, & 125,123, 81, 126,124, 82, 127,125, 82, 129,126, 83, & 130,127, 83, 131,128, 84, 133,129, 84, 134,130, 85, & 135,131, 86, 137,132, 86, 138,133, 87, 139,134, 88, & 141,135, 88, 142,136, 89, 144,138, 89, 145,139, 90, & 147,140, 91, 148,141, 91, 150,142, 92, 151,143, 93, & 153,144, 94, 154,145, 94, 156,146, 95, 157,147, 96, & 159,148, 97, 161,148, 97, 162,149, 98, 164,150, 99, & 165,151,100, 167,152,100, 169,153,101, 170,154,102, & 172,154,103, 173,155,104, 175,156,104, 176,157,105, & 178,157,106, 179,158,107, 181,159,108, 182,159,108, & 184,160,109, 185,160,110, 187,161,111, 188,161,112, & 190,162,112, 191,162,113, 192,162,114, 194,163,115, & 195,163,116, 196,164,116, 198,164,117, 199,164,118, & 200,164,119, 201,165,120, 203,165,120, 204,165,121, & 205,165,122, 206,166,123, 207,166,124, 208,166,124, & 209,166,125, 210,166,126, 211,166,127, 212,167,128, & 214,167,128, 215,167,129, 216,167,130, 217,167,131, & 218,167,132, 219,168,133, 219,168,134, 220,168,135, & 221,168,136, 222,168,137, 223,169,138, 224,169,139, & 225,169,140, 226,169,141, 227,170,142, 228,170,143, & 229,170,144, 230,171,146, 231,171,147, 232,172,148, & 233,172,149, 233,173,151, 234,173,152, 235,174,153, & 236,174,155, 237,175,156, 238,176,158, 239,176,159, & 239,177,161, 240,178,162, 241,179,163, 242,179,165, & 242,180,167, 243,181,168, 244,182,170, 244,183,171, & 245,184,173, 246,185,174, 246,186,176, 247,187,177, & 247,188,179, 248,189,180, 248,190,182, 249,191,183, & 249,192,185, 250,193,186, 250,194,188, 251,195,189, & 251,196,191, 251,197,192, 252,198,193, 252,199,195, & 252,200,196, 253,201,198, 253,203,199, 253,204,200, & 253,205,202, 253,206,203, 254,207,204, 254,208,206, & 254,209,207, 254,210,208, 254,211,209, 254,212,211, & 254,214,212, 254,215,213, 255,216,214, 255,217,215, & 255,218,217, 255,219,218, 255,220,219, 255,221,220, & 255,222,221, 255,223,223, 255,224,224, 255,226,225, & 255,227,226, 255,228,227, 255,229,229, 255,230,230 & ], shape(turku), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: turku10=reshape( [ & 0, 0, 0, 36, 36, 32, 66, 66, 53, 95, 95, 68, & 126,124, 82, 169,153,101, 207,166,124, 234,173,152, & 252,199,195, 255,230,230 & ], shape(turku10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: turku100=reshape( [ & 0, 0, 0, 6, 6, 5, 9, 9, 8, 14, 14, 13, & 17, 17, 16, 21, 21, 19, 23, 23, 21, 26, 26, 24, & 29, 29, 26, 31, 31, 28, 34, 34, 31, 36, 36, 32, & 39, 39, 35, 41, 41, 36, 44, 44, 39, 47, 47, 41, & 50, 49, 42, 53, 52, 45, 55, 55, 46, 58, 58, 48, & 61, 61, 50, 63, 63, 52, 66, 66, 53, 68, 68, 55, & 71, 71, 56, 73, 73, 58, 77, 76, 59, 80, 79, 61, & 82, 81, 62, 85, 84, 63, 87, 87, 64, 90, 90, 66, & 92, 92, 67, 95, 95, 68, 98, 98, 70, 100,100, 71, & 103,103, 72, 106,105, 73, 109,108, 74, 111,110, 75, & 114,113, 77, 118,116, 78, 120,118, 79, 124,122, 81, & 126,124, 82, 130,127, 83, 133,129, 84, 137,132, 86, & 141,135, 88, 144,138, 89, 148,141, 91, 151,143, 93, & 156,146, 95, 161,148, 97, 164,150, 99, 169,153,101, & 172,154,103, 176,157,105, 179,158,107, 184,160,109, & 188,161,112, 191,162,113, 195,163,116, 198,164,117, & 201,165,120, 204,165,121, 207,166,124, 210,166,126, & 212,167,128, 216,167,130, 218,167,132, 220,168,135, & 222,168,137, 225,169,140, 228,170,143, 230,171,146, & 233,172,149, 234,173,152, 237,175,156, 239,176,159, & 241,179,163, 243,181,168, 244,183,171, 246,186,176, & 247,188,179, 249,191,183, 250,194,188, 251,196,191, & 252,199,195, 253,201,198, 253,205,202, 254,207,204, & 254,210,208, 254,214,212, 255,216,214, 255,219,218, & 255,221,220, 255,224,224, 255,227,226, 255,230,230 & ], shape(turku100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: turku25=reshape( [ & 0, 0, 0, 18, 18, 17, 29, 29, 26, 40, 40, 35, & 52, 51, 44, 62, 62, 51, 73, 73, 58, 84, 83, 63, & 95, 95, 68, 107,106, 73, 118,116, 78, 131,128, 84, & 147,140, 91, 162,149, 98, 179,158,107, 194,163,115, & 207,166,124, 219,168,133, 228,170,143, 238,176,158, & 246,185,174, 251,195,189, 254,207,204, 255,218,217, & 255,230,230 & ], shape(turku25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: turku50=reshape( [ & 0, 0, 0, 9, 9, 8, 17, 17, 16, 24, 24, 22, & 29, 29, 26, 34, 34, 31, 39, 39, 35, 44, 44, 39, & 51, 50, 43, 56, 56, 47, 61, 61, 50, 66, 66, 53, & 71, 71, 56, 78, 77, 60, 83, 82, 62, 88, 88, 65, & 93, 93, 67, 98, 98, 70, 104,104, 72, 110,109, 75, & 115,114, 77, 121,119, 80, 127,125, 82, 135,131, 86, & 142,136, 89, 150,142, 92, 157,147, 96, 167,152,100, & 175,156,104, 182,159,108, 190,162,112, 196,164,116, & 204,165,121, 209,166,125, 215,167,129, 219,168,134, & 224,169,139, 230,171,146, 234,173,152, 239,176,159, & 242,180,167, 246,185,174, 249,191,183, 251,196,191, & 253,201,198, 254,207,204, 254,212,211, 255,219,218, & 255,224,224, 255,230,230 & ], shape(turku50), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: turkuS=reshape( [ & 7, 7, 7, 255,230,230, 150,142, 92, 77, 76, 59, & 229,170,144, 44, 44, 39, 109,108, 74, 196,164,116, & 251,195,189, 28, 28, 25, 254,212,211, 127,125, 82, & 92, 92, 67, 214,167,128, 242,179,165, 175,156,104, & 60, 60, 50, 253,204,200, 20, 19, 18, 118,116, 78, & 100,100, 71, 162,149, 98, 68, 68, 55, 255,221,220, & 36, 36, 32, 247,187,177, 138,133, 87, 221,168,136, & 205,165,122, 187,161,111, 235,174,153, 85, 84, 63, & 52, 51, 44, 225,169,140, 244,183,171, 156,146, 95, & 14, 14, 13, 24, 24, 22, 255,226,225, 72, 72, 57, & 249,191,183, 104,104, 72, 133,129, 84, 40, 40, 35, & 239,176,159, 123,121, 80, 96, 96, 69, 113,112, 76, & 169,153,101, 144,138, 89, 218,167,132, 252,199,195, & 32, 32, 29, 56, 56, 47, 181,159,108, 254,208,206, & 255,217,215, 81, 80, 61, 64, 64, 52, 209,166,125, & 201,165,120, 232,172,148, 192,162,114, 89, 89, 65, & 48, 48, 42, 255,223,223, 153,144, 94, 248,189,180, & 253,201,198, 254,210,208, 120,118, 79, 223,169,138, & 253,206,203, 233,173,151, 251,197,192, 107,106, 73, & 237,175,156, 255,228,227, 87, 87, 64, 42, 42, 37, & 219,168,134, 147,140, 91, 254,215,213, 115,114, 77, & 62, 62, 51, 178,157,106, 243,181,168, 141,135, 88, & 70, 70, 56, 111,110, 75, 83, 82, 62, 22, 22, 20, & 159,148, 97, 240,178,162, 130,127, 83, 58, 58, 48, & 246,185,174, 207,166,124, 199,164,118, 125,123, 81 & ], shape(turkuS), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: vanimo=reshape( [ & 255,205,253, 253,202,251, 252,199,249, 250,196,247, & 249,193,244, 247,190,242, 246,187,240, 244,185,238, & 243,182,236, 241,179,234, 240,176,232, 238,173,230, & 236,171,228, 235,168,226, 233,165,224, 232,162,222, & 230,160,220, 229,157,218, 227,154,216, 226,152,214, & 224,149,212, 222,147,210, 221,144,208, 219,142,206, & 218,139,204, 216,137,202, 215,134,200, 213,132,198, & 211,129,196, 210,127,194, 208,125,192, 207,122,191, & 205,120,189, 203,118,187, 202,115,185, 200,113,183, & 199,111,181, 197,109,179, 195,107,178, 194,105,176, & 192,103,174, 190,101,172, 189, 99,170, 187, 97,168, & 185, 95,167, 184, 93,165, 182, 91,163, 180, 90,161, & 178, 88,159, 177, 86,158, 175, 85,156, 173, 83,154, & 171, 81,152, 169, 80,150, 167, 78,148, 165, 76,146, & 163, 75,144, 161, 73,142, 159, 72,140, 157, 70,138, & 155, 68,136, 153, 67,134, 150, 65,132, 148, 64,130, & 146, 62,128, 144, 61,126, 141, 60,123, 139, 58,121, & 136, 57,119, 134, 55,117, 131, 54,114, 129, 53,112, & 126, 51,110, 124, 50,107, 121, 49,105, 118, 48,103, & 116, 46,100, 113, 45, 98, 110, 44, 96, 108, 43, 93, & 105, 42, 91, 102, 41, 89, 100, 39, 86, 97, 38, 84, & 94, 37, 81, 92, 36, 79, 89, 35, 77, 86, 34, 74, & 84, 33, 72, 81, 33, 70, 79, 32, 68, 76, 31, 65, & 73, 30, 63, 71, 29, 61, 69, 28, 59, 66, 28, 57, & 64, 27, 55, 62, 26, 53, 59, 26, 51, 57, 25, 49, & 55, 25, 47, 53, 24, 45, 51, 23, 44, 49, 23, 42, & 47, 23, 40, 46, 22, 39, 44, 22, 37, 42, 21, 36, & 41, 21, 35, 40, 21, 33, 38, 21, 32, 37, 20, 31, & 36, 20, 30, 35, 20, 29, 34, 20, 28, 33, 20, 27, & 32, 20, 26, 31, 20, 25, 30, 20, 24, 29, 20, 24, & 29, 20, 23, 28, 20, 22, 28, 20, 22, 27, 20, 21, & 27, 20, 21, 26, 20, 20, 26, 21, 20, 26, 21, 19, & 26, 21, 19, 25, 22, 19, 25, 22, 18, 25, 22, 18, & 25, 23, 18, 25, 23, 18, 25, 24, 17, 25, 24, 17, & 26, 25, 17, 26, 26, 17, 26, 26, 17, 26, 27, 17, & 27, 28, 17, 27, 29, 17, 27, 30, 17, 28, 31, 17, & 28, 32, 17, 29, 33, 18, 29, 34, 18, 30, 36, 18, & 31, 37, 18, 31, 38, 18, 32, 39, 19, 33, 41, 19, & 34, 42, 19, 35, 44, 20, 35, 45, 20, 36, 47, 20, & 37, 48, 20, 38, 50, 21, 39, 52, 21, 41, 53, 22, & 42, 55, 22, 43, 57, 22, 44, 59, 23, 45, 60, 23, & 46, 62, 24, 47, 64, 24, 49, 66, 24, 50, 68, 25, & 51, 70, 25, 52, 71, 26, 54, 73, 26, 55, 75, 27, & 56, 77, 27, 58, 79, 28, 59, 81, 28, 60, 83, 29, & 61, 85, 29, 63, 86, 30, 64, 88, 31, 65, 90, 31, & 67, 92, 32, 68, 94, 32, 69, 96, 33, 71, 98, 33, & 72, 99, 34, 73,101, 35, 75,103, 35, 76,105, 36, & 77,107, 36, 78,108, 37, 80,110, 37, 81,112, 38, & 82,114, 39, 84,116, 39, 85,117, 40, 86,119, 41, & 87,121, 41, 89,123, 42, 90,124, 42, 91,126, 43, & 92,128, 44, 94,129, 45, 95,131, 45, 96,133, 46, & 98,135, 47, 99,136, 47, 100,138, 48, 101,140, 49, & 103,142, 50, 104,144, 51, 106,146, 52, 107,147, 53, & 108,149, 54, 110,151, 55, 111,153, 56, 113,155, 57, & 114,157, 59, 116,159, 60, 117,161, 61, 119,163, 63, & 121,166, 64, 122,168, 66, 124,170, 67, 126,172, 69, & 127,174, 71, 129,176, 73, 131,179, 75, 133,181, 77, & 135,183, 79, 136,186, 81, 138,188, 83, 140,190, 85, & 142,193, 88, 144,195, 90, 146,198, 93, 148,200, 96, & 150,203, 98, 152,205,101, 154,208,104, 156,210,107, & 158,213,110, 160,215,114, 162,218,117, 164,221,120, & 166,223,124, 169,226,127, 171,228,131, 173,231,134, & 175,234,138, 177,236,142, 179,239,146, 181,242,149, & 183,245,153, 186,247,157, 188,250,161, 190,253,165 & ], shape(vanimo), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: vanimo10=reshape( [ & 255,205,253, 211,129,196, 161, 73,142, 92, 36, 79, & 35, 20, 29, 27, 30, 17, 54, 73, 26, 90,124, 42, & 133,181, 77, 190,253,165 & ], shape(vanimo10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: vanimo100=reshape( [ & 255,205,253, 250,196,247, 247,190,242, 243,182,236, & 240,176,232, 235,168,226, 232,162,222, 227,154,216, & 222,147,210, 219,142,206, 215,134,200, 211,129,196, & 207,122,191, 203,118,187, 199,111,181, 194,105,176, & 190,101,172, 185, 95,167, 182, 91,163, 177, 86,158, & 171, 81,152, 167, 78,148, 161, 73,142, 157, 70,138, & 150, 65,132, 146, 62,128, 139, 58,121, 131, 54,114, & 126, 51,110, 118, 48,103, 113, 45, 98, 105, 42, 91, & 100, 39, 86, 92, 36, 79, 84, 33, 72, 79, 32, 68, & 71, 29, 61, 66, 28, 57, 59, 26, 51, 55, 25, 47, & 49, 23, 42, 44, 22, 37, 41, 21, 35, 37, 20, 31, & 35, 20, 29, 32, 20, 26, 30, 20, 24, 28, 20, 22, & 27, 20, 21, 26, 21, 20, 25, 22, 19, 25, 22, 18, & 25, 24, 17, 26, 26, 17, 26, 27, 17, 27, 30, 17, & 28, 32, 17, 30, 36, 18, 31, 38, 18, 34, 42, 19, & 36, 47, 20, 38, 50, 21, 42, 55, 22, 44, 59, 23, & 47, 64, 24, 50, 68, 25, 54, 73, 26, 58, 79, 28, & 60, 83, 29, 64, 88, 31, 67, 92, 32, 71, 98, 33, & 73,101, 35, 77,107, 36, 81,112, 38, 84,116, 39, & 87,121, 41, 90,124, 42, 94,129, 45, 96,133, 46, & 100,138, 48, 104,144, 51, 107,147, 53, 111,153, 56, & 114,157, 59, 119,163, 63, 124,170, 67, 127,174, 71, & 133,181, 77, 136,186, 81, 142,193, 88, 146,198, 93, & 152,205,101, 158,213,110, 162,218,117, 169,226,127, & 173,231,134, 179,239,146, 183,245,153, 190,253,165 & ], shape(vanimo100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: vanimo25=reshape( [ & 255,205,253, 238,173,230, 222,147,210, 205,120,189, & 187, 97,168, 169, 80,150, 146, 62,128, 121, 49,105, & 92, 36, 79, 64, 27, 55, 44, 22, 37, 31, 20, 25, & 26, 21, 19, 26, 26, 17, 31, 38, 18, 41, 53, 22, & 54, 73, 26, 68, 94, 32, 81,112, 38, 95,131, 45, & 110,151, 55, 126,172, 69, 146,198, 93, 166,223,124, & 190,253,165 & ], shape(vanimo25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: vanimo50=reshape( [ & 255,205,253, 247,190,242, 240,176,232, 230,160,220, & 222,147,210, 215,134,200, 207,122,191, 199,111,181, & 189, 99,170, 180, 90,161, 171, 81,152, 161, 73,142, & 150, 65,132, 136, 57,119, 124, 50,107, 110, 44, 96, & 97, 38, 84, 84, 33, 72, 69, 28, 59, 57, 25, 49, & 47, 23, 40, 40, 21, 33, 34, 20, 28, 29, 20, 23, & 26, 20, 20, 25, 22, 18, 25, 24, 17, 27, 29, 17, & 29, 34, 18, 33, 41, 19, 37, 48, 20, 43, 57, 22, & 50, 68, 25, 56, 77, 27, 63, 86, 30, 69, 96, 33, & 76,105, 36, 84,116, 39, 90,124, 42, 96,133, 46, & 103,142, 50, 110,151, 55, 119,163, 63, 127,174, 71, & 136,186, 81, 146,198, 93, 156,210,107, 169,226,127, & 179,239,146, 190,253,165 & ], shape(vanimo50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: vik=reshape( [ & 0, 18, 97, 1, 20, 98, 1, 21, 99, 1, 23,100, & 1, 24,101, 1, 26,102, 2, 28,103, 2, 29,104, & 2, 31,105, 2, 32,106, 2, 34,107, 2, 35,108, & 2, 37,109, 2, 39,110, 2, 40,111, 2, 42,112, & 2, 43,113, 2, 45,114, 2, 46,115, 2, 48,116, & 2, 49,117, 2, 51,118, 2, 52,119, 2, 54,120, & 2, 55,121, 2, 57,122, 2, 58,123, 3, 60,124, & 3, 62,125, 3, 63,126, 3, 65,127, 3, 66,128, & 3, 68,129, 3, 69,130, 3, 71,131, 3, 73,132, & 3, 74,133, 4, 76,134, 4, 77,135, 4, 79,136, & 5, 81,137, 5, 82,138, 6, 84,139, 6, 86,140, & 7, 87,141, 8, 89,143, 9, 91,144, 11, 93,145, & 12, 94,146, 14, 96,147, 16, 98,148, 17,100,150, & 19,102,151, 21,103,152, 23,105,153, 25,107,154, & 28,109,156, 30,111,157, 32,113,158, 35,115,160, & 37,117,161, 40,119,162, 43,121,164, 45,123,165, & 48,125,166, 51,127,168, 54,129,169, 57,131,171, & 60,133,172, 63,135,173, 66,137,175, 69,139,176, & 72,141,178, 75,144,179, 78,146,180, 81,148,182, & 84,150,183, 87,152,185, 90,154,186, 93,156,187, & 97,158,189, 100,160,190, 103,162,192, 106,164,193, & 109,166,194, 113,168,196, 116,170,197, 119,172,198, & 122,174,200, 125,176,201, 128,178,202, 132,180,204, & 135,182,205, 138,184,206, 141,186,208, 144,188,209, & 148,190,210, 151,192,212, 154,194,213, 157,196,214, & 160,197,216, 163,199,217, 167,201,218, 170,203,220, & 173,205,221, 176,207,222, 179,209,223, 182,211,225, & 186,213,226, 189,214,227, 192,216,228, 195,218,229, & 198,219,230, 201,221,231, 204,223,232, 207,224,232, & 210,225,233, 213,227,233, 216,228,233, 219,229,233, & 222,230,233, 224,230,233, 226,231,232, 229,231,232, & 231,231,231, 232,231,229, 234,230,228, 235,230,226, & 236,229,224, 237,228,222, 238,227,220, 238,225,218, & 238,224,216, 238,222,213, 238,221,211, 238,219,208, & 238,217,205, 237,215,203, 237,213,200, 236,211,197, & 236,209,195, 235,208,192, 234,206,189, 233,204,186, & 233,202,184, 232,200,181, 231,198,178, 230,196,176, & 229,193,173, 228,191,170, 228,190,168, 227,188,165, & 226,186,162, 225,184,160, 224,182,157, 223,180,154, & 223,178,152, 222,176,149, 221,174,147, 220,172,144, & 219,170,141, 219,168,139, 218,166,136, 217,164,134, & 216,162,131, 215,160,129, 214,159,126, 214,157,124, & 213,155,121, 212,153,119, 211,151,116, 211,149,114, & 210,148,112, 209,146,109, 208,144,107, 207,142,104, & 207,140,102, 206,139,100, 205,137, 97, 204,135, 95, & 204,133, 93, 203,131, 90, 202,130, 88, 201,128, 86, & 201,126, 83, 200,124, 81, 199,123, 79, 198,121, 76, & 198,119, 74, 197,117, 72, 196,116, 69, 195,114, 67, & 194,112, 65, 194,110, 63, 193,109, 60, 192,107, 58, & 191,105, 56, 190,103, 54, 190,101, 51, 189,100, 49, & 188, 98, 47, 187, 96, 45, 186, 94, 42, 184, 92, 40, & 183, 90, 38, 182, 88, 36, 181, 85, 33, 179, 83, 31, & 178, 81, 29, 176, 79, 27, 175, 76, 24, 173, 74, 22, & 171, 72, 20, 169, 69, 18, 167, 67, 16, 165, 64, 15, & 163, 62, 13, 161, 60, 11, 159, 57, 10, 156, 55, 9, & 154, 53, 8, 152, 51, 7, 150, 49, 7, 148, 47, 6, & 145, 45, 6, 143, 43, 6, 141, 41, 6, 139, 39, 6, & 137, 38, 6, 135, 36, 6, 133, 34, 6, 131, 33, 6, & 129, 31, 6, 127, 30, 6, 126, 29, 6, 124, 27, 6, & 122, 26, 6, 120, 24, 6, 118, 23, 6, 116, 21, 6, & 115, 20, 6, 113, 19, 7, 111, 17, 7, 109, 16, 7, & 108, 14, 7, 106, 13, 7, 104, 12, 7, 103, 10, 7, & 101, 9, 7, 99, 7, 7, 98, 6, 7, 96, 4, 8, & 94, 3, 8, 93, 2, 8, 91, 1, 8, 89, 0, 8 & ], shape(vik), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: vik10=reshape( [ & 0, 18, 97, 3, 62,125, 30,111,157, 113,168,196, & 201,221,231, 234,206,189, 211,151,116, 190,101, 51, & 139, 39, 6, 89, 0, 8 & ], shape(vik10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: vik100=reshape( [ & 0, 18, 97, 1, 23,100, 1, 26,102, 2, 31,105, & 2, 34,107, 2, 39,110, 2, 42,112, 2, 46,115, & 2, 51,118, 2, 54,120, 2, 58,123, 3, 62,125, & 3, 66,128, 3, 69,130, 3, 74,133, 4, 79,136, & 5, 82,138, 7, 87,141, 9, 91,144, 14, 96,147, & 19,102,151, 23,105,153, 30,111,157, 35,115,160, & 43,121,164, 48,125,166, 57,131,171, 66,137,175, & 72,141,178, 81,148,182, 87,152,185, 97,158,189, & 103,162,192, 113,168,196, 122,174,200, 128,178,202, & 138,184,206, 144,188,209, 154,194,213, 160,197,216, & 170,203,220, 179,209,223, 186,213,226, 195,218,229, & 201,221,231, 210,225,233, 216,228,233, 224,230,233, & 231,231,231, 234,230,228, 237,228,222, 238,225,218, & 238,221,211, 237,215,203, 236,211,197, 234,206,189, & 233,202,184, 230,196,176, 228,191,170, 226,186,162, & 223,180,154, 222,176,149, 219,170,141, 218,166,136, & 215,160,129, 214,157,124, 211,151,116, 209,146,109, & 207,142,104, 205,137, 97, 204,133, 93, 201,128, 86, & 200,124, 81, 198,119, 74, 195,114, 67, 194,110, 63, & 191,105, 56, 190,101, 51, 187, 96, 45, 184, 92, 40, & 181, 85, 33, 176, 79, 27, 173, 74, 22, 167, 67, 16, & 163, 62, 13, 156, 55, 9, 150, 49, 7, 145, 45, 6, & 139, 39, 6, 135, 36, 6, 129, 31, 6, 126, 29, 6, & 120, 24, 6, 115, 20, 6, 111, 17, 7, 106, 13, 7, & 103, 10, 7, 98, 6, 7, 94, 3, 8, 89, 0, 8 & ], shape(vik100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: vik25=reshape( [ & 0, 18, 97, 2, 35,108, 2, 51,118, 3, 68,129, & 6, 86,140, 21,103,152, 48,125,166, 78,146,180, & 113,168,196, 148,190,210, 179,209,223, 213,227,233, & 236,229,224, 237,213,200, 228,191,170, 220,172,144, & 211,151,116, 203,131, 90, 195,114, 67, 186, 94, 42, & 169, 69, 18, 148, 47, 6, 126, 29, 6, 108, 14, 7, & 89, 0, 8 & ], shape(vik25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: vik50=reshape( [ & 0, 18, 97, 1, 26,102, 2, 34,107, 2, 43,113, & 2, 51,118, 2, 58,123, 3, 66,128, 3, 74,133, & 6, 84,139, 11, 93,145, 19,102,151, 30,111,157, & 43,121,164, 60,133,172, 75,144,179, 90,154,186, & 106,164,193, 122,174,200, 141,186,208, 157,196,214, & 173,205,221, 189,214,227, 204,223,232, 222,230,233, & 232,231,229, 238,227,220, 238,219,208, 235,208,192, & 231,198,178, 227,188,165, 223,178,152, 219,168,139, & 214,157,124, 210,148,112, 206,139,100, 202,130, 88, & 198,121, 76, 194,110, 63, 190,101, 51, 184, 92, 40, & 178, 81, 29, 169, 69, 18, 156, 55, 9, 145, 45, 6, & 135, 36, 6, 126, 29, 6, 116, 21, 6, 106, 13, 7, & 98, 6, 7, 89, 0, 8 & ], shape(vik50), order=[2, 1] ) integer, dimension(0:255, 1:3), public :: vikO=reshape( [ & 79, 26, 61, 78, 26, 62, 78, 27, 63, 77, 27, 65, & 76, 28, 66, 75, 29, 67, 75, 29, 68, 74, 30, 70, & 73, 31, 71, 72, 32, 73, 72, 33, 74, 71, 33, 75, & 70, 34, 77, 69, 35, 78, 69, 36, 80, 68, 37, 81, & 67, 38, 83, 67, 39, 84, 66, 40, 86, 65, 41, 88, & 64, 42, 89, 63, 44, 91, 63, 45, 93, 62, 46, 94, & 61, 47, 96, 61, 49, 98, 60, 50, 99, 59, 51,101, & 58, 53,103, 58, 54,104, 57, 56,106, 56, 57,108, & 56, 59,110, 55, 60,111, 54, 62,113, 54, 63,115, & 53, 65,116, 53, 67,118, 52, 68,120, 52, 70,122, & 52, 72,123, 52, 73,125, 51, 75,127, 51, 77,128, & 51, 79,130, 51, 81,132, 51, 82,133, 52, 84,135, & 52, 86,137, 52, 88,138, 53, 90,140, 53, 92,141, & 54, 94,143, 55, 95,144, 56, 97,146, 57, 99,148, & 58,101,149, 59,103,151, 60,105,152, 61,107,154, & 63,109,155, 64,111,156, 66,113,158, 67,115,159, & 69,117,161, 71,119,162, 73,121,164, 75,123,165, & 77,125,166, 79,127,168, 81,129,169, 83,131,171, & 85,133,172, 87,135,173, 90,137,175, 92,139,176, & 94,141,177, 97,143,178, 99,145,180, 102,147,181, & 104,149,182, 107,151,183, 109,152,184, 112,154,186, & 114,156,187, 117,158,188, 120,160,189, 122,162,190, & 125,164,191, 128,165,192, 131,167,193, 133,169,194, & 136,170,194, 139,172,195, 142,174,196, 144,175,197, & 147,177,197, 150,178,198, 153,180,198, 155,181,199, & 158,182,199, 161,184,200, 164,185,200, 166,186,200, & 169,187,200, 171,188,200, 174,189,200, 176,190,200, & 179,191,200, 181,192,200, 184,192,199, 186,193,199, & 188,193,198, 190,194,198, 192,194,197, 194,194,196, & 196,194,195, 198,195,194, 200,195,193, 201,194,192, & 203,194,191, 205,194,190, 206,194,188, 207,193,187, & 209,193,185, 210,192,184, 211,192,182, 212,191,181, & 213,190,179, 213,189,177, 214,189,175, 215,188,173, & 215,187,172, 216,186,170, 216,184,168, 217,183,166, & 217,182,164, 217,181,161, 217,180,159, 217,178,157, & 217,177,155, 217,175,153, 217,174,151, 217,172,148, & 217,171,146, 217,169,144, 216,168,141, 216,166,139, & 216,165,137, 215,163,135, 215,161,132, 214,160,130, & 213,158,128, 213,156,125, 212,154,123, 212,152,121, & 211,151,118, 210,149,116, 209,147,114, 208,145,111, & 208,143,109, 207,141,107, 206,139,104, 205,138,102, & 204,136,100, 203,134, 97, 202,132, 95, 200,130, 93, & 199,128, 91, 198,126, 88, 197,124, 86, 196,121, 84, & 194,119, 82, 193,117, 79, 192,115, 77, 190,113, 75, & 189,111, 73, 187,109, 71, 186,106, 69, 184,104, 67, & 183,102, 65, 181,100, 63, 179, 98, 61, 178, 95, 59, & 176, 93, 57, 174, 91, 55, 172, 89, 53, 170, 86, 51, & 169, 84, 50, 167, 82, 48, 165, 80, 47, 163, 77, 45, & 161, 75, 44, 159, 73, 42, 157, 71, 41, 155, 69, 40, & 153, 67, 39, 151, 65, 38, 149, 62, 37, 147, 60, 36, & 145, 59, 35, 143, 57, 34, 141, 55, 33, 140, 53, 33, & 138, 51, 32, 136, 49, 32, 134, 48, 31, 132, 46, 31, & 130, 44, 31, 129, 43, 30, 127, 41, 30, 125, 40, 30, & 124, 39, 30, 122, 37, 30, 121, 36, 30, 119, 35, 30, & 118, 34, 31, 116, 33, 31, 115, 32, 31, 114, 31, 31, & 112, 30, 32, 111, 29, 32, 110, 28, 32, 108, 27, 33, & 107, 26, 33, 106, 26, 34, 105, 25, 34, 104, 25, 35, & 103, 24, 35, 102, 24, 36, 101, 23, 37, 100, 23, 37, & 99, 22, 38, 98, 22, 39, 97, 22, 39, 96, 22, 40, & 95, 22, 41, 94, 21, 42, 93, 21, 43, 92, 21, 43, & 91, 21, 44, 90, 21, 45, 90, 21, 46, 89, 21, 47, & 88, 22, 48, 87, 22, 49, 86, 22, 50, 86, 22, 51, & 85, 22, 52, 84, 23, 53, 83, 23, 54, 83, 23, 55, & 82, 24, 56, 81, 24, 57, 80, 25, 58, 80, 25, 60 & ], shape(vikO), order=[2, 1] ) integer, dimension(0:9, 1:3), public :: vikO10=reshape( [ & 79, 26, 61, 58, 53,103, 59,103,151, 117,158,188, & 190,194,198, 217,174,151, 197,124, 86, 149, 62, 37, & 104, 25, 35, 80, 25, 60 & ], shape(vikO10), order=[2, 1] ) integer, dimension(0:99, 1:3), public :: vikO100=reshape( [ & 79, 26, 61, 77, 27, 65, 75, 29, 67, 73, 31, 71, & 72, 33, 74, 69, 35, 78, 68, 37, 81, 66, 40, 86, & 63, 44, 91, 62, 46, 94, 60, 50, 99, 58, 53,103, & 56, 57,108, 55, 60,111, 53, 65,116, 52, 70,122, & 52, 73,125, 51, 79,130, 51, 82,133, 52, 88,138, & 54, 94,143, 56, 97,146, 59,103,151, 61,107,154, & 66,113,158, 69,117,161, 75,123,165, 81,129,169, & 85,133,172, 92,139,176, 97,143,178, 104,149,182, & 109,152,184, 117,158,188, 125,164,191, 131,167,193, & 139,172,195, 144,175,197, 153,180,198, 158,182,199, & 166,186,200, 174,189,200, 179,191,200, 186,193,199, & 190,194,198, 196,194,195, 200,195,193, 205,194,190, & 209,193,185, 211,192,182, 213,189,177, 215,188,173, & 216,184,168, 217,181,161, 217,178,157, 217,174,151, & 217,171,146, 216,166,139, 215,163,135, 213,158,128, & 212,152,121, 210,149,116, 208,143,109, 206,139,104, & 203,134, 97, 200,130, 93, 197,124, 86, 193,117, 79, & 190,113, 75, 186,106, 69, 183,102, 65, 178, 95, 59, & 174, 91, 55, 169, 84, 50, 163, 77, 45, 159, 73, 42, & 153, 67, 39, 149, 62, 37, 143, 57, 34, 140, 53, 33, & 134, 48, 31, 129, 43, 30, 125, 40, 30, 121, 36, 30, & 118, 34, 31, 114, 31, 31, 110, 28, 32, 107, 26, 33, & 104, 25, 35, 102, 24, 36, 99, 22, 38, 97, 22, 39, & 94, 21, 42, 91, 21, 44, 90, 21, 46, 87, 22, 49, & 86, 22, 51, 83, 23, 54, 82, 24, 56, 80, 25, 60 & ], shape(vikO100), order=[2, 1] ) integer, dimension(0:24, 1:3), public :: vikO25=reshape( [ & 79, 26, 61, 71, 33, 75, 63, 44, 91, 56, 59,110, & 51, 77,128, 55, 95,144, 69,117,161, 90,137,175, & 117,158,188, 147,177,197, 174,189,200, 198,195,194, & 213,190,179, 217,180,159, 215,163,135, 208,145,111, & 197,124, 86, 181,100, 63, 163, 77, 45, 141, 55, 33, & 122, 37, 30, 108, 27, 33, 97, 22, 39, 88, 22, 48, & 80, 25, 60 & ], shape(vikO25), order=[2, 1] ) integer, dimension(0:49, 1:3), public :: vikO50=reshape( [ & 79, 26, 61, 75, 29, 67, 72, 33, 74, 67, 38, 83, & 63, 44, 91, 60, 50, 99, 56, 57,108, 53, 65,116, & 51, 75,127, 52, 84,135, 54, 94,143, 59,103,151, & 66,113,158, 77,125,166, 87,135,173, 99,145,180, & 112,154,186, 125,164,191, 142,174,196, 155,181,199, & 169,187,200, 181,192,200, 192,194,197, 203,194,191, & 210,192,184, 214,189,175, 217,183,166, 217,175,153, & 216,168,141, 214,160,130, 211,151,118, 207,141,107, & 200,130, 93, 194,119, 82, 187,109, 71, 179, 98, 61, & 170, 86, 51, 159, 73, 42, 149, 62, 37, 140, 53, 33, & 130, 44, 31, 122, 37, 30, 114, 31, 31, 107, 26, 33, & 102, 24, 36, 97, 22, 39, 92, 21, 43, 87, 22, 49, & 83, 23, 54, 80, 25, 60 & ], shape(vikO50), order=[2, 1] ) end module scientific_colour_maps